Mega Code Archive

 

Categories / VisualBasic Script / Application

 

The Protection constants are additive

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