Barras rebeldes sin causa

Hola, soy el de las barras...
Ya he conseguido crear una barra personalizada y ocultar las demas... ufffff, pero...
No hay manera de protegerla para que nadie pueda visualizarla o no, o moverla o cerrarla
siempre me aparece con el boton derecho la posibilidad de cerrarla, pongo esto:
He buscado por Internet y deberia ser : msoBarNoChangeVisible pero no, no me funciona...
Alguien sabe porque? Hay algun otro comando? El orden dentro de .Protection tiene algo que ver?

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

hola, Martí !

Hola, soy el de las barras...
Ya he conseguido crear una barra personalizada y ocultar las demas...
ufffff, pero...
No hay manera de protegerla para que nadie pueda visualizarla o no, o
moverla o cerrarla
siempre me aparece con el boton derecho la posibilidad de cerrarla, pongo
esto:
He buscado por Internet y deberia ser : msoBarNoChangeVisible pero no, no
me funciona...
Alguien sabe porque? Hay algun otro comando? El orden dentro de
.Protection tiene algo que ver?

algunas propiedades de objetos son *excluyentes* [p.e. True/False] y otras
son... *acumulativas*
si las acumulativas se establecen de manera *independiente*... la que
*queda*... es la ultima ;)

prueba con algo +/- como lo siguiente:

With Application.CommandBars("MiBarra")
.Visible = True
.Enabled = True
.Position = msoBarTop
.Protection = msoBarNoChangeDock _
+ msoBarNoChangeVisible _
+ msoBarNoCustomize _
+ msoBarNoMove _
+ msoBarNoResize
End With

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

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