Discussion :

[Prado77]

Bonjour à tous
Dans une macro vba je veux rendre invisible le texte d'une cellule qui n'est ni verrouillée, ni masquée.
L'instruction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(y + 8, x - 2).Font.Color = RGB(255, 255, 255)

qui s'exécute normalement si la feuille n'est pas protégée se bloque dès que la protection est activée!
Comment éviter ce blocage?
Merci de vos réponses
Cordialement

[Excelfan]

Bonjour Prado,
pour le blocage, je n'ai pas de réponse, mais pour ce qui est du masquage, tu peux le faire aussi via un format de nombre personnalisé avec uniquement trois points virgule ;;; qui signifient rien si positif, rien si négatif, rien si zéro et rien si c'est du texte. En vba, ça s'écrit : Selection.NumberFormat = ";;;"
Intérêt par rapport à écrire en blanc : si on fait une sélection englobant des cellules écrites en blanc, l'inversion vidéo affiche les données.

[Prado77]

Merci Excelfan
J'ai choisi le blanc car je dois pouvoir lire cette cellule lorsqu'elle est sélectionnée, mais ne pas l'afficher ni l'imprimer.
Mon problème est de changer la couleur de police par macro dans une feuille protégée.
Dans ma candeur je croyais que la protection de la feuille n'avait pas d'action sur une cellule ni verrouillée, ni masquée!
A+

[Excelfan]

... ok, pas de problème. Donc dans ta macro, tu enleves la protection et tu la remets quand tu as fini de faire tes manipulations. Ça ressemblera à ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    ActiveSheet.Unprotect
    ...
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

Utilise l'enregistreur pour récupérer le paramétrage de ta protection (autorisation de tri, de filtre, d'insertion de lignes, de colonnes, ...).

[Prado77]

OK mais je crois avoir trouvé plus simple :

Pour autoriser la modification par macro d'une cellule verrouillée il faut insérer dans Worksheet la macro de démarrage suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
    Worksheets(""Feuil1"").Protect userinterfaceonly:=True
End sub

Cela fonctionne chez moi
Merci de tes conseils
A+