Application VisualBasic Script

Sub commdBar()
    CommandBars("MyToolbar").Protection = msoBarNoCustomize
End Sub