Symbolleisten

weiter unten werdet ihr diese Frage bereits finden, leider bisher ohne Lösung.

Ich habe folgendes Problem:

Ich blende in einer Datei alle Symbolleistenmit folgendem Code aus und beim beenden wieder ein.

Sub auto_open()
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Sub auto_close()
Application.DisplayFullScreen = False
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Die Leisten bleiben jedoch verschwunden wenn ich nur in eine andere Datei wechsele ohne zu schließen.
Wie kann ich die Symbolleisten nur für eine bestimmte Datei ausblenden so dass die Leisten in anderen Dateien weiterhin zur Verfügung stehen.

Anugyan hatte folgenden Ansatz:

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
Application.DisplayFullScreen = True
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub

Private Sub Workbook_WindowDeactivate(ByVal Wn As Window)
With Application
.DisplayFullScreen = False
.CommandBars("Full Screen").Visible = True
.CommandBars("Worksheet Menu Bar").Enabled = True
End With
End Sub

Leider funktioniert das ganze nicht. Weiß jemand wo der Fehler liegt?

Danke auch an Hajo, RAnton und Andreas Walter für die Lösungsversuche. Leider hat das bisher auch nicht geholfen.

Gruß
Carsten