Erreur de protection cellule Après Saisie Double clic

[Amigo]

Bonjour Le Forum
je souhaite obtenir votre aide.
Quand je saisis en double cliquant sur la cellule en colonne A j'insère la date et la protection de la cellule se fait automatiquement. mais si j'essaie de faire un test de la changer une erreur "1004 définie par l'application ou l'objet" se génère.
Lignes 4,5et 6
Voir Fichier joint.
MdP : moi
J'ai un code de protection sur les colonnes A,B,C,D et F la colonne E je dois toujours la modifier
Cordialement

 

[Amigo]

Bonjour Le Forum
Permettez-moi de remonter ce fil.
Je continue ma recherche et J'ai trouvé ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target1 As Range, Cancel As Boolean)
  If Not Intersect(Target1, [A2:A5000]) Is Nothing And IsEmpty(Target1) Then
    ActiveSheet.Unprotect Password:=Monpass
    Target1.Value = Date: Cancel = True
    Target1.Locked = True
    ActiveSheet.Protect Password:=Monpass
   End If
End Sub

mais qui me donne cette erreur

sur la ligne 5 du code "Target1.Locked = True" par contre si je supprime cette ligne ca fonctionne.
Est-ce que quelqu'un pourrait m'expliquer et m'aider pour savoir s'il y a utilité ou nom de cette ligne s'il vous plait.
Merci par avance
Cordialement