Input Box

[sassriverrat]

Good Morning,

I have the following code that's been working well as a "password box" to unlock a few sheets. However, I'd like to tweak it so that the if the password is wrong, it will display an "wrong password" message and then ask for the password again. this is all mounted on userform5 as commandbutton3.

Thanks for the help!

Private Sub CommandButton3_Click()
On Error GoTo Helper
Pass = Application.InputBox("Enter Password", "The Coding Sheets")
If Pass = CStr(Worksheets("Developer").Range("B23").Value) Then
    Sheets("Developer").Visible = True
    Sheets("Notes").Visible = True
    Sheets("Ports").Visible = True
    Sheets("Developer").Select
    Application.Visible = True
End If
Unload Me
'Error Clearing Code
End Sub

 

[gallen]

Something like this:

Private Sub CommandButton3_Click()
On Error GoTo Helper
TryAgain:
Pass = Application.InputBox("Enter Password", "The Coding Sheets")
If Pass = CStr(Worksheets("Developer").Range("B23").Value) Then
    Sheets("Developer").Visible = True
    Sheets("Notes").Visible = True
    Sheets("Ports").Visible = True
    Sheets("Developer").Select
    Application.Visible = True
Else
    MsgBox "Password incorrect. Please try again", vbCritical, "Wrong Passwrod Entered"
    GoTo TryAgain
End If
Unload Me
Exit Sub
'Error Clearing Code
Helper:
    MsgBox Err.Description
End Sub

 

[sassriverrat]

oh duh....the goto TryAgain makes perfect sense....

for some reason I was playing with other loops and it wasn't working....that was an easy go to solution. Thanks!

 

[Fluff]

You may also want to consider adding in another line

Private Sub CommandButton3_Click()
On Error GoTo Helper
TryAgain:
Pass = Application.InputBox("Enter Password", "The Coding Sheets")
[COLOR=#ff0000]If Pass = False Then Exit Sub[/COLOR]
If Pass = CStr(Worksheets("Developer").Range("B23").Value) Then
    Sheets("Developer").Visible = True
    Sheets("Notes").Visible = True
    Sheets("Ports").Visible = True
    Sheets("Developer").Select
    Application.Visible = True
Else
    MsgBox "Password incorrect. Please try again", vbCritical, "Wrong Passwrod Entered"
    GoTo TryAgain
End If
Unload Me
Exit Sub
'Error Clearing Code
Helper:
    MsgBox Err.Description
End Sub

That way if they click cancel on the input box, it exits the sub. Otherwise it will loop permanently.

 

[sassriverrat]

Good call....hadn't thought about that. Yeah...I was doing a quick sweep through the workbook last night before I push it out to all the machines tomorrow and realized that anyone that clicked "cancel" or exited the input box could get past all of it....minor details...