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