【加密】如何用VBA给EXCEL表单加密？

WANGL2

【加密】如何用VBA给EXCEL表单加密？要求：弹出对话框，要求输入密码，允许最多3次连续输入，否则弹出另一对话框，提示错误。谢谢！

ws278106483

1. For x = 1 To 3
   
2.         rnd = "123456"
   
3.         val = InputBox("请输入密码", "输入")
   
4.         If rnd = val Then
   
5.            Sheet2.Visible = True
   
6.           Sheet2.Select
   
7.             Exit For
   
8.        Else
   
9.       
   
10.         MsgBox "密码错误，请重新输入", 16, "提示"
    
11.         i = i + 1
    
12.         End If
    
13.    
    
14.     Next x
    
15.     If i = 3 Then
    
16.     Sheet1.Select
    
17.     End If

复制代码

给段代码，楼主，参考下。            

laoda1228

ws278106483 发表于 2012-8-15 11:13
给段代码，楼主，参考下。

这个是什么意思啊？   难道不该插入模块， 使用sub qq（）  end sub 吗？

ws278106483

laoda1228 发表于 2012-8-15 21:21
这个是什么意思啊？   难道不该插入模块， 使用sub qq（）  end sub 吗？

1. Sub ts()
   
2. Dim rnd, val As String
   
3. 
   
4. For x = 1 To 3
   
5. rnd = "123456"
   
6. val = InputBox("请输入密码", "输入")
   
7. If rnd = val Then
   
8. Sheet2.Visible = True
   
9. Sheet2.Select
   
10. Exit For
    
11. Else
    
12. 
    
13. MsgBox "密码错误，请重新输入", 16, "提示"
    
14. i = i + 1
    
15. End If
    
16. 
    
17. Next x
    
18. If i = 3 Then
    
19. Sheet1.Select
    
20. End If
    
21. End Sub
    

复制代码