I've password protected each sheet in a file I'm currently working on but the code I found for it hides the sheet if the password is incorrect. That would be fine but this will be a shared file with roughly 25 users and each user only knows the password for their sheet. So if they accidentally select someone else's sheet or they type their password in wrong it will hide that sheet then move to the next one. That user won't know what the password is to the other sheet so they'll end up hiding every sheet in the workbook. I could hide every sheet and let the users unhide their sheet and type in the password but they would need to hide the sheet when they're done with it and I don't trust that they will do that. What I need is either a modified version of the code I'm currently using or a new version that would bring them back to sheet1 (the only unprotected sheet in the workbook) if the password is incorrect.

The code I'm currently using to password protect each sheet is:

Private Sub Worksheet_Activate()
Const Password As String = "Jan"
If InputBox("Please input the password to view this sheet.") <> Password Then
Me.Visible = xlSheetHidden
Else
Me.Visible = xlSheetVisible
End If
End Sub

And I'm also using this code to make sure the file always opens to sheet1:

Private Sub Workbook_Open()
Worksheets("Quick Look").Select
End Sub