InputBoxの終了（X）と空の文字列を確認する方法

Question

パスワードの入力を可能にする入力ボックスを起動するコマンドボタンがあります。

Private Sub CommandButton1_Click() 
    Dim ThePW As String 

    ThePW = InputBox("A password is required to run this procedure." & vbCrLf & _ 
     "Please enter the password:", "Password") 

    If ThePW <> "123" Then MsgBox ("wrong pw") 
End Sub 

私は終了（X）をクリックするか、キャンセルする場合ただし、メッセージボックスがまだ私はこの問題を解決するにはどうすればよいwrong pw

が表示されますか？ exit（X）をクリックするかキャンセルを選択すると、wrong pwと表示されません。彼がキャンセルヒットした場合

Answer 1

以下のコードを使用して、それだけでSub

Private Sub CommandButton1_Click() 

Dim ThePW As String 

ThePW = InputBox("A password is required to run this procedure." & vbCrLf & _ 
"Please enter the password:", "Password") 

If ThePW = "" Then Exit Sub ' Exit if null input or cancel 

If ThePW <> "123" Then 
    MsgBox ("wrong pw") 
Else 
    ' do something if OK 
End If   

End Sub