Command Bar Tools, Protection Protect & Share ID

[Paul Moles]

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

 

[Ron de Bruin]

Hi Paul

You can find it like this

MsgBox Application.CommandBars("Worksheet Menu Bar").Controls("Tools").Controls("Protection").Controls("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

 

[Paul Moles]

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]

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.

 

[Paul Moles]

Thanks Ron

http://www.erlandsendata.no/english/index.php?d=endownloadcommandbars
contains an add in that provides all the information on Id numbers and more.

Thanks for your help

Paul Moles

 

[Ron de Bruin]

Hi Paul

Yes this is a good site
I have add a extra link to this add-in on my site