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