Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.DisplayFullScreen = False
End Sub
Private Sub Workbook_Open()
ActiveWindow.DisplayGridlines = False
ActiveWindow.DisplayHeadings = False 'celulle
Application.DisplayFullScreen = True 'fullscreen
ActiveWindow.DisplayVerticalScrollBar = False 'asc Vert
ActiveWindow.DisplayWorkbookTabs = False
End Sub