注册    登录
今天看啥  ›  专栏  ›  完美Excel

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

完美Excel  · 公众号  · Excel  · 2024-04-14 22:40
学习Excel技术，关注微信公众号：excelperfect标签：VBA，工作簿事件想要阻止用户删除工作表，但是又想要允许插入工作表并重命名工作表，因此不能设置保护工作表，那么该如何实现呢？这是jkp-ads.com给出的代码，供参考。将下面的代码放置在ThisWorkbook模块中：Private Sub Workbook_SheetDeactivate(ByVal Sh As Object) ThisWorkbook.Protect , True    Application.OnTime Now, "ThisWorkbook.RemoveProtection"End SubSub RemoveProtection() ThisWorkbook.UnprotectEnd Sub此时，如果试图删除某工作表，Excel会弹出“工作簿有保护，不能更改。”的警告消息框，单击“确定”按钮后，工作表仍在，但是你仍然可以随意插入工作表，也可以重命名工作表。代码很简单，有兴趣的朋友可以试一下，边体会 ………………………………

原文地址：访问原文地址
快照地址： 访问文章快照
推荐文章
Excel之家ExcelHome  ·  Excel中的“超级表”，用过的都说好
2 天前
Excel之家ExcelHome  ·  Excel公式保护，其实很简单
5 天前
Excel之家ExcelHome  ·  巧用html方法批量插入图片超级方便
1 周前
Excel之家ExcelHome  ·  高级筛选用不好，天天加班做报表
1 周前
Excel之家ExcelHome  ·  只要掌握这几句VBA代码，一分钟搞定10000份报表
5 天前
近现代史研究动态  ·  会议征文|首届中国改革开放史学术研讨会暨第十六届中国当代史学术研讨会
3 月前
PETKIT小佩  ·  新品上市 | 小佩首款无线智能饮水机，实现无线自由！
2 年前
36氪  ·  泡泡玛特：28个设计师不如1个好编剧
3 年前
有书  ·  曾经，我以为（读到心酸）
3 年前
朱房路29号  ·  中邮2019年10月31日星期四固收日报
4 年前
关于   移动版   ·   Py中国   ·   RSS之家   ·   codingpro   ·   Code   ·   link之家   ·   卧龙AI搜索   ·   藏经阁   ·   小百科
今天看啥 - 微信公众号rss订阅, 微信rss, 稳定的RSS源
© 2024 ~ 沪ICP备11025650号