Hi Paul

There are a few links to MS kb's on the bottom of the page
I believe you can find the example there

I will look at it also and maybe update the Site if there is no example.

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


"Paul Moles" wrote in message ...
Ron

On your page http://www.rondebruin.com/menuid.htm you show
Sub Read_Menu_Id() to find the first line ID numbers, what modifications are
required to this macro to get the nested ID numbers?


"Ron de Bruin" wrote:

Hi Paul

You can find it like this

MsgBox Application.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Protection").Con trols("Protect And Share
Workbook...").ID
3059

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

You can find information on this page also
http://www.rondebruin.com/menuid.htm


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


"Paul Moles" wrote in message ...
Many thanks to Ron De Bruin who provided

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

this to disable Tools, Protection , Protect Workbook

Anyone tell me the ID for Tools, Protection, Protect & Share Workbook or
where I can find it.

Many Thanks

Paul Moles