Barras rebeldes sin causa

Hola, soy el de las barras...

Ya he conseguido crear una barra personalizada y ocultar las demás...
ufffff, peró...

No hay manera de protegerla para que nadie pueda visualizarla o no, o
moverla o cerrarla, siempre me aparece con el botón derecho la posibilidad
de cerrarla, pongo esto:

Application.CommandBars("MiBarra").Enabled = True
Application.CommandBars("MiBarra").Visible = True
Application.CommandBars("MiBarra").Protection = msoBarNoChangeDock
Application.CommandBars("MiBarra").Protection = msoBarNoChangeVisible
Application.CommandBars("MiBarra").Protection = msoBarNoCustomize
Application.CommandBars("MiBarra").Protection = msoBarNoMove
Application.CommandBars("MiBarra").Protection = msoBarNoResize
Application.CommandBars("MiBarra").Protection = msoBarNoVerticalDock
Application.CommandBars("MiBarra").Position = msoBarTop
Application.CommandBars.DisableCustomize = True


He buscado por Internet y debería ser : msoBarNoChangeVisible
pero no, no me funciona...
¿Alguien sabe porqué? ¿Hay algún otro comando? El orden dentro de
.Protection tiene algo que ver?


Saludos,
Martí