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