[VBA] Retirer la barre de menu

c'est une bouton qui peut t'aider de baloncer ver l'affichge ou non de tout l'interface EXcel
salutation

essayer de faire ça
Private Sub CommandButton1_Click()
Dim CmdB As CommandBar
If ActiveWindow.DisplayHeadings = False Then

Application.DisplayStatusBar = True
Application.DisplayFormulaBar = True
With ActiveWindow
.DisplayGridlines = True ' dislay le Grille
.DisplayHeadings = True ' headings les cordonnées a b c ...-- 1 2 3 ..
.DisplayHorizontalScrollBar = True 'vertical et horizental scrol bar
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True 'les feuiles
End With

' Bare de menu
For Each CmdB In Application.CommandBars
If CmdB.Enabled = False Then
CmdB.Enabled = True
End If
Next CmdB

Else

Application.DisplayStatusBar = False
Application.DisplayFormulaBar = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
' Bare de menu
For Each CmdB In Application.CommandBars
If CmdB.Enabled = True Then
CmdB.Enabled = False
End If
Next CmdB

End If

End Sub

up

Bonjour,

Je ne vois pas de quel menu tu parles. Mais n'hésites pas à utiliser l'enregistreur de macro (Outils / Nouvelle macro...) pour voir le code qu'il te faut. Enfin a priori c'est ce code... Es-tu certain du nom de la barre ?

Sir_DEC

Un menu a la propriété Enabled alors qu'une barre d'outils a la propriété visible. Tu as vu la différence si tu as essayé d'enlever la abrre de menu par la personnalisation.