Private Sub Workbook_Open()
    
    With ActiveWindow
    Application.DisplayFullScreen = True ' раскрываем окно на полный экран
        .DisplayHorizontalScrollBar = False 'скрываем горизонтальную полосу прокрутки
        .DisplayVerticalScrollBar = False ' скрываем вертикальную полосу прокрутки
        .DisplayWorkbookTabs = False 'скрываем ярлыки листов
        ActiveWindow.DisplayGridlines = False 'скрываем сетку
        ActiveWindow.DisplayHeadings = False 'скрываем названия строк и столбцов
    End With
   End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   With ActiveWindow
    Application.DisplayFullScreen = False ' отключаем полноэкранный режим
        .DisplayHorizontalScrollBar = True 'включаем горизонтальную полосу прокрутки
        .DisplayVerticalScrollBar = True ' влючаем вертикальную полосу прокрутки
        .DisplayWorkbookTabs = True 'включаем отображение ярлыков листов
        ActiveWindow.DisplayGridlines = True 'включаем линии сетки
        ActiveWindow.DisplayHeadings = True 'включаем заголовки строк и столбцов
    End With
End Sub