Enabled Property Example
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
This example adjusts the command bars according to the user level specified by user
. If user
is "Level 1," the command bar named "VB Custom Bar" is displayed. If user
is any other value, the built-in Visual Basic command bar is reset to its default state and the command bar named "VB Custom Bar" is disabled.
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
This example adds two command bar buttons to the command bar named Custom. The first control is disabled; the second control is enabled by default.
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