Office VBA教程:Enabled属性

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

说明

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

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

VBA示例

本示例可实现的功能为:根据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

上页:Office VBA教程:DropDownWidth属性 下页:Office VBA教程:ExpireDate属性

Office VBA教程:Enabled属性

Office VBA教程:ExpireDate属性 Office VBA教程:Extended属性
Office VBA教程:Extensions属性 Office VBA教程:FaceId属性
Office VBA教程:FeatureTips属性 Office VBA教程:FileName属性
Office VBA教程:Files属性 Office VBA教程:FileType属性
Office VBA教程:FileTypes属性 Office VBA教程:FilterIndex属性
Office VBA教程:Filters属性 Office VBA教程:FixedWidthFont属性
Office VBA教程:FixedWidthFontSize属性 Office VBA教程:FoundFiles属性
Office VBA教程:GuessHelp属性 Office VBA教程:Guid属性
Office VBA教程:Heading属性 Office VBA教程:Height属性
Office VBA教程:HelpContextId属性 Office VBA教程:HelpFile属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号