OVH Cloud OVH Cloud

Protection de cellules

2 réponses
Avatar
Ayrton [ASC]
Bonjour à tous,

Est il possible d'empêcher la modification d'un groupe de cellules en
VBA ? ( par ex de C13à C20 de C 24 à C29 et de C33 à C44 ).
Je ne peux pas lefaire par le format de cellule car j'ai une cellule qui
est verrouillée par VBA et qui contient un numero s'incrementant de 1 à
chaque ouverture de classeur ; quand je fais le verrouillage de cellule+
protection de feuille, j'ai un message d'erreur me disant :

"Impossible de définir la proprieté NumberFormat de la classe range"
Et voici la fenêtre VBA
With Worksheets("Photo")
.Range("D12").NumberFormat = "##\ ###0"
.Range("D12") = .Range("D12") + 1

C'est la ligne Range("D12").NumberFormat ="##\ ###0" qui est
surlignée en jaune

Si je retire la protection de feuille, tout baigne ;-)
Mon souci est que j'ai besoin de protéger les cellules citées plus haut
et que je ne sais pas comment faire dans ce cas là ; c'est pour cela que
je pensais à VBA.

Si quelqu'un a une petite idée ...........

Encore un grand merci à vous d' avance

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm

2 réponses

Avatar
JB
Bonjour,

Il faut désactiver la protection puis la réactiver après opération

Activesheet.Unprotect
....
Activesheet.Protect


Cordialement JB
Avatar
Ayrton [ASC]
Bonjour *JB*
Dans ton message de
news:,
tu nous envoyais cette missive :-(*)

Bonjour,


Bonjour,
Il faut désactiver la protection puis la réactiver après opération

Activesheet.Unprotect
....
Activesheet.Protect


Merci pour ton aide ; par contre, excuse moi, mais je ne suis pas sûr
d'avoir tout compris ;-( ou plutôt à quel moment je désactive sachant
qu'à l'ouverture du classeur la protection doit être activée et que
c'est justement quand j'ouvre le classeur que le message apparaît ; il
doit y avoir une subtilité que je n'ai pas comprise ! !

Merci

Cordialement

--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm