Excel - Barras Personalizadas

Saludos a todos

He creado una barra personalizada en excel,la cual necesito protegerla contra cambios.

He tratado de hacerlo con el siguiente código,pero no me funciona

Application.CommandBars("Aprocon").Protection=msoBarNoCustomize
Application.CommandBars("Aprocon").Visible=True

Que debo modificar a mi código para que finalmente funcione.

Gracias ,de antemano

Te copio lo del ayuda del editor de VBA:

Propiedad Protection
Vea también Se aplica a Ejemplo Específicos
Es posible que algunas partes de este tema no sean aplicables a algunos idiomas.

Devuelve o establece la manera en que la barra de comandos especificada está protegida contra la personalización. MsoBarProtection de Lectura/Escritura.

MsoBarProtection puede ser una de estas constantes de MsoBarProtection.
msoBarNoChangeDock
msoBarNoChangeVisible
msoBarNoCustomize
msoBarNoHorizontalDock
msoBarNoMove
msoBarNoProtection
msoBarNoResize
msoBarNoVerticalDock

Comentarios
Al utilizar la constante msoBarNoCustomize se evita el acceso al menú Agregar o quitar botones (este menú permite a los usuarios poder personalizar una barra de herramientas).

Ejemplo
Este ejemplo recorre la colección de barras de comandos para buscar la barra denominada "Forms". Si se encuentra esta barra de herramientas, el ejemplo la muestra y protege su estado de acoplamiento.

foundFlag = False
For i = 1 To CommandBars.Count
If CommandBars(i).Name = "Forms" Then
CommandBars(i).Protection = msoBarNoChangeDock
CommandBars(i).Visible = True
foundFlag = True
End If
Next
If Not foundFlag Then
MsgBox "'Forms' command bar is not in the collection."
End If

Abraham