Application VisualBasic Script

Sub commandBar()
    Set cb = CommandBars("MyToolbar")
    cb.Protection = msoBarNoCustomize + msoBarNoMove
End Sub