Ganzer Bildschirm automatisch an/aus
Jürgen
ich möchte meine Excel-Anwendung automatisch im Vollbildmodus ohne Symbolleisten starten.
Beim Beenden soll dann wieder der Originazustand hergestellt werden.
Unter Excel 2000 habe ich dies mit folgendem Code gemacht und es hat funktioniert:
Private Sub Workbook_Open()
Application.ScreenUpdating = False
Application.DisplayFullScreen = True
Application.CommandBars("Web").Enabled = False
Application.ScreenUpdating = True
On Error GoTo fehler
Worksheets("Hauptübersicht").Activate
Exit Sub
fehler:
MsgBox "Die Tabelle ist nicht vorhanden!"
End Sub
--------------------------------
Private Sub Workbook_Close()
Application.ScreenUpdating = False
Application.DisplayFullScreen = False
Application.CommandBars("Web").Enabled = True
Application.ScreenUpdating = True
End Sub
Mit Excel 2003 funktioniert nur der Teil des Öffnens. Nach dem Schließen (durch Application.Quit) und erneutem Öffnen von Excel erscheint wieder der Volbildmodus ohne Symbolleisten.
An was kann das liegen?
Vielen Dank im voraus für Eure Antworten
Gruß Jürgen