Bonjour à tous du forum,
besoin que la barre outil "Standard" est affiché
et que toutes les autres barres outils, ainsi que la barre de menu ne sont plus affichées.
Mais la barre outil "Standard" n'est pas affiché, ne sais pas comment résoudre.
j'utilise le code suivant:
besoin que la barre outil "Standard" est affiché
et que toutes les autres barres outils, ainsi que la barre de menu ne sont plus affichées.
Mais la barre outil "Standard" n'est pas affiché, ne sais pas comment résoudre.
j'utilise le code suivant:
Code:
[COLOR="green"]'supprimer toutes les barres de menus[/COLOR]
Sub Cache_Barre_Outils()
Dim CmdB As CommandBar
For Each CmdB In Application.CommandBars
CmdB.Enabled = False
Next CmdB
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayHeadings = False
.DisplayWorkbookTabs = False
End With
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
Application.CommandBars("Standard").Visible = True [COLOR="Green"]'afficher barre outil "Standard"[/COLOR]
End Sub
Dernière édition: