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