Vollbild-Schalter / Toolbar einblenden bei Mappenwechsel

[peacescorer]

Liebe Freunde

Für eine etwas umfangreiche Tabelle blende ich den oberen Excel-Teil im Workbook.open - Teil aus. Bei Beendigung wieder ein.

Leider wird wenn ich zwischenzeitlich eine andere Mappe öffne, diese natürlich auch ohne den Ribbon/Toolbar-Teil angezeigt.
(Sofern ich meine Mappe nicht vorher schliesse und mit "BeforeClose"-Ereignis Excel wieder einblende.
Was am Anfang etwas gestört hat, ist mittlerweile mehr als ärgerlich...

Hat jemand einen Tipp, wie ich durch eine Art "Mappenwechsel-Ereignis " den Toolbar-Teil automatisch wieder einblenden kann?

Ich wäre froh um jeden Input - Danke schon im voraus!

Christian

Code:

Sub Symbolleiste_ausblenden()
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayGridlines = False
    Application.DisplayFormulaBar = False
End Sub

Sub Symbolleiste_einblenden()
    Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", True)"
    ActiveWindow.DisplayHeadings = True
    ActiveWindow.DisplayGridlines = True
    Application.DisplayFormulaBar = True
End Sub

[volti]

Hallo Christian,

da sollten doch diese beiden Funktionen hilfreich sein:

Code:

' In DieseArbeitsmappe
Private Sub Workbook_WindowActivate(ByVal Wn As Window)
  Symbolleiste_ausblenden
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
 Symbolleiste_einblenden
End Sub

_________
viele Grüße
Karl-Heinz