Trigger Action when Standard Menu Item Selected?

F

Filibuster

I would like to execute some code when a standard menu items is selected
(like 'Protect Sheet'). Is there a way to trap on a menu item? Or, do I
essentially need to customize the standard menu item?
 
R

Ron de Bruin

Hi Filibust

You can try this example for 'Protect Sheet'
For reset use
Mycontrol.OnAction = ""



Sub test()
Dim Mycontrol As CommandBarControl

Set Mycontrol = Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=893, Recursive:=True)

Mycontrol.OnAction = ThisWorkbook.Name & "!mymacro"
End Sub


Sub mymacro()
MsgBox "Hi"
End Sub
 
Top