如何让“自定义工具栏”只可以在指定工作薄中使用？

楼主
研究研究

Q:如何让“自定义工具栏”只可以在指定工作薄中使用？

目的是指定“自定义工具栏”只在“表一”中出现。

A: 利用激活工作表事件和工作表停用事件

Private Sub Worksheet_Activate()
Dim ** As CommandBar
On Error Resume Next
Set ** = Application.CommandBars.Add( _
Name:="自定义工具栏", Position:=msoBarTop) '“自定义工具栏”这个是，工具栏右键时，出现的显示或不显示自定义工具栏选项。
With **
.Protection = msoBarNoResize
.Visible = True
'-----设置按钮及图标------开始-----
'添加第一个菜单(第2种样式.不显示图标的方法)
With .Controls.Add(Type:=msoControlButton)
.Caption = "按钮一" '“按钮一”这个是工具栏按钮的显示名称。
.BeginGroup = True
.OnAction = "按钮一" '执行 “按钮一”　宏命令。
.Style = msoButtonCaption
End With
'添加第二个菜单
With .Controls.Add(Type:=msoControlButton)
.Caption = "按钮二"
.BeginGroup = True
.OnAction = "按钮二"
.Style = msoButtonCaption
End With
'添加第三个菜单
With .Controls.Add(Type:=msoControlButton)
.Caption = "按钮三"
.BeginGroup = True
.OnAction = "按钮三"
.Style = msoButtonCaption
End With
'添加第四个菜单
With .Controls.Add(Type:=msoControlButton)
.Caption = "按钮四"
.BeginGroup = True
.OnAction = "按钮四"
.Style = msoButtonCaption
End With
'添加第五个菜单
With .Controls.Add(Type:=msoControlButton)
.Caption = "按钮五"
.BeginGroup = True
.OnAction = "按钮五"
.Style = msoButtonCaption
End With
'添加第六个菜单
With .Controls.Add(Type:=msoControlButton)
.Caption = "按钮六"
.BeginGroup = True
.OnAction = "按钮六"
.Style = msoButtonCaption
End With
'-----设置按钮及图标------结束-----
End With
Set ** = Nothing
End Sub
Sub 按钮一()
Range("A1").Select
ActiveCell.FormulaR1C1 = "这是第一个实例"
Range("B1").Select
End Sub
Sub 按钮二()
Range("A2").Select
ActiveCell.FormulaR1C1 = "这是第二个实例"
Range("B2").Select
End Sub
Sub 按钮三()
Range("A3").Select
ActiveCell.FormulaR1C1 = "这是第三个实例"
Range("B3").Select
End Sub
Sub 按钮四()
Range("A4").Select
ActiveCell.FormulaR1C1 = "这是第四个实例"
Range("B4").Select
End Sub
Sub 按钮五()
Range("A5").Select
ActiveCell.FormulaR1C1 = "这是第五个实例"
Range("B5").Select
End Sub
Sub 按钮六()
Range("A6").Select
ActiveCell.FormulaR1C1 = "这是第六个实例"
Range("B6").Select
End Sub
'-----设置按钮所对应的（宏命令） ------结束-----
Private Sub Worksheet_Deactivate()
Application.CommandBars("自定义工具栏").Delete
End Sub

2楼
eliane_lei

进来学习，谢谢分享！