Macro exel

Bonjour à tous,

Je suis aujourd'hui bien embêté, car je suis entrain de créer un fichier excel avec une macro me permettant de verrouiller une cellule, une fois cette dernière saisie.

Le problème et qu'il n'y a pas moyen de la faire fonctionner et après moult recherche pas moyen de trouver une solution. Même si la macro compile, je ne sais pas si c'est elle qui pose problème ou bien si je ne fais pas les bonnes manip par la suite en mettant les bonnes restriction par mot de passe.

Je vous remercie d'avance.

Bien à vous.

Voici le code :

Option Explicit
 
private Const mdp = "mdp"
private Const plage = "A1:E20"
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range(plage)) Is Nothing Then
        If Target.Value <> "" Then
            ActiveSheet.Unprotect (mdp)
            Target.Locked = True
            ActiveSheet.Protect (mdp)
        End If
    End If
End Sub