Eğitim Kapanışta Excel Menülerini Gösteren Kod

Sub Auto_close()
Application.DisplayFullScreen = False 'ekranı tam ekran yapar
Application.CommandBars("Full Screen").Visible = False
Application.CommandBars("Formatting").Visible = True 'biçimlendirme araç çubuğu
Application.CommandBars("Standard").Visible = True 'standar araç çubuğu
Application.DisplayFormulaBar = True
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayOutline = True
ActiveWindow.DisplayZeros = False
ActiveWindow.DisplayHorizontalScrollBar = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayWorkbookTabs = False
Application.DisplayFormulaBar = False 'formul çubuğunu görünür yapar
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False 'satır ve sütunu kaldırır
End Sub