Eliminer la barre de menu "feuille de calcul"

Question

Salut, est-il possible d'effacer par VBA la barre de menu qui contient : fichier,edition,affichage...

j'ai essaye: Application.CommandBars("Worksheet Menu Bar").Visible = False mais ca me donne une erreur.

Voici la macro dans laquel on pourrais ajouter le code:

Private Sub CommandButton13_Click() 'bouton VIEW

If actif = True Then
          actif = False
          ActiveWindow.DisplayWorkbookTabs = False
          ActiveWindow.DisplayHorizontalScrollBar = False
          Application.CommandBars("Standard").Visible = False
          Application.CommandBars("Formatting").Visible = False
          Application.CommandBars("Stop Recording").Visible = False
          Application.CommandBars("Visual Basic").Visible = False
          ActiveWindow.DisplayHeadings = False
          'Application.CommandBars("Worksheet Menu Bar").Visible = False

      Else
         actif = True
          ActiveWindow.DisplayWorkbookTabs = True
         ActiveWindow.DisplayHorizontalScrollBar = True
         Application.CommandBars("Standard").Visible = True
         Application.CommandBars("Formatting").Visible = True
         Application.CommandBars("Stop Recording").Visible = True
         Application.CommandBars("Visual Basic").Visible = True
         ActiveWindow.DisplayHeadings = True
         'Application.CommandBars("Worksheet Menu Bar").Visible = True

End If

End Sub

patrick33 · Answer

Bonsor,

essaie ceci dans "Thiswookbook":

Private Sub Workbook_Open()

Application.CommandBars(1).Enabled = False

Application.DisplayFullScreen = False

End Sub

SI Application.DisplayFullScreen =true on supprime aussi tout, mais pas forcemment interessant. A voir

Cordialement