作者：绿色风
分类：
时间：2022-08-17
浏览：122
楼主
gvntw |
Q：如何限制不能删除工作表？
A：运行下面的代码后，工作表不能删除。
- Sub NoDel()
- Dim Ctl As Office.CommandBarControl
- For Each Ctl In Application.CommandBars.FindControls(ID:=847)
- Ctl.Enabled = False
- Next Ctl
- End Sub
本技巧仅2003适用，07中还可通过功能区的命令删除工作表。设置后如需要恢复，请执行逆过程
- Sub ALDel()
- Dim Ctl As Office.CommandBarControl
- For Each Ctl In Application.CommandBars.FindControls(ID:=847)
- Ctl.Enabled = True
- Next Ctl
- End Sub
|
2楼
yilaobiao |
对VBA我两眼一抹黑哦。看得E文就发晕了…… |
3楼
kevinchengcw |
第一次来这人区，就看到了高手表演 |
4楼
aob |
看看高手的表演，学习了！ |
5楼
xying |
纯粹是学习呀，需要详细的操作步骤介绍 |
6楼
sam.tan |
精简实用,不知能否限制删除工作簿呢? |
7楼
高玉甫 |
请问师傅，这些代码放在什么位置？上传一个实例附件行吗？有附件便于我们初学的人，谢谢师傅了。 |
8楼
331200846 |
不懂高科技 |
9楼
sping |
真的是高招，學習了 |
10楼
mjgdxx |
收藏 |
11楼
水星钓鱼 |
这个方法只适用于2003, 2007、2010的工作表右键菜单中的命令用这个方法禁用好像都不行了。
|
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一