VBA技巧：让人删不掉你的工作表

excelperfect

标签：VBA，工作簿事件

想要阻止用户删除工作表，但是又想要允许插入工作表并重命名工作表，因此不能设置保护工作表，那么该如何实现呢？

这是jkp-ads.com给出的代码，供参考。

将下面的代码放置在ThisWorkbook模块中：

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) ThisWorkbook.Protect , True    Application.OnTime Now, 'ThisWorkbook.RemoveProtection'End Sub
Sub RemoveProtection() ThisWorkbook.UnprotectEnd Sub

此时，如果试图删除某工作表，Excel会弹出“工作簿有保护，不能更改。”的警告消息框，单击“确定”按钮后，工作表仍在，但是你仍然可以随意插入工作表，也可以重命名工作表。

代码很简单，有兴趣的朋友可以试一下，边体会边研究。

欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。

欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料，并通过社群加入专门的微信讨论群，更方便交流。