保护你的工作表离不开它:"屏蔽"

兰色幻想

在论坛上,经常会有人问:我怎样防止别人动改我的工作表?我怎样禁用其中的一些功能?怎样禁用一些快捷键?这些屏蔽可以帮你做到。

使用方法设置一个按纽,运行程序即可达到这些效果,但是关闭这个文件后系统不会自动恢复这些功能,关闭前还要执行恢复程序,职

如果打开文件自动屏蔽,把屏蔽代码放入Workbook_Open事件中:

Private Sub Workbook_Open()

End Sub

如果想自动恢复,把恢复代码放入Workbook_BeforeClose事件中

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

屏蔽文件菜单

Application.CommandBars(1).Controls("文件(&F)").Enabled = False

屏蔽编辑菜单中的填充项 Application.CommandBars(1).Controls("编辑(&E)").Controls("填充(&I)").Enabled = False

屏蔽单元格右键单击 Application.CommandBars("CELL").Enabled = False

屏蔽工作表标签右键单击 Application.CommandBars("PLY").Enabled = False

屏蔽右键工具栏 Application.CommandBars("Toolbar list").Enabled = False

屏蔽右键常用工具栏的打印按纽

Application.CommandBars("Standard").Controls(5).Enabled = False

解除屏蔽

Application.CommandBars(1).Controls("文件(&F)").Enabled = True Application.CommandBars(1).Controls("编辑(&E)").Controls("填充(&I)").Enabled = True Application.CommandBars("CELL").Enabled = True Application.CommandBars("PLY").Enabled = True Application.CommandBars("Toolbar list").Enabled = True

屏蔽组合键ALT+F11 Application.OnKey "%{F11}", "" %代表ALT

解除屏蔽ALT+F11 Application.OnKey "%{F11}"

djYf95dl.rar (7.19 KB, 下载次数: 870)

2004-10-17 11:05 上传

点击文件名下载附件
保护你的工作表离不开它:"屏蔽"

[此贴子已经被作者于2005-2-16 14:21:24编辑过]

DC.Direct

好东西，收了先，太谢谢了，UP！！！

apolloh

收藏，楼主的这种行为，十分值得尊敬！

徒然客

版主的价值往往就在于在时时整理总结一些东西。建议加精。

徒然客

不过我觉得这样的帖子更适合放在VBA板块，是不是？？

fzczz

请问:带宏的Excel文件不用选择是否启用宏就自动启用宏了，请问是怎么做的?

baomaboy

好东东，收了，谢谢！

yigepure

哇,兰老师每次都有惊人之作.收藏.

兰色幻想

以下是引用fzczz在2004-10-17 13:43:00的发言： 请问:带宏的Excel文件不用选择是否启用宏就自动启用宏了，请问是怎么做的?

进行了数字签名

http://club.excelhome.net/viewthread.php?tid=1333

[此贴子已经被作者于2004-10-17 14:10:47编辑过]

横刀

兰老师

刚才按照doyyi 运行了

Sub gg() Application.CommandBars(1).Enabled = flase End Sub 后所有表格的菜单都没有，我确实不知道怎么解除。这段代码我已经删除还是如此/

请教兰老师怎么恢复我的EXCEL