vba Barres d'outils

bonjour tt le monde

voilà.

Je cherche à lister l'ensemble des barres d'outils visibles et à les cacher à l'ouverture du fichier.

A la fermeture, il faudrait que les barres précédement cachées se remettent.

Il faut, je pense une variable elle même variable
(barre1, barre2, ...barreN)


Mais je ne sais pas quelle est le code pour lister les barres d'outils.

Merci bcp d'avance


Fred

Bonjour Jackfred,

Cette procédure supprime Barre d'outils, Barre de titre, Barre de menus (non testée sur Excel 2007).

Vous supprimez les lignes qui ne vous intéressent pas.

Il suffit de recopier ces lignes dans la procédure qui ferme le fichier et de remplacer "False" par "True" (ou pour la ligne qui contient "True" de remplacer par "False").

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Sub Auto_Open() CommandBars.ActiveMenuBar.Enabled = False   Dim CmdB As CommandBar For Each CmdB In Application.CommandBars If CmdB.Type <> msoBarTypeMenuBar Then CmdB.Enabled = False Next CmdB With Application .DisplayFullScreen = True .DisplayFormulaBar = False .CommandBars("Full Screen").Visible = False .DisplayStatusBar = False End With ActiveWindow.DisplayWorkbookTabs = False Application.EnableAutoComplete = False ActiveWindow.DisplayHeadings = False End Sub

---

Remarque : il faut savoir qu'il suffit d'ouvrir le fichier en appuyant sur la touche Shift pour que la procédure ne se lance pas.

Ok merci je vais etudier ca

fred