VBA: Use password to go to sheet Solved/Closed

Question

Hi, I have a spreadsheet that is driven by VBA buttons that take you to different sheets, I need to password protect some of the sheets, but if an incorrect code is put in still takes you to the Sheet, also if you cancel or don't put a code it takes you to the Sheet, how do I correct? below I have detailed the code.

Private Sub CommandButton8_Click()

Dim password As Variant
password = Application.InputBox("Enter Password", "Password Protected")
Select Case password
Case Is = False
'do nothing
Case Is = "Shewasadragon"
Range("A1").Value = "Shewasadragon"
Case Else
MsgBox "Incorrect Password"
End Select
Sheets("Bank Account").Select

End Sub

TrowaD · Answer

Hi Andy,

You end your code by going to the sheet, so you will always get there. Try placing 'Sheets("Bank Account").Select' before before 'Case Else'.

Or use the code below


Private Sub CommandButton8_Click() 
Dim mPW As String
mPW = InputBox("Enter Password", "Password Protected")
If mPW = "Shewasadragon" Then
    Sheets("Bank Account").Select
Else
    MsgBox "Incorrect Password"
End If
End Sub 

I don't see anything about unprotecting the sheet, but I guess you'll add that later.

Best regards,
Trowa

VBA: Use password to go to sheet

1 response

Similar discussions

Subscribe To Our Newsletter!