Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Das Extras-Menü aktivieren/deaktivieren

Gruppe

PopUp

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