Collage couleur et valeur ... Dans une feuille protégée ?

[karinette]

Bonjour à tous ....
Voila, j'ai une macro qui me met de la couleur et des carractères dans une zone que je choisie ... (merci à tototiti2008)

Sub affectclient()
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 0
Selection.Font.Bold = True
Selection.FormulaR1C1 = "client"
End Sub

ça marche très bien mais dès que je protège la feuille, problème !!
Même avec des cellules non protégées ....
Y'aurait 'il une astuce pour colorer et remplir des cellules dans une feuille protégée ???

 

[Pierrot93]

Re : Collage couleur et valeur ... Dans une feuille protégée ?

Bonjour Karinette

A priori, en plus de déverouiller les cellules, lorsque tu protèges ta feuille, il faut aussi cocher autoriser le format des cellules.

bonne soirée
@+

 

[phlaurent55]

Re : Collage couleur et valeur ... Dans une feuille protégée ?

Bonjour Karinette, pierrot

Voila, j'ai une macro qui me met de la couleur et des carractères dans .............

puisque cela se passe par macro, déprotège ta feuille en début de macro .....et reprotège en fin de macro

 

[karinette]

Re : Collage couleur et valeur ... Dans une feuille protégée ?

Bonjour Karinette

A priori, en plus de déverouiller les cellules, lorsque tu protèges ta feuille, il faut aussi cocher autoriser le format des cellules.

bonne soirée
@+

Super ....
J'avais pas vu l'option ...
Merci

 

[Pierrot93]

Re : Collage couleur et valeur ... Dans une feuille protégée ?

Re, bonsoir phlaurent

A noter, si tu veux protéger ta feuille sans t'occuper de dévérouiller les cellules et autoriser les formats, tu protèges ta feuille à l'ouverture en utilisant l'argument "userinterfaceonly" :

code ci dessous à placer dans le module "thisworkbook", se déclenche à l'ouverture du classeur.

Option Explicit
Private Sub Workbook_Open()
Sheets("Feuil1").Protect "toto", userinterfaceonly:=True
End Sub

bonne soirée
@+