Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema ScrollBar
BildScreenshot zu ScrollBar ScrollBar-Seite mit Beispielarbeitsmappe aufrufen

Menüs ausblenden

Betrifft: Menüs ausblenden von: Stefan Glander
Geschrieben am: 22.11.2014 10:18:33

Guten morgen Forum,

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

  

Betrifft: AW: Menüs ausblenden von: Crazy Tom
Geschrieben am: 22.11.2014 10:31:06

Hallo Stefan

so bleibt die Bearbeitungsleiste sichtbar

Sub Alles_Weg()
    Application.DisplayFullScreen = True
    Application.ScreenUpdating = False
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
    Worksheets("Tabelle1").Activate
    Application.DisplayFormulaBar = True '<-- Bearbeitungsleiste
    Application.DisplayStatusBar = False
    ActiveWindow.DisplayHeadings = False
    ActiveWindow.DisplayWorkbookTabs = False
    ActiveWindow.DisplayVerticalScrollBar = False
    ActiveWindow.DisplayHorizontalScrollBar = False
    Application.ScreenUpdating = False
End Sub

MfG Tom


  

Betrifft: AW: Menüs ausblenden von: Stefan Glander
Geschrieben am: 22.11.2014 12:47:17

Hallo Tom,
aus irgend einem Grund haut das nicht hin, aber...
habe einen anderen Weg gefunden der auch prima hinhaut.

Private Sub HideRibbon()
Application.ExecuteExcel4Macro "Show.Toolbar(""Ribbon"", False)"
End Sub
Gruß
Stefan


 

Beiträge aus den Excel-Beispielen zum Thema "Menüs ausblenden"