masquer des colonnes quand la feuille est protégée

[yann]

Bonsoir à tous,

j'ai fait un bouton qui me permet de masquer des colonnes.

Sub masquer()
If Columns("D:F").EntireColumn.Hidden = False Then
Columns("D:F").EntireColumn.Hidden = True
Else
Columns("D:F").EntireColumn.Hidden = False
End If
End Sub

Seulement il ne fonctionne pas quand la feuille est protégée!

Que faut il rajouter?

Merci

 

[yann]

merci thierry pour ce bel exemple d'efficacité... Merci DJN90 pour ce suivi de mes problèmes.

besoin d'aide? je crois que j'en aurai toujours...

je commençais tout juste à assimiler le fonctionnement du simple bouton avec une petite macro derrière que voilà arriver le togglebutton.

Et là j'avoue que j'ai un blanc. Le clic droit dessus ne fait rien, je ne sais pas comment je peux faire pour créer un autre togglebutton auquel je pourrais changé juste quelques petits paramètres.
Car j'ai du mal à intégrer ces togglebutton à mon vrai fichier initial...

yann

 

[@+Thierry]

SAlut Yann


Il faut que tu actives la barre d'outils "CONTROLES" (pas la barre d'Outils Formulaires)

Tu auras un ToggleButton....

Pour travailler le premier bouton de cette barre d'outils CONTROLE et le mode CREATION (Design) il faut le désactiver pour rendre actif les boutons et inversement pour changer l'apparence etc des Boutons ou autres activeX...

Voilà pour les premiers à faire...

Reviens si tu as d'autres soucis...

@+Thierry

 

[yann]

C'est ok ))

Je suis vraiment content de ce que j'arrive à faire...

Merci à Thierry, DJN90 et à tous ceux qui se sont intéressés à mon problème.

Je reviendrai prochainement pour d'autres aventures...

Une toute dernière chose avant de partir. Comment fait on pour figer une ligne de telle sorte qu'elle ne bouge pas avec l'ascenceur???

@++

yann

 

[DJN90]

Bsr Yann,

Dans le menu "Fenêtre", options "fractionner" puis "Figer les volets"

Bonne soirée et nuit !

Dan