I need a code thru which i need to remove Format Toolbar . i.e the
user shuld not be able to have access to Format toolbar ...

Hi vicky

See
http://www.rondebruin.nl/menuid.htm

You can use this for the Format menu in the menu bar for example
Application.CommandBars("Worksheet Menu Bar").FindControl(ID:=30006).Enabled = False



--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"vicky" wrote in message ...
I need a code thru which i need to remove Format Toolbar . i.e the
user shuld not be able to have access to Format toolbar ...

Sub BarVis(bVis As Boolean)

Application.CommandBars("Formatting").Visible = bVis

End Sub

Regards,
Peter T


"vicky" wrote in message
...
I need a code thru which i need to remove Format Toolbar . i.e the
user shuld not be able to have access to Format toolbar ...

thanks a lot . i just need to de - activate the sheet option in format
menu bar . this line de-activates whole format menu bar
Application.CommandBars.FindControl(ID:=30026).Ena bled = True

Try

Sub Enabled_False()
Dim Ctl As CommandBarControl

On Error Resume Next
For Each Ctl In Application.CommandBars.FindControl(ID:=30006).Con trols
Ctl.Enabled = False
Next Ctl
Application.CommandBars.FindControl(ID:=30026).Ena bled = True
On Error GoTo 0
End Sub


Sub Enabled_True()
Dim Ctl As CommandBarControl

On Error Resume Next
For Each Ctl In Application.CommandBars.FindControl(ID:=30006).Con trols
Ctl.Enabled = True
Next Ctl
On Error GoTo 0
End Sub




--

Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm


"vicky" wrote in message ...
thanks a lot . i just need to de - activate the sheet option in format
menu bar . this line de-activates whole format menu bar
Application.CommandBars.FindControl(ID:=30026).Ena bled = True