以下这个代码错误在哪里？

laiguiyou

我想在打开窗体之前先有一个密码提示，如果输入正确，则打开窗体，反之，则不打开窗体，按取消也不打开。我把这个代码写在窗体的加载事件里。可密码不正确也打开。



Private Sub Form_Load()
Dim Psaaword As String
Psaaword = InputBox("请输入密码", "提示！", "*******")

If Psaaword <> "362121" Then
    MsgBox "对不起,密码错误，你无权进入，请与管理员联系"
  [B]这个不打开窗体的代码如何写？[/B]  
Else
    MsgBox "密码正确，欢迎进入!"
     
End If
End Sub

andymark

系open事件
Dim Psaaword As String
Psaaword = InputBox("请输入密码", "提示！", "*******")

If Psaaword <> "362121" Then
    MsgBox "对不起,密码错误，你无权进入，请与管理员联系"
  Cancel = True
Else
    MsgBox "密码正确，欢迎进入!"
     
End If