Disable Option from tools in Menu bar
 

Is there visual basic that will allow me to disable "options" under "tools"
from the menu bar?

Disable Option from tools in Menu bar
 

Hi

Try this

Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=522, Recursive:=True).Enabled = False

More info here
http://www.rondebruin.com/menuid.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Qaspec" wrote in message ...
Is there visual basic that will allow me to disable "options" under "tools"
from the menu bar?

Disable Option from tools in Menu bar
 

That works perfect thanks! Merry xmas

"Ron de Bruin" wrote:

Hi

Try this

Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=522, Recursive:=True).Enabled = False

More info here
http://www.rondebruin.com/menuid.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Qaspec" wrote in message ...
Is there visual basic that will allow me to disable "options" under "tools"
from the menu bar?

Disable Option from tools in Menu bar
 

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.


"Ron de Bruin" wrote:

Hi

Try this

Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=522, Recursive:=True).Enabled = False

More info here
http://www.rondebruin.com/menuid.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Qaspec" wrote in message ...
Is there visual basic that will allow me to disable "options" under "tools"
from the menu bar?

Disable Option from tools in Menu bar
 

Use

ActiveCell.Activate
Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=522, Recursive:=True).Enabled = True


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Qaspec" wrote in message ...
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.


"Ron de Bruin" wrote:

Hi

Try this

Application.CommandBars("Worksheet Menu Bar").FindControl _
(ID:=522, Recursive:=True).Enabled = False

More info here
http://www.rondebruin.com/menuid.htm

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Qaspec" wrote in message ...
Is there visual basic that will allow me to disable "options" under "tools"
from the menu bar?