The Protection constants are additive: apply different types of protection with a single command
Sub commandBar() Set cb = CommandBars("MyToolbar") cb.Protection = msoBarNoCustomize + msoBarNoMove End Sub