Excel menü Çubuklarının gizlenmesi, aktif edilmesi

Excel çalışma kitabımızı bazen kişiselliştirmek isteriz. Örneğin çalışma kitabımızın altındaki sayfa isimlerinin olduğu menü çubuğunu 3. kullanıcalırdan gizlemek istediğimizde "ActiveWindow.DisplayWorkbookTabs = False" kodunu kullanmamız işimizi görecektir.

---

Sub Auto_open()
    Application.DisplayFullScreen = True
    Application.CommandBars("Full Screen").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Standard").Visible = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayOutline = False
    ActiveWindow.DisplayZeros = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayWorkbookTabs = False
    Application.DisplayFormulaBar = False
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False 'satır ve sütunu kaldırır
 End Sub
  
 End Sub

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

excelvbaexcel vba,