Vollbildmodus umschalten
Lutz
kann mir jemand zu nachfolgendem Problem einen Lösungsansatz "verraten"?
Habe eine Arbeitsmappen, die beim Öffnen Excel auf Vollbildmodus umschaltet und beim Schließen den Vollbildmodus beendet.
Wenn ich jetzt eine zweite Arbeitsmappe mit der gleichen Funktionalität öffne und wieder schließe, soll erst mit der letzten Arbeitsmappe (die geöffnet und die mit dieser Funktionalität ausgestattet ist), der Vollbildmodus aufgehoben werden.
Leider Fällt mir keine Lösung ein, wie ich Arbeitsmappenübergreifend die Abfrage gestalten muß.
anbei der verwendete Code:
'
'******************************************************************
'Steuerung Bildschirm auf Vollbildmodus, Einstellungen Arbeitsmappe
'******************************************************************
'
'ganzer Bildschirm einschalten
Private Sub Workbook_Open()
On Error Resume Next
'Call schutz_aus
'Arbeitsmappe Einstellungen
With Application
.Calculation = xlCalculationAutomatic
.DisplayFormulaBar = True 'Bearbeitungsleiste einschalten
.DisplayFullScreen = True
.WindowState = xlMaximized
End With
'Call schutz_ein
ActiveWindows.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
End Sub
'ganzer Bildschirm ausschalten
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Application.DisplayFullScreen = True Then Application.DisplayFullScreen = False
End Sub
Lutz