Problème avec l'extention locked de Range

Signaler
Messages postés
9
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
6 mars 2006
-
Messages postés
9
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
6 mars 2006
-
vincent

j'attend de la proprété locked que lorsque je réactive la protection de
la feuille les cellules dont la propriété locked est mise a false me
soit accessible en écriture.

Mais quand mon code arrive sur le
petit personnage en rouge mon programme plante et m'envois le message
d'erreur en me dissant que la cellule n'a pas de propriété locked.je ne
comprend pas donc . voila donc si vous voiez l'erreur merci de me
répondre.



Dim plage As Range

Dim cl As Range

Worksheets("Etape1").Activate

ActiveWorkbook.Unprotect



Set plage = Worksheets("Etape1").Range("A1:V100")

If Worksheets("Etape1").Range("A25").Interior.ColorIndex = 4 Then

For Each cl In plage

'cl correspond à la plage de cellule de la feuille Etape1 (A1:V100)

If cl.Interior.ColorIndex = 40 Then

cl.Locked = False



Else

cl.Locked = True

End If

Next cl



Worksheets("Etape1").Protect







lorsque mon programme passe dans cette fonction j'ai le message d'erreur suivant:



erreur d'éxécution 1004

impossible de définir la propriété locked de la classe range



merci d'avance

2 réponses

Messages postés
262
Date d'inscription
samedi 21 décembre 2002
Statut
Membre
Dernière intervention
19 décembre 2010
9
Bonjour,

La feuille "Etape1" ne serait-elle pas protégée au moment du "cl.Locked = False" ? Si oui, il faut d'abord la déprotéger avec :

Worksheets("Etape1").Unprotect

wape
Messages postés
9
Date d'inscription
lundi 6 février 2006
Statut
Membre
Dernière intervention
6 mars 2006

vincent



non j'ai vérifié ma feuille est bien déprotègée . mais je voulais
savoir comme je modifie l'apparence de excel dans mon
programme est ce que les propriétés des cellules sont encore
accessibles. car j'ai essayé cette partie de programme dans
un nouveau classeur excel , sans modifier l'apparence et ca marche donc
?