VBA代码轻松拿捏，Excel难题3步消灭！

点击蓝字【秋叶 Excel】👆

发送【交流】

立即进秋叶 Excel 读者快乐交流群！

本文作者：小花

本文编辑：雅梨子、竺兰

大家好，我是小花。

要论 Excel 中最强大的功能，莫过于 VBA。

很多小伙伴对 VBA 是谈之而色变，但 VBA 其实并不复杂，有些 VBA 代码甚至有些傻瓜。

只要你掌握了添加代码的基本操作，完全可以轻松拿捏。

下面，小花就分享三段傻瓜代码，它们可是神功无敌，说不定就能解决困扰你的一些难题哦！建议收藏！

工作表保护

其实形同虚设

工作表保护很多时候确实能提高数据的安全性，但其实它和「美乌关系」类似，在遇到强大的外部力量面前，形同虚设。

下面这段代码完全不需要改动一个字符，就可以让你轻松破解工作表保护，不需要密码！

Sub 破解工作表() '批量破解工作表加密
 Dim sht As Worksheet
Sheets(1).Select
For Each sht In Worksheets
sht.Protect AllowFiltering:=True
sht.Unprotect
Next
End Sub

👉 操作步骤如下：

❶ 按【Alt+F11】或点击【开发工具】选项卡下的【Visual Basic】按钮，打开 VBE 窗口。

❷ 双击 ThisWorkbook，在右侧的空白区域粘贴上述代码；

❸ 单击【F5】键执行该段代码即可完成工作表密码破解。

批量显示

隐藏表信手拈来

我们都知道 WPS 有一个批量取消隐藏工作表的功能，但除了 365 版本等高版本外，其他Excel 版本只能逐一取消隐藏，着实要费些功夫。

并且 Excel 中有些工作表是深度隐藏的（即不存在于隐藏列表中，如案例中的表：3 月），这种情况我们甚至无法通过取消隐藏的方法来显示。

如果你还被上述问题困扰，那么下面这段代码，将帮你一键显示所有工作表，哪怕是深度隐藏，也能彻底「暴露」！

Sub 批量显示工作表() '批量显示工作表
 Dim sht As Worksheet
Sheets(1).Select
For Each sht In Worksheets
sht.Visible = True
Next
End Sub

具体操作说明与上例一致，动图如下：

奇怪的自动响应

通通退散

曾有粉丝向小花抱怨，公司的工作套表好像着了魔，操作时一不小心就会「鬼畜」，运行一大堆程序或者直接关闭工作簿，严重影响工作效率，甚至造成程序崩溃！

这不是 Excel 着魔了，而是被添加了事件响应代码。

事件是 Excel 根据 Excel 发生的特定动作来执行代码的方式，这些动作包括工作簿打开/关闭、单元格操作等等。

当我们进行了事件所对应的操作时，代码就会启动，自动执行某些特定的操作或计算。

工作簿上的事件在默认情况下是可用的，只有当我们特意关闭事件响应，才能够屏蔽这些事件代码，使操作不受干扰。

关闭事件响应的代码十分简单，难度几乎为 0。

Sub 关闭事件响应()
Application.EnableEvents = False
End Sub

当然，当我们又需要使用到这些事件时，我们只需执行下面这段相反的代码，就可以激活事件响应啦~

是不是很简单呢？

Sub 开启事件响应()
Application.EnableEvents = True
End Sub

本文，小花分享了三段高能的「傻瓜」代码：

第一段可以无需密码破解工作表保护；

第二段可以批量取消隐藏工作表；

第三段则可以屏蔽所有事件响应。

只需按【Alt+F11】，将代码原封不动地粘贴到空白位置，执行代码立刻为你扫清障碍，你学会了吗？

你还知道哪些简单却高能的代码呢，欢迎留言与大家一起讨论！

想学习更多 Excel 高效操作早下班？来《3 天 Excel 集训体验营》吧~

专为职场职场人准备，全部基于职场真实表格案例设计，超实用 Excel 技巧集合教学。

从此不愿再为表格而加班，那就行动起来！3 天搞定表格难题！

《秋叶 Excel 3 天集训营》

想提升，趁现在！

福利名额 仅限前 50

不再被加班支配，不再为表格发愁！

免费赠送【35 个常用函数说明】哦！

赶紧扫码预约吧！👇👇👇

▲ 报名成功后将自动弹出班主任添加二维码，切勿提前退出

若未能添加，请联系公众号客服获取

欢迎加入秋叶 Excel 专属读者群~和群友一起互相交流学习 Excel，互帮互助。

现在进群，还会掉落各种学习资源，助力大家提升办公效率

↓↓↓

点个赞和在看给小编加鸡腿

👇👇👇

发送好友

一起进步~

👇👇👇