Wechselschalter
#1
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
Top
#2
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
Gruß der AlteDresdner (Win11, Off2021)
[-] Folgende(r) 1 Nutzer sagt Danke an AlterDresdner für diesen Beitrag:
  • Babsi
Top
#3
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
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Babsi
Top
#4
Hallo Uwe,

ich bin begeistert - danke schön!


@ Alter Dresdner

Auch Dir vielen Dank!

Grüße, Babs
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste