Sub auto_open()
    MsgBox "Einblenden mit F11" & vbCr & "Ausblenden mit F12"
    Application.OnKey "{F11}", "einblenden"
    Application.OnKey "{F12}", "ausblenden"
    ausblenden
    'Application.WindowState = xlMaximized      'Excel Fenster auf Vollbild
    'ActiveWindow.WindowState = xlMaximized
End Sub

Sub auto_close()
    MsgBox "Tschüß!" & vbCr & "Es ist schon " & Time
    einblenden
End Sub

Sub ausblenden()
    'Variablen Deklaration
    Dim i As Integer
    Dim blattname As String
    
    'Blattnamen des Aktiven Blattes auslesen
    blattname = ActiveSheet.name
    
    On Error Resume Next                        'Globale Fehlerbehandlung
    Application.ScreenUpdating = False          'Bildschirm einfrieren
    Application.DisplayFullScreen = True        'Ansicht Ganzer Bildschirm
    Application.DisplayFormulaBar = False       'Bearbeitungsleiste
    
    For i = 1 To Sheets.Count
        Sheets(i).Select
        With ActiveWindow
            .DisplayHorizontalScrollBar = False
            .DisplayVerticalScrollBar = False
            .DisplayWorkbookTabs = False
            .DisplayGridlines = False
            .DisplayHeadings = False
        End With
    Next i
    
    'Zum ursprünglichen Blatt springen
    Sheets(blattname).Select
    Application.ScreenUpdating = True          'Bildschirm wieder aktivieren
    
End Sub

Sub einblenden()
    'Variablen Deklaration
    Dim i As Integer
    Dim blattname As String
    
    'Blattnamen des Aktiven Blattes auslesen
    blattname = ActiveSheet.name
    
    On Error Resume Next                        'Globale Fehlerbehandlung
    Application.ScreenUpdating = False          'Bildschirm einfrieren
    Application.DisplayFullScreen = False       'Ansicht Ganzer Bildschirm
    Application.DisplayFormulaBar = True        'Bearbeitungsleiste
    
    For i = 1 To Sheets.Count
        Sheets(i).Select
        With ActiveWindow
            .DisplayHorizontalScrollBar = True
            .DisplayVerticalScrollBar = True
            .DisplayWorkbookTabs = True
            .DisplayGridlines = True
            .DisplayHeadings = True
        End With
    Next i
    
    'Zum ursprünglichen Blatt springen
    Sheets(blattname).Select
    Application.ScreenUpdating = True          'Bildschirm wieder aktivieren
End Sub