怎样使，我自定义的工具栏，只在表一中出现，禁止在其它的工作表中出现。

yjwdjfqb · 发表于 2011-7-10 12:35

怎样使，我自定义的工具栏，只在表一中出现，禁止在其它的工作表中出现。
并且禁止在其它的工作薄中出现。

祥细请见附件：

yjwdjfqb · 发表于 2011-7-11 07:35

兰色幻想＿加一个事件程序：
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
  If Sh.Name <> "自定义" Then
Application.CommandBars("自定义工具栏").Visible = False
  Else
Application.CommandBars("自定义工具栏").Visible = True
  End If
End Sub

上面这个是兰版，给我写的一个事件，能够固定工作表，但不能固定工作薄，也就是说，在一个文件中，能够固定到某个工作表。

但是，在其它的EXCEL文件中，也会出现这个“自定义工具栏”，怎样在这个事件中，加一句，固定工作薄的语句，请大师们指点。帮忙写下代码。。

先谢谢各位了！！！

xyzxyz07 · 发表于 2011-7-11 08:38

回复 yjwdjfqb 的帖子

VBA，自定义工具栏问题.rar (14.04 KB, 下载次数: 25)

yjwdjfqb · 发表于 2011-7-11 17:36

回复 xyzxyz07 的帖子

兄弟，里面插入的事件，只能在退出时，删除自定义的工具栏，但没有达到要求。

xyzxyz07 · 发表于 2011-7-11 20:03

回复 yjwdjfqb 的帖子

VBA，自定义工具栏问题.rar (16.55 KB, 下载次数: 44)

yjwdjfqb · 发表于 2011-7-11 23:34

回复 xyzxyz07 的帖子

非常感谢，老师你，你给我写的给我解决了问题，非常感谢。。。

		自动登录	找回密码
密码			注册