Erreur de protection cellule Après Saisie Double clic

Amigo

XLDnaute Occasionnel
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
 

Fichiers joints

Dernière édition:

Amigo

XLDnaute Occasionnel
Bonjour Le Forum
Permettez-moi de remonter ce fil.
Je continue ma recherche et J'ai trouvé ce code
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 upload_2018-7-18_14-2-19.png
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
 

Discussions similaires


Haut Bas