excel2003屏蔽菜单、工具栏等代码大全

曙光电子 · 发表于 2012-2-11 08:05

请问老师:上面代码试验,当打开含有此代码的文件,同时打开其不含此代码的文件也被屏蔽了,如何才能只对本文件有效,不能屏蔽其它文件菜单呢?谢谢!

ugyun · 发表于 2012-2-11 10:06

曙光电子发表于 2012-2-11 08:05
请问老师:上面代码试验,当打开含有此代码的文件,同时打开其不含此代码的文件也被屏蔽了,如何才能只对本文件 ...

同时打开才有效，如果想对本文件有效，就需要对本文件加入相关屏蔽代码

曙光电子 · 发表于 2012-2-11 10:30

ugyun 发表于 2012-2-11 10:06
同时打开才有效，如果想对本文件有效，就需要对本文件加入相关屏蔽代码

比如我对A文件加上:
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").Enabled = False '屏蔽菜单栏
End Sub
可如时打开原先的B文件,其菜单也不屏蔽了.
请问只屏蔽本文件的代码该如何写?

woshihzsa · 发表于 2012-2-11 11:24

很好很强大。。。。

ugyun · 发表于 2012-2-12 22:32

曙光电子发表于 2012-2-11 10:30
比如我对A文件加上:
Private Sub Workbook_Open()
Application.CommandBars("Worksheet Menu Bar").En ...

需要同时对A文件加上以下代码：
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.CommandBars("Worksheet Menu Bar").Enabled = true '恢复菜单栏
End Sub
这样打开B文件时就不会屏蔽菜单栏了

lpzxhjp · 发表于 2012-2-20 22:10

楼主辛苦了

dflt · 发表于 2012-3-1 16:14

谢谢啊！谢谢啊！

秦灭六国 · 发表于 2012-3-1 16:22

非常感谢楼主分享.

龙之传人188 · 发表于 2012-3-1 18:10

好是好，但也不敢随便用呀~~~

tcbfy · 发表于 2012-3-4 15:32

好的东西大家分享！谢谢楼主

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

[分享] excel2003屏蔽菜单、工具栏等代码大全