嘻皮客娱乐学习网

标题: 如何限制不能删除excel工作薄中的工作表？ [打印本页]

---

作者: xipick    时间: 2016-7-8 13:32
标题: 如何限制不能删除excel工作薄中的工作表？
Q：如何限制不能删除工作表？
A：运行下面的代码后，工作表不能删除。

1. Sub NoDel()
   
2.     Dim Ctl As Office.CommandBarControl
   
3.     For Each Ctl In Application.CommandBars.FindControls(ID:=847)
   
4.         Ctl.Enabled = False
   
5.     Next Ctl
   
6. End Sub
   

复制代码

本技巧仅2003适用，07中还可通过功能区的命令删除工作表。设置后如需要恢复，请执行逆过程

1. Sub ALDel()
   
2.     Dim Ctl As Office.CommandBarControl
   
3.     For Each Ctl In Application.CommandBars.FindControls(ID:=847)
   
4.         Ctl.Enabled = True
   
5.     Next Ctl
   
6. End Sub

复制代码

---

作者: xipick    时间: 2016-7-8 13:33
这个方法只适用于2003, 2007。
2010的工作表右键菜单中的命令用这个方法禁用好像都不行了。

---

欢迎光临 嘻皮客娱乐学习网 (http://www.xipick.com/)

Powered by Discuz! X3.3