阿Q吧 > EXCEL VBA怎样在点击按钮后，弹出一个输入密码的对话框，密码正确的话执后续程序段，否则结束

EXCEL VBA怎样在点击按钮后，弹出一个输入密码的对话框，密码正确的话执后续程序段，否则结束

2024-11-17 23:31:18

推荐回答（3个）

回答1：

Sub test()
myPW = "123456"  '设置密码
p = InputBox("请输入运行密码", "温馨提示！", Default)
If myPW = p Then
    MsgBox "OK"     '删除此句，插入原代码
Else
    MsgBox "密码错误，请重新输入！", , "温馨提示！"
End If
End Sub

回答2：

简单点的办法是使用InputBox，但是密码会显示，复杂点的办法是做一个用户窗体，窗体上输入密码。

回答3：

Private Sub CommandButton1_Click()
a = Application.InputBox("请输入密码", , , , , , , 2)
If a <> 正确密码 Then
Exit Sub
Else
执行的代码体
End Sub