Propiedad Enabled
True si está habilitada la barra de comandos o control de barra de comandos especificados. Boolean de Lectura/Escritura.
Comentarios
Para barras de comandos, si se establece esta propiedad en True el nombre de la barra aparecerá en la lista de barras de comandos disponibles.
Para controles integrados, si establece la propiedad Enabled en True la aplicación determina su estado; si se establece en False los deshabilita.
Ejemplo
Este ejemplo ajusta las barras de comandos de acuerdo con el nivel de usuario especificado por user
. Si user
es "Level 1," se muestra la barra de comandos denominada "VB Custom Bar". Si user
es cualquier otro valor, la barra de comandos integrada de Visual Basic se restablece a su estado predeterminado y se deshabilita la barra de comandos denominada "VB Custom Bar".
Set myBar = CommandBars _
.Add(Name:="VB Custom Bar", Position:=msoBarTop, _
Temporary:=True)
With myBar
.Controls.Add Type:=msoControlButton, ID:=2
.Visible = True
End With
If user = "Level 1" Then
myBar.Visible = True
Else
CommandBars("Visual Basic").Reset
myBar.Enabled = False
End If
Este ejemplo añade dos botones de barra de comandos a la barra de comandos denominada "Custom". De forma predeterminada, el primer control está deshabilitado y el segundo habilitado.
Set myBar = CommandBars("Custom")
With myBar
.Controls.Add Type:=msoControlButton, Id:=3
.Controls(1).Enabled = False
.Controls.Add Type:=msoControlButton, Id:=3
End With
myBar.Visible = True