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