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

yjwdjfqb

hwc2ycy 发表于 2013-12-15 13:51

我这儿用老师的代码，点取消、关闭时，还是会弹出，重新输入密码，像这里应该是退出才对呀。请老师帮帮斧正下。

hwc2ycy

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

你exit sub下在同的thisworkbook.unprotect (pw)不会被执行， 看看是否写错了。

yjwdjfqb

hwc2ycy 发表于 2013-12-15 17:34
你exit sub下在同的thisworkbook.unprotect (pw)不会被执行， 看看是否写错了。

上面的代码，可以实现了，谢谢老师！
那一句好像是没有执行一样，删除也行。

252225616

。。。。。。。。。。。。。