Propiedad Protection
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