Ändern Sie die Verfügbarkeit für ein Menüpunkt mit VBA in Microsoft Excel
Das folgende Makro zeigt, wie Sie den Verfügbarkeitsstatus für einen Menüpunkt umschalten können.
Sub ToggleMenuControls() Dim m As CommandBarControl, mi As CommandBarControl Set m = CommandBars.FindControl(ID:=30002) ' File Menu If m Is Nothing Then Exit Sub For Each mi In m.Controls If mi.ID = 18 Then mi.Enabled = Not mi.Enabled ' toggles the state for the Print menu Next mi Set mi = Nothing Set m = Nothing End Sub