全部显示

Enabled 属性

如果激活了指定的命令栏或命令栏控件，则返回 True。Boolean 类型，可读写。

说明

对于命令栏，如果将该属性设置为 True，那么该命令栏的名称将出现在有效命令栏列表中。

对于内置控件，如果将 Enabled 属性设置为 True，那么将由应用程序确定其状态。但如果将该属性设置为 False，那么该控件将无效。

示例

本示例可实现的功能为：根据 user 指定的用户级别调整命令栏。如果 user 是“Level 1”，那么显示命令栏“VB Custom Bar”。如果 user 为其他值，那么内置的命令栏“Visual Basic”将重新设置为默认状态，而且命令栏“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

本示例可实现：在“Custom”命令栏中添加两个命令栏按钮。第一个控件无效，另一个默认为有效。

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