如果激活了指定的命令栏或命令栏控件,则返回 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