Изменение доступности для пункта меню с помощью VBA в Microsoft Excel

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