Discussion :

[jackfred]

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jackfred]

Ok merci je vais etudier ca

fred