Enabled 属性

优质

小牛编辑

126浏览

2023-12-01

全部显示

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