Macro ou événement pour afficher et masquer les barres d’outils, Excel VBA

Si vous avez un classeur que vous souhaitez avoir une vue aussi grande que possible et que vous n’avez pas besoin du menu et des barres d’outils, masquez simplement ces éléments après avoir ouvert le classeur. Peu de temps avant de fermer le classeur, restaurez l’état d’origine et affichez à nouveau le menu et les barres d’outils.

Private Sub Workbook_Open()
Dim cbarre As CommandBar
For Each cbarre In Application.CommandBars
cbarre.Enabled = False
Next cbarre
End Sub

 

Commentaires:

■ Définissez une variable d’objet du type CommandBar, puis utilisez une boucle For Each pour vous assurer que les barres individuelles sont masquées à l’aide de la propriété Enabled.

■ Pour ce faire, définissez cette propriété sur la valeur False.

L’événement Workbook_BeforeClose garantit que le menu et les barres d’outils sont automatiquement restaurés avant la fermeture du classeur.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim cbarre As CommandBar
For Each cbarre In Application.CommandBars
cbarre.Enabled = True
Next cbarre
End Sub

 

S’abonner
Notifier de
0 Commentaires
Inline Feedbacks
Voir tous les commentaires

Initiation à Excel

Fonctions Excel

Excel VBA

Macros VBA Utiles

Plus d'outils

Sur Facebook

Sur YouTube

0
Nous aimerions avoir votre avis, veuillez laisser un commentaire.x
()
x