Hi zusammen,
vorab als Info: Ich nutze zum programmieren Excel 2013, der Code sollte aber auch in neueren Excel-Versionen funktionieren.
Ich habe eine Workbook, das im Fullscreen Modus läuft, bzw. laufen soll. Sämtliche Leisten sollen ausgeblendet werden, aber beim Öffnen oder Erstellen einer anderen Datei wieder eingeblendet.
Dazu habe ich im Workbook_Open sowie im Workbook_Activate sub den Code
Application.DisplayFullScreen = True
Im Workbook_Deactivate wird das wieder auf false gesetzt.
Grundsätzlich funktioniert das erstmal.
Bei folgenden Aktionen treten aber Probleme auf
1) Wenn ich das Fenster minimiere und wieder maximiere sind bis auf die Scrollleiste und die Workbooktabs alle Leisten wieder da. Dies lässt sich in Excel 365 vermeiden, indem ich im Workbook_WindowResize Sub auch den Fullscreen-Modus auf true setze. Das greift aber im Excel 2013 nicht.
2) Wenn ich aus meiner Datei heraus per Worksheets.Copy eine neue Datei erstelle, fehlen alle Leisten. Nutze ich Workbooks.open um eine vorhandene Datei zu öffnen, werden alle Leisten angezeigt.
Kann mir jemand da eine saubere Lösung zeigen, die in allen Excel-Versionen auch läuft und sowohl das Minimieren/Maximieren als auch die verschiedenen Möglichkeiten des Öffnens von anderen/neuen Dateien mit einbezieht?
Gerne kann ich auch noch zusätzlichen Code posten, ich habe aber definitiv keinen weiteren Code, der sich auf die Leisten bezieht.
Vielen Dank und viele Grüße
Jonas
|