Nota
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Obtiene o establece una constante msoBarProtection que representa la forma en que una barra de comandos está protegida frente a la personalización del usuario. Lectura y escritura.
Nota:
El uso de CommandBars en algunas aplicaciones de Microsoft Office sustituido por el nuevo componente cinta de la interfaz de usuario de Microsoft Office Fluent. Para obtener más información, vea Información general de la cinta de opciones de Office Fluent.
Sintaxis
expresión. Protección
expresión Variable que representa un objeto CommandBar .
Observaciones
Uso de la constante msoBarNoCustomize impide a los usuarios acceso al menú Agregar o quitar botones (este menú permite a los usuarios personalizar una barra de herramientas).
Ejemplo
En este ejemplo se recorre la colección de barras de comandos para buscar la barra de comandos denominada Forms. Si se encuentra esta barra de comandos, su estado de acoplamiento está protegido y se hace visible.
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
Vea también
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.