Du beau et plein écran !...

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.ScreenUpdating = False
With ActiveWindow
        .DisplayHeadings = True
        .DisplayGridlines = True
        .DisplayHorizontalScrollBar = True
        .DisplayVerticalScrollBar = True
        .DisplayWorkbookTabs = True
End With
Application.DisplayFullScreen = False
ActiveWorkbook.Save
Application.ScreenUpdating = True
End Sub

Private Sub Workbook_Open()
Application.ScreenUpdating = False
With ActiveWindow
        .DisplayHeadings = False
        .DisplayGridlines = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
End With
Application.DisplayFullScreen = True
Application.ScreenUpdating = True
End Sub

For Each Bar In CommandBars
    If Bar.Visible = True Then
        Bar.Visible = False
    End If
Next Bar

Option Explicit
Private Sub Workbook_Open()
    Application.DisplayFormulaBar = False
    Application.ShowSelectionFloaties = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.DisplayFormulaBar = False
    Application.ShowSelectionFloaties = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
        .DisplayWorkbookTabs = False
        .DisplayGridlines = False
        .DisplayHeadings = False
    End With
End Sub