[VBA] Retirer la barre de menu
Dog killer
Messages postés
57
Date d'inscription
Statut
Membre
Dernière intervention
-
mohamed -
mohamed -
Bonjour,
Je voudrais retirer la barre de menu de ma feuille de classeur alors j'ai créé une macro pour retirer toutes les barres mais il m'est impossible d'enlever celle la merci de votre aide.
ca me génère une érreur: -2147467259 (80004005)
Je voudrais retirer la barre de menu de ma feuille de classeur alors j'ai créé une macro pour retirer toutes les barres mais il m'est impossible d'enlever celle la merci de votre aide.
Application.CommandBars("Worksheet Menu Bar").Visible = False
ca me génère une érreur: -2147467259 (80004005)
A voir également:
- [VBA] Retirer la barre de menu
- Menu déroulant excel - Guide
- Windows 11 barre des taches a gauche - Guide
- Changer la couleur de la barre des taches - Guide
- Barre de défilement - Guide
- Comment remettre la barre des tâches à la normale ? - Guide
4 réponses
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
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
