excelperfect
标签：VBA，工作簿事件
想要阻止用户删除工作表，但是又想要允许插入工作表并重命名工作表，因此不能设置保护工作表，那么该如何实现呢？
这是jkp-ads.com给出的代码，供参考。
将下面的代码放置在ThisWorkbook模块中：
代码语言：javascript复制Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
ThisWorkbook.Protect , True
Application.OnTime Now, "ThisWorkbook.RemoveProtection"
End Sub
Sub RemoveProtection()
ThisWorkbook.Unprotect
End Sub此时，如果试图删除某工作表，Excel会弹出“工作簿有保护，不能更改。”的警告消息框，单击“确定”按钮后，工作表仍在，但是你仍然可以随意插入工作表，也可以重命名工作表。
代码很简单，有兴趣的朋友可以试一下，边体会边研究。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
