ausblenden?
Ich möchte am Ende nur noch ein eigenes Menü und das Tabellenblatt sehen...
Private Sub Worksheet_Activate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = False
Next
DoEvents
With ActiveWindow
.DisplayHeadings = False
.DisplayOutline = False
.DisplayZeros = False
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
End With
With Application
.DisplayFormulaBar = False
.DisplayStatusBar = False
End With
End Sub
Private Sub Worksheet_Deactivate()
Dim cb As CommandBar
For Each cb In Application.CommandBars
cb.Enabled = True
Next
DoEvents
With Application
.DisplayFormulaBar = True
.DisplayStatusBar = True
End With
With ActiveWindow
.DisplayHeadings = True
.DisplayOutline = True
.DisplayZeros = True
.DisplayHorizontalScrollBar = True
.DisplayVerticalScrollBar = True
.DisplayWorkbookTabs = True
End With
End Sub