LOCK TOOLBARS IN PLACE??

[ssecca]

I am using Office 2002 and wnat to lock my toolbars in place. Is there a way that anybody knows to do that. I will except just locking Word if that is possible but would like to lock them all globally if possible.

Thanks Much
ssecca

 

[MisterC]

You can run this code from a workbook / document's Open event:

Sub LockDown()
    Dim cmdBar As CommandBar
    For Each cmdBar In Application.CommandBars
    If cmdBar.Visible = True Then
       '(I don't think it can be changed unless visible)
       cmdBar.Protection = msoBarNoMove or msoBarNoChangeVisible
    End If
    Next
End Sub

Valid CommandBar settings:

msoBarNoChangeDock
msoBarNoChangeVisible
msoBarNoCustomize
msoBarNoHorizontalDock
msoBarNoMove
msoBarNoProtection
msoBarNoResize
msoBarNoVerticalDock

Good Luck!