Workbook in Fullscreen öffnen

Hallo liebe Communtiy-Mitgleider,
Ich arbeite an einer Anwendung auf Basis von Excel-VBA.
In einem Workbook habe ich eine GUI entworfen, die dann auf andere Workbooks zugreifen und sich Daten von dort holen sollte.
Nun möchte ich das Workbook "GUI" bei jedem Start in Fullscreen und z.B. ohne Bildlaufleiste öffnen, dies habe ich soweit geschafft mit:
Application.Caption = ""
ActiveWindow.Caption = "User Interface"
'''
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayExcel4Menus = False
Application.DisplayFullScreen = True
Application.ShowWindowsInTaskbar = False
Application.DisplayScrollBars = False
Mein Problem ist es, dass wenn ich eine andere Arbeitsmappe öffne, startet sie in dem Modus von "GUI", also in Fullscreen und ohne Bildlaufleiste.
Könnte mir jemand dabei helfen? Wäre super nett
Grüße
Munzir

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi,
ich habe es jetzt so gemacht

Private Sub Auto_Open()
'Sheets("GUI_1").Select
Sheets("GUI_1").ScrollArea = "$A$1"
Sheets("GUI_2").ScrollArea = "$B23:$U87159"
Sheets("GUI_3").ScrollArea = "$B23:$U87159"
If ActiveWorkbook.Name = "GUI" Then
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Application.DisplayExcel4Menus = False
Application.DisplayFullScreen = True
Application.DisplayScrollBars = False
Else
Application.CommandBars("Worksheet Menu Bar").Enabled = True
Application.DisplayExcel4Menus = True
Application.DisplayFullScreen = False
Application.DisplayScrollBars = True
'Call Workbook_Deactivate
End If
End Sub

das funktioniert leider nicht. Ich denke ich mache das was falsch, erkenne ich es aber noch nicht..
Grüße Munzir

Private Sub Auto_Open() 'Sheets("GUI_1").Select Sheets("GUI_1").ScrollArea = "$A$1" Sheets("GUI_2").ScrollArea = "$B23:$U87159" Sheets("GUI_3").ScrollArea = "$B23:$U87159" If ActiveWorkbook.Name = "GUI" Then Application.CommandBars("Worksheet Menu Bar").Enabled = False Application.DisplayExcel4Menus = False Application.DisplayFullScreen = True Application.DisplayScrollBars = False Else Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.DisplayExcel4Menus = True Application.DisplayFullScreen = False Application.DisplayScrollBars = True 'Call Workbook_Deactivate End If End Sub

Private Sub Workbook_Activate() Application.CommandBars("Worksheet Menu Bar").Enabled = False Application.DisplayExcel4Menus = False Application.DisplayFullScreen = True Application.DisplayScrollBars = False End Sub

Private Sub Workbook_Deactivate() Application.CommandBars("Worksheet Menu Bar").Enabled = True Application.DisplayExcel4Menus = True Application.DisplayFullScreen = False Application.DisplayScrollBars = True End Sub

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Workbook in Fullscreen öffnen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread