求助自定义菜单栏。在线等。急（已解决）

Lee1989 · 发表于 2009-7-3 18:08

我弄了个自定义菜单栏，里面有个返回excel菜单的下拉菜单，按了之后就回到excel的标准菜单栏。我想在弄一个菜单栏按钮，一按就能返回到我自己的自定义菜单栏去。之前用了宏录制和制定宏的方法在自己的电脑就可行，去到别的电脑之后就找不到制定宏了。望各位高手来帮帮忙啊！！
截图00.png

book1.rar (9.06 KB, 下载次数: 155)

[ 本帖最后由 Lee1989 于 2009-7-3 23:32 编辑 ]

Lee1989 · 发表于 2009-7-3 18:31

怎么没人来啊
各位老师快点帮帮忙a

unsamesky · 发表于 2009-7-3 19:31

运行一下auto_open宏不就可以了吗？

Lee1989 · 发表于 2009-7-3 19:45

我也试过啦。但只有在自己电脑就可以，去到别人的电脑打开之后是没有的

unsamesky · 发表于 2009-7-3 20:05

在auto_close最后加上：
  Dim ctrl As CommandBarButton
Set ctrl = Application.CommandBars("standard").Controls.Add(msoControlButton)
   ctrl.Caption = "打开我的工具栏"
   ctrl.Style = msoButtonCaption
   ctrl.OnAction = "auto_open"
Set ctrl = Nothing

在auto_open最后加上：
  Application.CommandBars("standard").Reset

试试看！

Lee1989 · 发表于 2009-7-3 23:10

可以了。谢谢！！

fanhongnc · 发表于 2012-3-29 22:06

记号一个，以便查找

tdjdeemail · 发表于 2012-11-13 10:01

请问如何删除"打开我的工具栏"这个按钮？
因为我不打开这个文件，只打开其他EXCEL也会出现这个按钮，而且不小心只要点击后把这个文件也打开了！

卢建名 · 发表于 2024-11-2 22:49

贴主，您好，你用的是什么版本的excel ？我用的是2021版的，但自定义菜单实现不了。你能把图片中效果的自定义菜单代码分享一下吗？谢谢！！！！！

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

[求助] 求助自定义菜单栏。在线等。急（已解决）

回复 3楼 unsamesky 的帖子