Verrouiller une feuille quand une cellule contient une valeur

Bonjour,

J'ai une question un peu simple à laquelle je n'ai pas encore trouver une solution peut être cela est dû à mes connaissances basiques en VBA.

En effet, dans la cellule "H4" de ma feuille "Feuille1" j'ai une liste déroulante avec trois choix (Val1, Val2 et Val3), et je veux protéger cette feuille ("Feuille1") quand la valeur de la cellule choisie dans la liste déroulante est "Val1" ou bien "Val2".

Voici le code que j'ai mis dans cette feuille:

Private Sub Verouillage()

Dim psswd As String

psswd = "0000"

If Range("H4").Value = "Val1" Or Range("H4").Value = "Val2" Then

ActiveSheet.Protect Password:=psswd

ElseIf Range("H4").Value = "Val3" Then

ActiveSheet.Unprotect Password:=psswd

End If

End Sub

Ce code ne marche pas. Pourriez-vous svp m'aider ?

Merci d'avance

J'ai trouvé la solution juste après ce post...comme par hasard.

Il fallait mettre:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Macro

End Sub

je pense avoir touvé

3verouille.xlsm (15.29 Ko)
Rechercher des sujets similaires à "verrouiller feuille quand contient valeur"