スキルアップ・問題解決なら、モーグにおまかせ！

以下の記述でPWを聞いてくる設定はできたのですが、PWが間違っていてもボタン押下処理が走ってしまいます。
 
Sub PW()
  Dim PW As Long
   PW = Application.InputBox( _
     prompt:="パスワード入力", Type:=1)
  If PW <> "0101" Then
     MsgBox "パスワードが違います。"
     Exit Sub
  Else
     MsgBox "OK"
  End If
 End Sub
 

ステップ実行を行って、PW が間違っている、もしくは、空白やキャンセルの場合の動作を追ってみましょう。

taitani さんの引用:
ステップ実行を行って、PW が間違っている、もしくは、空白やキャンセルの場合の動作を追ってみましょう。

まず、
 

引用:
Dim PW As Long

引用:
PW <> "0101"

Sub PW()
    Dim PW As String
        
    PW = Application.InputBox(prompt:="パスワード入力", Type:=2, Default:="0000")
    
    If PW <> "0101" Then
        MsgBox "パスワードが違います。"
        Exit Sub
    Else
        MsgBox "OK"
    End If
    
End Sub

ありがとうございます。
「パスワードが違います。」のコメントは出るのですが、その後の処理はやはり進んでしまいます。
パスワードが間違っている場合には処理を進めないようにするにはどうすればよいのでしょうか。
ご教授いただければ幸いです。

え？私の環境では、ちゃんと、Exit Sub で抜けますね。
 
PW が 0000 や 1111 で終了しました。
 

引用:
その後の処理はやはり進んでしまいます。

あ、ボタンは何をしようされていますか？
開発＞挿入＞フォーム？それとも、
開発＞挿入＞ActiveX
 
開発＞挿入＞フォームなら、例えば、
Sub ボタン1_Click() の中に下記コードを書いてください。
あと、進む？というのが、別のコードなのであれば、そのコードを実行しないようにする動作が必要です。
 
開発＞挿入＞ActiveX なら、
Private Sub CommandButton1_Click() からのコードだと思うので、上記と同様です。

ありがとうございます。
それをトリガーに以降の処理の可否につなげたく。
SUBではなく、Functionにすることで解決しました！
 

taitani さんの引用:
あ、ボタンは何をしようされていますか？
開発＞挿入＞フォーム？それとも、
開発＞挿入＞ActiveX
 
開発＞挿入＞フォームなら、例えば、
Sub ボタン1_Click() の中に下記コードを書いてください。
あと、進む？というのが、別のコードなのであれば、そのコードを実行しないようにする動作が必要です。
 
開発＞挿入＞ActiveX なら、
Private Sub CommandButton1_Click() からのコードだと思うので、上記と同様です。