Private Sub Workbook_Open()
On Error Resume Next
Dim sh As Worksheet
'Pour chaque feuille du classeur
For Each sh In ThisWorkbook.Worksheets
'La feuille est déprotégée (ici le mot de passe est MDP)
sh.Unprotect "MdP"
'Elles sont verrouillées
sh.Cells.Locked = True
'En fonction de ce que renvoie Username...
Select Case Application.UserName
'Dans le cas où c'est Nom1...(remplacer par le bon nom), on déverrouille la ligne 2 par exemple
Case "Nom1"
sh.Rows(2).Locked = False
'Dans le cas où c'est Nom2...(remplacer par le bon nom), on déverrouille la Zone ("A2:C6") par exemple
Case "Nom2"
sh.Range("A2:C6").Locked = False
'Dans le cas où c'est le boss, tout est déverrouillé
Case "Boss"
sh.Cells.Locked = False
'Dans le cas où c'est qq1 d'autre, tout reste verrouillé
Case Else
End Select
'La feuille est reprotégée
sh.Protect "MDP"
Next sh
End Sub