G Guest Dec 23, 2004 #1 Is there visual basic that will allow me to disable "options" under "tools" from the menu bar?
R Ron de Bruin Dec 23, 2004 #2 Hi Try this Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = False More info here http://www.rondebruin.com/menuid.htm
Hi Try this Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = False More info here http://www.rondebruin.com/menuid.htm
G Guest Dec 23, 2004 #3 That works perfect thanks! Merry xmas Ron de Bruin said: Hi Try this Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = False More info here http://www.rondebruin.com/menuid.htm Click to expand...
That works perfect thanks! Merry xmas Ron de Bruin said: Hi Try this Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = False More info here http://www.rondebruin.com/menuid.htm Click to expand...
G Guest Dec 23, 2004 #4 Just wondering....if I wanted to place a command button on sheet1 to restore the options menu item is this possible? I tried this: Private Sub OptOn_Click() Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = True End Sub But nothing happens.
Just wondering....if I wanted to place a command button on sheet1 to restore the options menu item is this possible? I tried this: Private Sub OptOn_Click() Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = True End Sub But nothing happens.
R Ron de Bruin Dec 23, 2004 #5 Use ActiveCell.Activate Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = True
Use ActiveCell.Activate Application.CommandBars("Worksheet Menu Bar").FindControl _ (ID:=522, Recursive:=True).Enabled = True