Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Lister les barres d'outils

E

Eliot

Guest
BJR toutes et tous
En VBA je désire à l'ouverture d'un classeur XL2000, créer une macro qui vérifie les barres d'outils affichées dans le but de les masquer puis, avant de quitter, de les ré afficher. Quelqu'un a bien cela dans son chapeau ;-)
Merci de conseiller. Cordialement.
Eliot.
 
R

Rv_Mikey

Guest
Bonjour Eliot,

Personnellement, j'ai mis sous vba dans Objects, thisworkbook, cette ligne de commande qui me cache la barre d'outils "Standard". J'ai aussi listé toutes les autres barres d'outils. Aucune des barres d'outils ne s'affiche a l'ouverture d'excel.

Application.CommandBars("Standard").Visible = False

mon code est le suivant :

Private Sub Workbook_Open()
Application.CommandBars("Standard").Visible = False
Application.DisplayFormulaBar = False ' cache la barre de formule
Application.DisplayStatusBar = False ' cache la barre d'état
end sub

Pour la fermeture, workbook_close et le même code avec les valeurs true de ce que tu veux afficher en sortant.

Bon courage et j'espère être clair.....

Rv Mikey...............
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…