Barres d'outils

[guy72]

Bonjour à tous,
Dans certains fichiers je voudrais enlever toutes les barres, et ne laisser
que la barre bleue et la barre des menus.
Pas de problème pour faire ça.
Par contre, quand j'ouvre un autre fichier je voudrais la configuration
classique et je ne l'ai pas, j'ai la configuration sans les barres.
Bref y a t'il un moyen d'avoir une configuration personnalisée à l'ouverture
de certains fichiers.
Cordialement
Guy

 

[pierrejean]

Re : Barres d'outils

bonjour guy72

une solution (a adapter)

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  Application.CommandBars("Standard").Visible = True
End Sub
Private Sub Workbook_Open()
 Application.CommandBars("Standard").Visible = False
End Sub