Bonsoir à tous,
Tout est dans le titre !
La macro ci-dessous ne fonctionne pas... pourtant je ne vois pas d'erreur
J'ai aussi essayer avec "Worksheet_Change(ByVal Target As Range)" mais sans résultat...
Si quelqu'un a une petite idée slvp...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Macro qui permet de Verrouiller/Déverrouiller une cellule en fonction de la valeur d'une autre cellule !
If Range("F6").Value = VRAI Then '"F6" correspond à la cellule liée à la case à cocher...
ActiveSheet.Unprotect "MotDePasse"
Worksheets("Impôt").Range("C7").Locked = True
ElseIf Range("F6").Value = FAUX Then
ActiveSheet.Unprotect "MotDePasse"
Worksheets("Impôt").Range("C7").Locked = False
Else
ActiveSheet.Unprotect "MotDePasse"
Worksheets("Impôt").Range("C7").Locked = False
End If
ActiveSheet.Protect "MotDePasse", _
DrawingObjects:=True, _
Contents:=True, Scenarios:=True, _
UserInterfaceOnly:=True
End Sub
Je joint aussi le fichier :