Private Sub Workbook_Open()
With Feuil3 'CodeName de la feuille
.Protect "nobody", UserInterfaceOnly:=True 'mot de passe protégeant la feuille à adapter
.Cells.Locked = True 'verrouille toutes les cellules de la feuille
Select Case InputBox("Entrez votre mot de passe :")
Case "TATA": Application.Goto .[A1], True: .[A4].Select: .Range("A4:L" & .Rows.Count).Locked = False
Case "TITI": Application.Goto .[M1], True: .[M4].Select: .Range("M4:P" & .Rows.Count).Locked = False
Case "TOTO": Application.Goto .[Q1], True: .[Q4].Select: .Range("Q4:T" & .Rows.Count).Locked = False
Case "TUTU": Application.Goto .[U1], True: .[U4].Select: .Range("U4:X" & .Rows.Count).Locked = False
Case Else: Application.Goto .[A1]
End Select
End With
End Sub