Bloquer une cellule si le choix n'est pas correct

[Claude_B]

Bonjour,

Je cherche le moyen de bloquer une ou plusieurs cellules(personnes ne doit pouvoir les `sélectionner ou écrire à l'intérieur si un certain mot a été choisi dans une liste déroulante d'une autre cellule.

[Daniel.C]

Bonsooir,

La macro suivante suppose que les cellules de la feuille soient déverrouillées par défaut. La liste déroulante est en G11, la valeur provoquant la protection de la plage A1:A10 est "tutu". La feuille sera protégée avec le mot de passe "toto" :

Code :

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$G$11" Then Exit Sub
    If Target.Value = "tutu" Then
        ActiveSheet.Unprotect Password:="toto"
        [A1:A10].Locked = True
        ActiveSheet.Protect Password:="toto"
        ActiveSheet.EnableSelection = xlUnlockedCells
    End If
End Sub