Supportnet / Forum / Tabellenkalkulation
Vollbild in Excel
Frage
Habe noch eine Frage :
Wie geht das wenn ich eine Datei starte das ich ein Vollbild habe und nichts oben zum Anklicken und dann beim Schließen wieder alles Oben ist für eine andere Datei.
Habe was gefunden wenn ich das makro Starte dann habe ich ein Vollbild ! aber wenn ich dann eine andere Datei starte habe ich auch ein vollbild da möchte ich aber nicht , es soll nur bei der 1 Datei ein vollbild sein und bei anderen nicht .
nochmals danke für eure hilfe
mfg Rolf
Antwort 1 von JoeKe
Hallo Rolf,
kopiere folgende Code in das VBA-Projekt deiner Mappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub
Die Workbook_Open Sub blendet dir alles beim öffnen der Mappe aus, die Before_Close vor dem Schließen wieder alles ein.
MfG
JöKe
kopiere folgende Code in das VBA-Projekt deiner Mappe:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.CommandBars("Worksheet Menu Bar").Enabled = True
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub
Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.CommandBars("Worksheet Menu Bar").Enabled = False
With ActiveWindow
.DisplayGridlines = False
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
End Sub
Die Workbook_Open Sub blendet dir alles beim öffnen der Mappe aus, die Before_Close vor dem Schließen wieder alles ein.
MfG
JöKe
Antwort 2 von JoeKe
Nachtrag
zum Ausblenden der Statusleiste:
Application.DisplayStatusBar = False
in die Open-Anweisung nach oder vor
Application.CommandBars("Worksheet Menu Bar").Enabled = False
einfügen.
in die Close-Anweisung nach oder vor
Application.CommandBars("Worksheet Menu Bar").Enabled = True
einfügen.
zum Einblenden der Statusleiste:
Application.DisplayStatusBar = True
zum Ausblenden der Statusleiste:
Application.DisplayStatusBar = False
in die Open-Anweisung nach oder vor
Application.CommandBars("Worksheet Menu Bar").Enabled = False
einfügen.
in die Close-Anweisung nach oder vor
Application.CommandBars("Worksheet Menu Bar").Enabled = True
einfügen.
zum Einblenden der Statusleiste:
Application.DisplayStatusBar = True
Antwort 3 von Bischoff2000
Jo geht super genau das habe ich noch gebraucht
Danke Rolf
Danke Rolf