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