[已解决]关于vba密码验证问题

yjwdjfqb

关于vba密码验证问题

1. Sub a()
   
2. 
   
3. 
   
4. Call b '用什么方法来实现，在执行这句命令时，弹出的密码框，我们在输入错误的密码后，或者是取消、关闭，就将不执行本宏中，以下的命令
   
5. 
   
6. 
   
7. 
   
8. 
   
9. 
   
10. Dim pw
    
11. pw = InputBox("请输入管理员密码")
    
12. If pw = "" Then
    
13. Exit Sub
    
14. ElseIf pw = "admin" Then
    
15. Else
    
16. MsgBox "权限验证错误,程序自动退出！", , "系统提示"
    
17. Exit Sub
    
18. ThisWorkbook.Unprotect (pw)
    
19. End If
    
20. 
    
21. MsgBox "测试a", , "系统提示"
    
22. 
    
23. End Sub
    
24. 
    
25. Sub b()
    
26. 
    
27. 
    
28. Dim pw
    
29. pw = InputBox("请输入管理员密码")
    
30. If pw = "" Then
    
31. Exit Sub
    
32. ElseIf pw = "admin" Then
    
33. Else
    
34. MsgBox "权限验证错误,程序自动退出！", , "系统提示"
    
35. Exit Sub
    
36. ThisWorkbook.Unprotect (pw)
    
37. End If
    
38. 
    
39. MsgBox "测试b", , "系统提示"
    
40. 
    
41. 
    
42. End Sub
    

复制代码

请大家，把我代码中注释的部分用代码来实现，谢谢大家了！
关于vba密码验证问题.rar (6.71 KB, 下载次数: 12)

2013-12-15 09:27 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-12-15 17:33

1. Sub b()
   
2.     Dim pw
   
3.     Do
   
4.         pw = Application.InputBox("请输入管理员密码", Type:=2)
   
5.         If pw = False Then
   
6.             End
   
7.         End If
   
8.         If Len(pw) = 0 Then MsgBox "请输入密码"
   
9.     Loop While Len(pw) = 0
   
10.     If pw <> "admin" Then
    
11.             MsgBox "权限验证错误,程序自动退出！", , "系统提示"
    
12.         Exit Sub
    
13.         ThisWorkbook.Unprotect (pw)
    
14.     End If
    
15.     MsgBox "测试b", , "系统提示"
    
16. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

一、把B改成函数，返回逻辑值。
二、在B中把exit sub换成END

无聊的疯子

补充一个

在 Call b   上面添加一个输入密码的判断，

yjwdjfqb

无聊的疯子 发表于 2013-12-15 09:46
补充一个

在 Call b   上面添加一个输入密码的判断，

老师可以帮我做下附件吗，谢谢了！

yjwdjfqb

hwc2ycy 发表于 2013-12-15 09:33
一、把B改成函数，返回逻辑值。
二、在B中把exit sub换成END

老师帮我做个附件好吧

hwc2ycy

yjwdjfqb 发表于 2013-12-15 10:17
老师帮我做个附件好吧

1. Sub a()
   
2. 
   
3. 
   
4.     Call b    '用什么方法来实现，在执行这句命令时，弹出的密码框，我们在输入错误的密码后，或者是取消、关闭，就将不执行本宏中，以下的命令
   
5.     Dim pw
   
6.     pw = InputBox("请输入管理员密码")
   
7.     If pw = "" Then
   
8.         Exit Sub
   
9.     ElseIf pw = "admin" Then
   
10.     Else
    
11.         MsgBox "权限验证错误,程序自动退出！", , "系统提示"
    
12.         Exit Sub
    
13.         ThisWorkbook.Unprotect (pw)
    
14.     End If
    
15. 
    
16.     MsgBox "测试a", , "系统提示"
    
17. 
    
18. End Sub
    
19. 
    
20. Sub b()
    
21. 
    
22.     Dim pw
    
23.     pw = InputBox("请输入管理员密码")
    
24.     If pw = "" Then
    
25.         End
    
26. 
    
27.     ElseIf pw = "admin" Then
    
28.     Else
    
29.         MsgBox "权限验证错误,程序自动退出！", , "系统提示"
    
30.         End
    
31.         ThisWorkbook.Unprotect (pw)
    
32.     End If
    
33. 
    
34.     MsgBox "测试b", , "系统提示"
    
35. 
    
36. End Sub

复制代码

yjwdjfqb

hwc2ycy 发表于 2013-12-15 11:05

谢谢老师，就是要这样的效果。

但，没有在密码输入框中输入字符时，点确定，也会退出程序，
在这里能不能实现，当没有在密码输入框中输入字符时，点了，确定就弹出，“没有输入密码”，确定后，又可以继续输入密码。

yyyydddd8888

yjwdjfqb 发表于 2013-12-15 11:17
谢谢老师，就是要这样的效果。

但，没有在密码输入框中输入字符时，点确定，也会退出程序，

看看这样行不行：
关于vba密码验证问题.zip (8.52 KB, 下载次数: 8)

2013-12-15 13:09 上传

点击文件名下载附件

1. Sub b()
   
2. 
   
3.     Dim pw, st
   
4. ppp:
   
5.     pw = Application.InputBox("请输入管理员密码")
   
6.     If pw = "False" Then
   
7.         End
   
8.     ElseIf pw = "" Then
   
9.        st = MsgBox("没有输入密码", vbExclamation + vbOKCancel, "提示")
   
10.        If st = 1 Then GoTo ppp Else End
    
11.     ElseIf pw = "admin" Then
    
12.     Else
    
13.         MsgBox "权限验证错误,程序自动退出！", , "系统提示"
    
14.         End
    
15.         ThisWorkbook.Unprotect (pw)
    
16.     End If
    
17. 
    
18.     MsgBox "测试b", , "系统提示"
    
19. 
    
20. End Sub

复制代码

hwc2ycy

yjwdjfqb 发表于 2013-12-15 11:17
谢谢老师，就是要这样的效果。

但，没有在密码输入框中输入字符时，点确定，也会退出程序，

1. Sub b()
   
2. 
   
3.     Dim pw
   
4.     Do
   
5.         pw = InputBox("请输入管理员密码")
   
6. 
   
7.         If Len(pw) = 0 Then MsgBox "没有输入密码"
   
8. 
   
9.     Loop While Len(pw) = 0
   
10. 
    
11.     If pw = "admin" Then
    
12.     Else
    
13.         MsgBox "权限验证错误,程序自动退出！", , "系统提示"
    
14.         End
    
15.         ThisWorkbook.Unprotect (pw)
    
16.     End If
    
17. 
    
18.     MsgBox "测试b", , "系统提示"
    
19. 
    
20. End Sub
    

复制代码

hwc2ycy

如果用户单击 OK 或按下ENTER ，则 InputBox 函数返回文本框中的内容。
如果用户单击 Cancel，则此函数返回一个长度为零的字符串 ("")。

所以，当用户直接点取消，与没有输入内容点确定，效果会是一样的。

但是换成application的input方法，则可以实现
如果选择了“确定”按钮，则 InputBox 将返回对话框中输入的值。如果单击“取消”按钮，则 InputBox 返回 False。