Add Error Message To Sheet Password

[Pavertheway]

Hi,

I currently use the following code to lock a sheet in a Workbook:

mysheet = "Sheet1"If ActiveSheet.Name = mysheet Then
ActiveSheet.Visible = False
    Response = InputBox("Enter password to view sheet")
        If Response = "Sheet1" Then
            Sheets(mysheet).Visible = True
            Application.EnableEvents = False
            Sheets(mysheet).Select
            Application.EnableEvents = True
            End If
End If
Sheets(mysheet).Visible = True

When the password is entered incorrectly, I would like to add a simple message stating "Password entered incorrectly" - how would I do this?

Thanks as always.

 

[DanteAmor]

Try this

Sub test()
  Dim mysheet As String, Response As Variant
  mysheet = "Sheet1"
  If ActiveSheet.Name = mysheet Then
    ActiveSheet.Visible = False
    Response = InputBox("Enter password to view sheet")
    If Response = "Sheet1" Then
      Sheets(mysheet).Visible = True
      Application.EnableEvents = False
      Sheets(mysheet).Select
      Application.EnableEvents = True
    Else
      MsgBox "Password entered incorrectly"
    End If
  End If
End Sub

 

[Pavertheway]

Perfect! I knew I'd be missing something so simple but just couldn't see it.

Thank you

 

[DanteAmor]

Perfect! I knew I'd be missing something so simple but just couldn't see it.

Thank you

I'm glad to help you. Thanks for the feedback.