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

Answer 1

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

Answer 2

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

Answer 3

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