VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Das Extras-Menü aktivieren/deaktivieren

Gruppe

Menue

Bereich

PopUp

Thema

Das Extras-Menü aktivieren/deaktivieren

Problem

Das Extras-Menü soll aktiviert bzw. deaktiviert werden.

Lösung

Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.




StandardModule: Modul1

Sub ExtrasEinAus()
   Dim ctr As CommandBarControl
   Set ctr = Application.CommandBars("Worksheet Menu Bar").Controls("Extras")
   With ctr
      .Enabled = Not .Enabled
   End With
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Menue und PopUp