[已解决]VBA设置按钮输入密码

沈夜

我设置了个按钮 点击按钮后输入密码，密码正确的话就会显示本来隐藏这的AB两列。
但我碰到个问题，点击按钮后 出来的窗体有确定和取消两个选项，如果密码输错，按确定后，会提示密码错误，
但如果我什么都不输入 直接按取消，本来应该是直接取消输密码这个窗体，但它还是显示密码错误的提示。
我的代码需要怎么修改，才能点取消就直接退出了，而不是提示密码错误？
Sub hidecol()
password1 = InputBox("密码(P)", "管理员密码")
If password1 = "123" Then
    Sheet1.Unprotect
    Range("A:B").EntireColumn.Hidden = False
Else
    MsgBox ("密码错误")
End If
End Sub

最佳答案

月排行榜 / 总排行榜

苏子龙

2017-9-10 16:18

Sub hidecol()
password1 = Application.InputBox("密码(P)", "管理员密码")
If password1 = False Then
    Exit Sub
ElseIf password1 = "123" Then
    Sheet1.Unprotect
    Range("A:B").EntireColumn.Hidden = False
Else
    MsgBox ("密码错误")
End If
End Sub

跳转到最佳答案楼层

苏子龙

Sub hidecol()
password1 = Application.InputBox("密码(P)", "管理员密码")
If password1 = False Then
    Exit Sub
ElseIf password1 = "123" Then
    Sheet1.Unprotect
    Range("A:B").EntireColumn.Hidden = False
Else
    MsgBox ("密码错误")
End If
End Sub