Question de barres

[Ptitrobertpointfr]

Existe il une ligne de commande pour supprimer toutes les barres affichées ou faut il nommer chaque barre.

ex: Application.CommandBars("Standard").Visible = false

Merci.

 

[Pascal76]

Bonjour

essaie ce code

For Each cmdbar In CommandBars
If cmdbar.Visible = True Then cmdbar.Visible = False
Next

Bon courage

Pascal

 

[Ptitrobertpointfr]

Merci Pascal mais cela ne fonctionne pas.

Mais j'ai trouvé ça sur le net et c'est ok.



Sub Afficher_Les_Barres()

Dim Mbar As CommandBar
For Each Mbar In Application.CommandBars
If Mbar.BuiltIn = True Then
Mbar.Enabled = True
End If
Next

Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True

With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub

et mettre false à la place de true pour afficher les barres