Bonjour Sylvain, le Forum
L'exemple ci dessous déprotége selon la valeur d'A1 soit C3 soit C4, peut être étendu à d'autres cellules ou facilement modifié pour gérer des droits différents selon le passe. La vérification et modification n'est faite que si la valeur d'A1 est modifiée en utilisant un change avec target.
Cordialement, A+
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
Select Case UCase(Target.Value)
Case Is = "CALENDRIER"
ActiveSheet.Unprotect ("coucou")
Range("C3").Locked = False
Range("C4").Locked = True
ActiveSheet.Protect Password:="coucou", DrawingObjects:=True, Contents:=True, Scenarios:=True
Case Is = "CARTE"
ActiveSheet.Unprotect ("coucou")
Range("C3").Locked = True
Range("C4").Locked = False
ActiveSheet.Protect Password:="coucou", DrawingObjects:=True, Contents:=True, Scenarios:=True
Case Else
ActiveSheet.Unprotect ("coucou")
Range("C3").Locked = True
Range("C4").Locked = True
ActiveSheet.Protect Password:="coucou", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Select
End If
End Sub