Slight Problem

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I have the following code but when the cancel button on my input box is
pressed the "invalid password" message is still displayed. Can someone help
so when the cancel button is pressed then that is exactly what happens, the
input box is cancelled.

Dim MyStr1 As String, MyStr2 As String
MyStr2 = ("engineering")
MyStr1 = InputBox("Please Enter The Required Password")
If MyStr1 = MyStr2 Then
Sheets("Sheet2").Select
Range("A9").Select
Else
MsgBox "Incorrect Password. Access Denied", vbCritical
Range("E22").Select
End If
 
Good afternoon Nick

Enter this line immediately after the line that opens the InputBox:

If MyStr1 = "" Then Exit Sub

HTH

DominicB
 
Back
Top