主题：窗口

当点击“Button1”按钮时需要输入密码才能执行，麻烦问一下  在哪里写什么样的代码

参考：http://www.foxtable.com/webhelp/scr/2435.htm

老师能不能帮我写一下，我没看懂，还有代码加在哪里，谢谢

Click事件

 

Dim pwd As String
If InputPassWord(pwd,"提示","请输入密码:") Then
    If pwd <> "123456" Then
        msgbox("密码错误")
        Return
    End If
Else
    msgbox("请输入密码")
    Return
End If

msgbox("执行完毕")