Excelleiste ausblenden

Private Sub Workbook_Activate()
Leisten False
ActiveWindow.DisplayWorkbookTabs = False
Ene Sub

Private Sub Workbook_Deactivate()
Leisten True
ActiveWindow.DisplayWorkbookTabs = True
End Sub


Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
End Sub


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


Private Sub Workbook_Open()
Stand = Application.DisplayFormulaBar
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = False
End Sub

In einem Modul

Option Explicit

Dim Symbol As CommandBar                     

Public Stand As Boolean                        

Sub Leisten(AnAus As Boolean)                   

Application.ScreenUpdating = False          

For Each Symbol In Application.CommandBars  

Symbol.Enabled = AnAus                  

Next Symbol

If AnAus = False Then                      

Application.DisplayFormulaBar = False 

Else

Application.DisplayFormulaBar = Stand   

End If

Application.ScreenUpdating = True           

End Sub