Wechselschalter

[Babsi]

Hallo verehrtes Forum,

bitte freundlich um Hilfe für folgende Anwendung:

Mit Hilfe folgender 2 Makros werden z.B. Menueleisten an und ausgeschaltet.

Sub Menue_aus()
'
' Menue_aus Makro
' Makro am 26.07.2013 von Windows-Benutzer aufgezeichnet
'

'
    Application.CommandBars("Standard").Visible = False
    Application.CommandBars("Formatting").Visible = False
    Application.CommandBars("Worksheet Menu Bar").Enabled = False
End Sub
Sub Menue_ein()
'
' Menue_ein Makro
' Makro am 26.07.2013 von Windows-Benutzer aufgezeichnet
'

'
    Application.CommandBars("Standard").Visible = True
    Application.CommandBars("Formatting").Visible = True
    Application.CommandBars("Worksheet Menu Bar").Enabled = True
End Sub

Ist es möglich, beide Funktionen auch mit einem Makro zu steuern, so dass sich bei jedem Auslösen der mit dem Makro verbundenen Schaltfläche die Menueleisten ein- bzw. ausschalten?

Vielen Dank im Voraus,
Babs

[AlterDresdner]

Hallo Babs,
versuchs mal (ungetestet) mit

Sub Menue_umschalten()
Dim vis As Boolean
  With Application
    vis = Not .CommandBars("Standard").Visible 'neuer Status 
    .CommandBars("Standard").Visible = vis
    .CommandBars("Formatting").Visible = vis
    .CommandBars("Worksheet Menu Bar").Enabled = vis
  End With
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 14 - mit VBAHTML 12.6.0

Gruß der AlteDresdner

[Kuwer]

Hallo Babs,

Sub Menue_ein_aus()
'
' Menue_ein Makro
' Makro am 26.07.2013 von Windows-Benutzer aufgezeichnet
'

'
    Application.CommandBars("Standard").Visible = Not Application.CommandBars("Standard").Visible
    Application.CommandBars("Formatting").Visible = Not Application.CommandBars("Formatting").Visible
    Application.CommandBars("Worksheet Menu Bar").Enabled = Not Application.CommandBars("Worksheet Menu Bar").Enabled
End Sub

Gruß Uwe

[Babsi]

Hallo Uwe,

ich bin begeistert - danke schön!


@ Alter Dresdner

Auch Dir vielen Dank!

Grüße, Babs