主题：分享一个有密码保护的按扭

用这个不是要简单些?原来的有点问题!

 完整的是这样的:

Dim Val As String ="123456"
Dim s As String
If InputValue(s,"密码!","请输入密码:") Then
    If s = Val Then
        forms("窗口12").open
    Else
        MessageBox.Show("你输入的密码不对!")
    End If
End If