Microsoft Excel에서 VBA를 사용하여 메뉴 항목에 대한 가용성을 변경

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