Autres Désactiver la protection lié à une liste déroulante

[abdernino1985]

Bonjour,
je commence à présente mon fichier a l'ouverture du fichier il faut choisir perte partielle après il faut aller sur la base sinistre et manettia mon problème est qu'en D21 j'ai une liste déroulante et si je choisis Sou total REG Prp Usage je voudrais autoriser la saisie sur F20 qui elle est protégé, alors je voudrait désactiver la protection avec ce choix et ce que c'est possible
mots de passe vba sophia2016

 

[Robert]

Bonjour Abdernino, bonjour le forum,

essaie comme ça :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$21" Then Exit Sub
If Target.Value = "Sous total REG Prp Usage" Then Range("F20").Locked = False Else Range("F20").Locked = True
End Sub