パスワード付きVBAマクロが誤って入力された場合でも動作します

Question

SQLクエリを更新するがパスワードで保護されているExcelシートにVBAマクロがあります。マクロがどのように機能するかは、ボタンをクリックすると、パスワードプロンプトが表示され、正しく入力された場合にクエリが更新されます。間違って入力した場合、何も起こりません。

私が最近発見したことは、誰かが誤ってパスワードを入力しても、クエリが更新されたことです。パスワードが間違っていると、マクロの実行を停止するために私のコードに何を入力すればよいでしょうか？

Sub Button1_Click() 

Dim password As Variant 
password = Application.InputBox("Enter Password", "Password Protected") 

Select Case password 
    Case Is = False 
     'do nothing 
    Case Is = "Select15" 
     Range("A1").Value = "Code" 
    Case Else 
     MsgBox "Incorrect Password" 
End Select 


For Each sh In Worksheets 
If sh.FilterMode Then sh.ShowAllData 
Next 

ActiveWorkbook.RefreshAll 


End Sub 

Answer 1

Sub Button1_Click() 

Dim password As Variant 
password = Application.InputBox("Enter Password", "Password Protected") 

Select Case password 
    Case Is = False 
     'do nothing 
      exit sub 
    Case Is = "Select15" 
     Range("A1").Value = "Code" 
    Case Else 
     MsgBox "Incorrect Password" 
     exit sub 
End Select 


For Each sh In Worksheets 
If sh.FilterMode Then sh.ShowAllData 
Next 

ActiveWorkbook.RefreshAll 


End Sub 

パスワードが正しくない場合は、サブを終了する必要があります。 - ^^

それとも、それがfalseの場合、パスワードおよび終了の結果を維持するために、ブールbCorrectを作成することができます.-- V

Sub Button1_Click() 

    Dim password As Variant 
    Dim bCorrect As Boolean 

    password = Application.InputBox("Enter Password", "Password Protected") 

    Select Case password 

    Case Is = False 
     'do nothing 
    Case Is = "Select15" 
     bCorrect = True 
     Range("A1").value = "Code" 
    Case Else 
     MsgBox "Incorrect Password" 
    End Select 

    If Not bCorrect Then Exit Sub 

    For Each sh In Worksheets 
     If sh.FilterMode Then sh.ShowAllData 
    Next 

    ActiveWorkbook.RefreshAll 

End Sub 

Answer 2

ユーザーが入力した値（-1を除く）はすべて「False」と書かれているため、最初のケースがトリガーされます。最初のオプションとしてパスワードが正しいかどうか確認してください。