EXCEL-VBマクロで教えて下さい

質問

パスワードを入力を促すVBマクロですが「キャンセル」キーを押した時に
以降の操作をせずマクロ終了したいのですがどのような構文を挿入すべき
でしょうか?

Sub Macro3()
'
' Macro3 Macro
' マクロ記録日 : 2012/7/27  ユーザー名 : HA社
'
   Const MYPASSWORD As String = "apcs123"
   Dim myPassInput As String
   myPassInput = InputBox("入力してください", "パスワードの入力")
   Do While MYPASSWORD <> myPassInput
   myPassInput = InputBox("違います。再度入力してください", "パスワードの入力")
   Loop
   ActiveSheet.Unprotect
   Rows("40:50").Select
   Selection.EntireRow.Hidden = False
   Range("A1:C1").Select

End Sub

回答No.1

chie65536（@chie65535） · ベストアンサー

ご参考。
http://www.moug.net/tech/exvba/0100036.html

上記のようにしてキャンセル判定し、キャンセル時には Exit Sub により、何もしないでマクロを終了すれば良いでしょう。

何もせずに Exit Sub すれば「マクロを実行してないのと一緒」ですからね。

回答No.2

watabe007

参考に
Dim myPassInput As String
myPassInput = InputBox("入力してください", "パスワードの入力")
If StrPtr(myPassInput) = 0 Then
　　MsgBox "キャンセルしました。"
ElseIf myPassInput = Empty Then
　　MsgBox "何も入力されていません"
Else
　　MsgBox myPassInput & " と、入力されました。"
End If

お礼

ありがとうございます。何とかできそうです。