Hallo Alle
Erst mal vielen Danke

Mein anliegen ich starte meine Datei in Vollbildmodus,aber die Zeilen und Spaltenbezeichnungen sind noch da die möchte ich auch weg haben hat jemand eine Lösung .

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
Application.DisplayStatusBar = 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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
Application.DisplayStatusBar = 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