or if you like with a VBA solution, after you lock desired cells
Private Sub Worksheet_Activate() Dim strPassword As String strPassword = InputBox("Give you Passwort:")
On Error GoTo Falsch Me.Unprotect strPassword Me.Protect strPassword On Error GoTo 0 Exit Sub Falsch: MsgBox "Wrong Passwort" Worksheets("Name it").Activate End Sub
If you have after that a question, will be happy to answer/help.