Private Sub Workbook_Open()
Dim mdp$, x$, i&
mdp = InputBox("Entrez votre mot de passe :")
With Sheets("suivi des cdes MDA V2")
.Unprotect "citedia"
Select Case mdp
Case "ACH1", "ACH2", "ACH3"
x = Switch(mdp = "ACH1", "D. PROD'HOMME", mdp = "ACH2", "F. DEMAY", mdp = "ACH3", "S. WEHRLE")
For i = 17 To .[H65000].End(xlUp).Row
.Cells(i, "H").Locked = .Cells(i, "A") <> x
Next
Case "CPT": .Range("I17", .[I65000].End(xlUp)).Locked = False
Case "SIG": .Range("J17", .[J65000].End(xlUp)).Locked = False
Case "DAF": .Range("K17", .[K65000].End(xlUp)).Locked = False
End Select
.Protect "citedia"
End With
End Sub