Excel 2010 verwijderen werk en menubalk

[Sytse1]

(Verplaatst vanuit Excel)
In een werkmap worden alle tabbladen bestuurd middels knoppen met vba opdrachten.
Ik zou bij het starten van de werkmap in ThisWorkbook de vba code willen hebben die er voor zorgt dat alle werk en menu balken niet zichtbaar zijn.
Bij het afsluiten (dmv de vba knop) worden de werkbalken dan weer zichtbaar gemaakt.
Met bijgaande vba code doe ik een poging maar het standaard menu kan ik niet verwijderen!
Wellicht is het eenvoudiger om alle menu en werkbalken eerst in te lezen en vervolgens Visible = False te maken.
Maar dan moet wel weten hoe ik alle menu en werkbalken weer True kan maken.
Vandaar dat het mij eenvoudiger lijkt om alle te benoemen.
In de hulpmodule kan ik echter niet alle namen achterhalen.
Heeft iemand een oplossing?
b.v.d.Sytse

Sub Mcr_VerwijderWerkbalken()
 ActiveWindow.DisplayHeadings = False
 ActiveWindow.DisplayGridlines = False
 Application.CommandBars("Standard").Visible = False
 Application.CommandBars("Formatting").Visible = False
 Application.CommandBars("Worksheet menu Bar").Enabled = False
 Application.DisplayFormulaBar = False
 Application.DisplayStatusBar = False
 Application.DisplayFormulaBar = False
 ActiveWindow.DisplayWorkbookTabs = False
 ActiveWindow.DisplayHeadings = False
 Application.AskToUpdateLinks = False
 Application.ShowSelectionFloaties = False
 Application.EnableLivePreview = False

End Sub

 

[edmoor]

Deze is niet voldoende naast de headings en gridlines?
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",False)"

 

[Sytse1]

Geweldig.
Dit was precies wat ik zocht.
Bedankt.
Sytse