Verbergen menubalk - aanpassing code

[mvanbe]

Goedemorgen,

Onderstaande code verbergt in Excel de menubalk waardoor er meer schermruimte ontstaat. Ook krijgt de gebruiker een 'applicatie' gevoel.
Opzich werkt dit prima op één nadeel na. Als deze code is geactiveerd, en er wordt een nieuw Excel bestand geopenend, dan wordt in dit bestand ook de menubalk verborgen.

Wie kan mij helpen aan de oplossing om onderstaand tot één bestand te beperken?

Alvast bedankt

I

Private Sub Workbook_Open()
    
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
    Application.ScreenUpdating = False
    
    ActiveWindow.Visible = False
    Opstartmenu.Show
    Windows(ThisWorkbook.Name).Visible = True
   
    Application.ScreenUpdating = True

    Sheet1.Activate
 

        
End Sub

 

[AccessGuru]

Extra macrootje?

Sub Workbook_New()
    Application.ScreenUpdating = False
    ActiveWindow.Visible = False
    Workbooks.Add
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
    Windows(ThisWorkbook.Name).Visible = True
    Application.ScreenUpdating = True
    Blad1.Activate
End Sub

 

[jkpieterse]

Ik zou het zo doen:

Private Sub Workbook_Activate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub

Private Sub Workbook_Deactivate()
    Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

 

[mvanbe]

Dank u zeer :thumb: Helemaal wat ik bedoel..!