protect cellules de plage en Vba

[herve62]

Bonjour
Je n'ai rien trouvé sur ce sujet ( avec RANGE oui !) protéger la plage de cel. selectionnée

For Each cellule In Memtarget
        With cellule
        .Value = "V"
        .Locked = True
        '.Protect = True
        End With
    Next cellule

J'ai testé Locked et protect : Erreur
Memtarget est une plage mémorisée ( par set) , le V fonctionne bien

 

[Jacky67]

Bonjour,
Essaye comme ceci

Sub test()
Dim Memtarget As Range
Set Memtarget = Selection
With Memtarget
.Value = "V"
.Locked = True
End With
ActiveSheet.Protect
End Sub

Ce n'est pas la cellule que l'on protège , mais la feuille.
OU sans variable

Sub test()
With Selection
.Value = "V"
.Locked = True
End With
ActiveSheet.Protect
End Sub

 

[herve62]

je n'ai pas le fichier chez moi , je viens de recréer vite fait pour exemple ci joint
En fait mes feuilles étaient déjà protégées , donc j'ai déprotégé , c'était là Mon erreur !!!!
et donc .locked= true fonctionne
reste un détail à régler : Je selectionne par ex. C5 - H5 ensuite le CLIC droit me met en rouge le fond SAUF E5-F5 qui est déjà en Vert ( ce qui fonctionne déjà) par contre ayant Ajouté la validation il ne faut pas mettre de V dedans
Methode : selectionner une plage de ligne ( clic gauche) clic droit > = en rouge
On valide > ajout du V + verrouillage
Là le V dans le Vert n'est pas le bienvenu !!!!

 

[Jacky67]

Re...
Heu.........
En partant de la plage "C5:L22", vierge et sans couleur, explique ce qui doit se passer sur un clic droit, dans tous les cas.

 

[herve62]

Methode ou MODE D'emplOi: selectionner une plage de ligne ( clic gauche) clic droit > ca se met en rouge
On valide > ajout du V + verrouillagele la selection
Là le V dans le Vert n'est pas le bienvenu !!!!

 

[Jacky67]

Methode ou MODE D'emplOi: selectionner une plage de ligne ( clic gauche) clic droit > ca se met en rouge
On valide > ajout du V + verrouillagele la selection
Là le V dans le Vert n'est pas le bienvenu !!!!

Re...
Les cellules vertes sont donc peinturlurées manuellement....
Regarde si cela convient

 

[herve62]

re ok , c'est bon
sinon je venais aussi de trouver fallait pas mélanger With Memtarget avec With cellule et ça va mieux