Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

protect cellules de plage en Vba

herve62

XLDnaute Barbatruc
Supporter XLD
Bonjour
Je n'ai rien trouvé sur ce sujet ( avec RANGE oui !) protéger la plage de cel. selectionnée
Code:
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

XLDnaute Barbatruc
Bonjour,
Essaye comme ceci
Code:
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
Code:
Sub test()
With Selection
.Value = "V"
.Locked = True
End With
ActiveSheet.Protect
End Sub
 

herve62

XLDnaute Barbatruc
Supporter XLD
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 !!!!
 

Pièces jointes

  • lock_cell.xlsm
    18.7 KB · Affichages: 24

Jacky67

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

Pièces jointes

  • lock_cell v2.xlsm
    60.7 KB · Affichages: 20
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…