Kann mit folgendem Script nicht alle Menüs ausblenden:
Sub Alles_ausblenden()
With Application
.ScreenUpdating = True
.CommandBars("toolbar list").Enabled = False
.CommandBars("Worksheet Menu Bar").Enabled = False
'.CommandBars("Cell").Enabled = False '--------rechte Maustaste Menü
.DisplayFormulaBar = False
.DisplayStatusBar = False
.DisplayFullScreen = True
End With
With ActiveWindow
.DisplayHorizontalScrollBar = False
.DisplayVerticalScrollBar = False
.DisplayWorkbookTabs = False
.DisplayHeadings = False
.WindowState = xlMaximized
End With
End Sub
Es bleibt leider immer noch: Formelüberwachung und Ganzer Bildschirm, wie kann ich diese 2 auc noch wegblenden.
Danke im voraus.
Grüsse Georg