Anti-FAQ: Jak zablokować wybrane opcje na pasku menu?
Sposób podał Dariusz M (dmarzoch@mailer.cst.tpsa.pl), poniżej cytuję tekst Dariusza w całości:

Na bazie jakiegoś artykułu MS utworzyłem taką procedurkę i ją stosuję (czyli działa):
Sub MenuAvailable(MenuBarName As String, MenuName As String, _
	ctrName As String, bolEnable As Boolean)
'---------------------------------------------------------------------------
'Proceura to sluzy do wlaczania i wylaczania dostepnosci menu
'PARAMETRY:
'       MenuBarName - nazwa paska menu
'       MenuName    - nazwa  menu
'       ctrName     - nazwa opcji menu
'       bolEnable   - (TRUE/FALSE) wlazcenie czy woleczenie dostepnosci)
'Sample: MenuAvailable "Pasek testowy","Menu test","Opcja",False
'---------------------------------------------------------------------------
On Error GoTo MenuAvailable_Err
Dim cbc As CommandBarControl
	Set cbc = CommandBars(MenuBarName).Controls(MenuName).CommandBar.Controls(ctrName)
	cbc.Enabled = bolEnable

MenuAvailable_End:
	Exit Sub
MenuAvailable_Err:
	MsgBox Err.Number & " - " & Err.Description, vbCritical, "Application Error"
	Resume MenuAvailable_End
End Sub
DariuszM