如何保证某张工作表不被人删除

agai

TO KLYAN 你太棒了，非常感谢各位的支持和努力，终于有了结果，能不能把思路给点提示？让关心该问题的好友们也有所收获？

KLYan

1、我的思路正如 “剑魔版主” 所说的。 2、因为只有保护活页簿才能免除被人给删除工作表或更改工作表的标签名。 3、所以我在”Sheet1”的 Worksheet_Activate()事件上写上保护活页簿的 vba，同时在”Sheet1”的 Worksheet_Deactivate()事件上写上解除活页簿保护的vba。 4、这样您由别的工作表进入”Sheet1”就可保护活页簿，离开”Sheet1”进入别的工作表就解除活页簿的保护，所以”Sheet1”再也不会被人给删除或更改工作表的标签名了，但是别的工作表就任由您怎样删怎样改了。 5、保护活页簿的vba一定要有密码，否则您按 工具 >> 保护 >> 取消活页簿保护，不要密码照样可取消活页簿的保护。 6、上一次上传的文件有点 Bug，修改后再上传 。看Vba不用密码，敬请各位指教。 [upload=zip]uploadImages/20026150515274038.zip[/upload] [em09]

agai

感谢“剑魔版主”和KLYAN ,在实际工作中，下发给基层报送的报表时，用保护工作表可以保护格式和数值，就是无法保证标签名不被改动和删除，你们为我解决了这个难题，再次表示感谢。

wendytsip

大家好，我是一个新朋友。我想说一下我的想法。 to agai:1。先设定工作簿保护。这样做可以使表名不能被修改，但阅读者须拥有此密码。 2。将工作表另存为，在另存为的界面，点工具，点常规选项，在文件共享中设置 打开权限密码和修改权限密码，点确定。 这样做可以使表中内容不被阅读者修改，因阅读者是以只读方式打开的。但阅 读者须拥有打开权限密码。可将工作簿保护密码与打开权限密码设置相同。

agai

wendytsip新朋友好： 因为我的前提是只对 请你新建一个工作簿，对sheet1设置保护， 你点击sheet1标签，按右键-删除 还是可以将该表删除该表或改文件名。我只想对工作簿的某张工作表进行工作表可见，又不被人给删除或改工作表的标签名。而不是对整个工作簿进行保护！ 祝你进步！

maddog

按 工具 >> 保护 >> 取消活页簿保护, 如有 password, 亦可取消保护 改成 password:=true 保护/取消保护則必須經 vba 才行, 較安全

wendytsip

所以才要对工作簿设置保护，但又对阅读者公开密码，它的作用是间接对工作表起到保护作用，使工作表不被阅读者删除。此时右键无法删除工作表了。

劍魔

KLYAN 的思路應該是當工作表為sheet1時保護活頁簿，否則取消保護活頁簿，如有必要再加個密碼即可。 可先試試下面的程序： Private Sub Workbook_SheetActivate(ByVal Sh As Object) If Sh.Name = "Sheet1" Then ActiveWorkbook.Protect Structure:=True, Windows:=False Else ActiveWorkbook.Protect Structure:=False, Windows:=False End If End Sub

leaf

to again 其实我的方法通过菜单也是无法删除的（Excel2000英文版） Controls("Delete Sheet") 在中文版中可能名称不一致，您可以改一下代码即可。

shuiyuan

请下载： [upload=zip]uploadImages/200251620462861244.zip[/upload] 我想Excel中文版可能不是"Delete Sheet"这个名字。