如何限制不能删除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

复制代码

这个方法只适用于2003, 2007。
2010的工作表右键菜单中的命令用这个方法禁用好像都不行了。