Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B3"), Target) Is Nothing Then
Select Case Range("B3").Value
Case Is = "oui"
ActiveSheet.Unprotect
Cells.Locked = False
Range("C3").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Case Else
ActiveSheet.Unprotect
Cells.Locked = True
End Select
End If
End Sub
Private Sub Worksheet_Calculate()
Select Case Range("B3").Value
Case Is = "oui"
ActiveSheet.Unprotect
Cells.Locked = False
Range("C3").Locked = True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Case Else
ActiveSheet.Unprotect
Cells.Locked = True
End Select
End Sub