кнопка с паролем в Excel

Question

Подскажите пожалуйста как сделать кнопку с паролем в Excel, чтобы макрос, привязанный к этой кнопке отрабатывал только после ввода корректного пароля. 
 
вот текст кнопки, но, что-то я немогу осилить сложный if else. Всего 4 случая - ввод правильного пароля, неправильного, нажатие кнопки отмена и нажатие кнопки ок без пароля. 
 
Private Sub CommandButton1_Click() 
 
Dim strFileToOpen 
Dim wrkBook As Workbook 
Dim str As String 
Dim strCorrPass As String 
 
strCorrPass = "123" 'пароль разрешающий доступ 
 
If StrPtr(InputBox("Введите пароль")) = 0 Then 
MsgBox Prompt:="Пароль отменен! " 
GoTo 2 
ElseIf InputBox("Введите пароль") = strCorrPass Then 
MsgBox "Доступ разрешён" 
MsgBox Prompt:="Пароль пустой! " 
GoTo 2 
 
Else 
MsgBox Prompt:="Пароль неправильный! " 
End If 
GoTo 2 
 
2 
End Sub

Владимир Иванов · Accepted Answer

Private Sub CommandButton1_Click() 
Dim strFileToOpen 
Dim wrkBook As Workbook 
Dim str As String 
Dim strCorrPass As String 
 
strCorrPass = "123" 'пароль разрешающий доступ 
str = InputBox("Введите пароль") 
If StrPtr(str) = 0 Then 
 MsgBox "Отмена! " 
 GoTo qq 
End If 
Select Case str 
 Case "" 
 MsgBox Prompt:="Пароль пустой! " 
 Case 123 
 MsgBox "Доступ разрешён" 
 Case Else 
 MsgBox Prompt:="Пароль неправильный! " 
End Select 
qq: 
End Sub