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