ich möchte dem Benutzer der Excel-Tabelle gerne die Menüs nehmen.
Dazu habe ich nun folgen Code ergoogelt:
Sub Alles_Weg()
Application.DisplayFullScreen = True
Application.ScreenUpdating = False
Application.CommandBars("Worksheet Menu Bar").Enabled = False
Worksheets("Tabelle1").Activate
Application.DisplayFormulaBar = False
Application.DisplayStatusBar = False
ActiveWindow.DisplayHeadings = False
ActiveWindow.DisplayWorkbookTabs = False
ActiveWindow.DisplayVerticalScrollBar = False
ActiveWindow.DisplayHorizontalScrollBar = False
Application.ScreenUpdating = False
End Sub
Das klappt auch.... bis auf eine Sache. Ich kann in die Zellen nichts mehr reinschreiben. Wie muss ich den Code abändern?Gruß
Stefan