Protéger des cellules

[olivierk1450]

Bonjour,

Je connais votre efficacité et votre rapidité alors voilà mon probleme :
Je cherche à protéger une plage de cellule en fonction de la valeur d'une autre cellule
J'ai essayé avec ca mais ca répond pas exactement à mes attentes :

Range("e33:l51").Select
For Each cell In Selection
If cell.Value <> "" Then
cell.Select
Selection.Locked = True
End If
Next


Je veux protéger toutes les cellules (vide et non vide) d'une plage en fonction de la valeur d'une autre cellule de la même ligne...
Un fichier vaut mieux qu'un long discours .....
Merci d'avance.
A+
Olivier

 

[phlaurent55]

Re : Protéger des cellules

Bonjour olivierK,

ton fichier en retour
tu peux aussi ajouter un mot de passe

à+
Philippe

 

[olivierk1450]

Re : Protéger des cellules

Merci pour ta réponse cependant il y a un petit soucis :

1/ je veux intégrer ton code dans un module (et non dans Microsoft Excel Object) pour le lancer avec Call nom_macro ()
car avant de protéger les cellules j'ai d'autres trucs à faire.

2/ Est il possible de traiter la macro ligne par ligne exemple:
Protection de la ligne 17 car O17 <>""
Pas protcetion ligne 18 car O18=""
Protection ligne 19 car O19<>""
etc.... jusqu'à ligne 51 !

Merci d'avance...

 

[phlaurent55]

Re : Protéger des cellules

Re,

ton fichier en retour avec les modifs demandées

à+
Philippe

 

[olivierk1450]

Re : Protéger des cellules

Félicitations et un grand merci... c'est exactement ça que je voulais.

olivier