problème avec l'extention locked de Range

Question

vincent

j'attend de la propr&#233;t&#233; locked que lorsque je r&#233;active la protection de
la feuille les cellules dont la propri&#233;t&#233; locked est mise a false me
soit accessible en &#233;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&#233;t&#233; locked.je ne
comprend pas donc . voila donc si vous voiez l'erreur merci de me
r&#233;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 &#224; 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'&#233;x&#233;cution 1004

  impossible de d&#233;finir la propri&#233;t&#233; locked de la classe range

  

  merci d'avance

cs_wape · Answer

Bonjour,

La feuille "Etape1" ne serait-elle pas prot&#233;g&#233;e au moment du "cl.Locked = False" ? Si oui, il faut d'abord la d&#233;prot&#233;ger avec :

Worksheets("Etape1").Unprotect

wape

vinci05 · Answer

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

Problème avec l'extention locked de Range

2 réponses

Discussions similaires