Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 4629|回复: 18

[已解决]请教都大家,只显示自定义菜单的方法

[复制链接]
发表于 2014-4-17 14:36 | 显示全部楼层 |阅读模式
请教都大家,只显示自定义菜单的方法

请朋友们帮帮忙,谢谢大家了!
未命名.JPG
宏_自定义Excel菜单栏_3.rar (7.79 KB, 下载次数: 13)
发表于 2014-4-17 14:53 | 显示全部楼层
再加上事件吧。workbook_active,workbook_deactive都需要。
回复

使用道具 举报

发表于 2014-4-17 14:54 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-4-17 14:57 | 显示全部楼层
hwc2ycy 发表于 2014-4-17 14:53
再加上事件吧。workbook_active,workbook_deactive都需要。

也就是说,只在当前的文件中,设置显示自定义菜单,

其它的文件,还是显示正常显示

版主,传个附件好吧,谢谢了!
回复

使用道具 举报

发表于 2014-4-17 14:57 | 显示全部楼层
Application.CommandBars("Worksheet Menu Bar").Visible,设置这个可以实现菜单的隐藏与取消,你在现有的事件里再加这个设置就成了。
回复

使用道具 举报

发表于 2014-4-17 14:59 | 显示全部楼层
  1. Private Sub Workbook_Activate()
  2.     Call AddNowBar
  3.     Application.CommandBars("Worksheet Menu Bar").Visible = False
  4. End Sub
  5. Private Sub Workbook_Deactivate()
  6.     Call DelNowBar
  7.     Application.CommandBars("Worksheet Menu Bar").Visible = True
  8. End Sub
复制代码
回复

使用道具 举报

发表于 2014-4-17 15:03 | 显示全部楼层    本楼为最佳答案   
宏_自定义Excel菜单栏_3.rar (9.69 KB, 下载次数: 50)
回复

使用道具 举报

 楼主| 发表于 2014-4-17 15:05 | 显示全部楼层
hwc2ycy 发表于 2014-4-17 14:59

未命名.JPG

版主你好,我是03版本的,加到里面了,还是这样的
回复

使用道具 举报

发表于 2014-4-17 15:06 | 显示全部楼层
附件已经上传了,你测试下吧。
回复

使用道具 举报

 楼主| 发表于 2014-4-17 15:11 | 显示全部楼层
hwc2ycy 发表于 2014-4-17 15:06
附件已经上传了,你测试下吧。

就是用的版主的附件测试的

我是2003的
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-4-23 21:24 , Processed in 0.305795 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表