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.Unprotect
End Sub此时，如果试图删除某工作表，Excel会弹出“工作簿有保护，不能更改。”的警告消息框，单击“确定”按钮后，工作表仍在，但是你仍然可以随意插入工作表，也可以重命名工作表。
代码很简单，有兴趣的朋友可以试一下，边体会边研究。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
本文参与?腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2024-04-14，如有侵权请联系?cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读