Microsoft 365 Affichage à l'ouverture du classeur

Private Sub Workbook_Open()
Application.DisplayFullScreen = True
If Worksheets.Count Then
    Application.Goto Worksheets(1).[D10], True 'cadrage à adapter
    With ActiveWindow
        .DisplayHeadings = False
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
End If
Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub