Question de barres

Bonjour

essaie ce code

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

Bon courage

Pascal

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