最近全网都在搜的：Excel批量给多个工作表加密和解密的方法！

自我提升也是一种修养数万Excel爱好者聚集地

2021年2月27日 周六

【Excel情报局｜文案回收铺子】

常常一个人独自崩溃

又一个人悄悄自愈

成人的世界无非如此

我们都知道在同一个Excel工作簿包含多个工作表（Sheet）的情况下，想要对所有工作表都加上工作表保护密码，正常的操作方法是：必须要一个一个点击所有的工作表，单独为每个工作表设置保护工作表。如果工作表上百上千个，就惨了！

有的小伙伴说了，可以利用Shift键点击第一个和最后一个工作表进行批量连续全选工作表，然后点击保护工作表按钮不就行了，但是这样操作，我们会发现保护工作表按钮变成了灰色不可用状态。如下图所示：

废话不多说，下面我们来上正确的操作方法。

我们可以右击任意一个工作表名称标签，点击查看代码，复制下方代码至VBA窗口里，点击运行，静待几秒钟，即可完成全部工作表加密！

注意：

代码中的 Password:="111222"，即为密码“111222”，可以随意设置更改为其它密码。

代码如下：

Sub JMM()     '加密码
Dim sht As Worksheet
For Each sht In Sheets
sht.Protect Password:="111222"
Next
End Sub

若我们知道工作表保护密码"111222"的前提下，还可以批量解除工作表保护密码。

我们可以右击任意一个工作表，点击查看代码，复制下方代码至VBA窗口里，点击运行，静待几秒钟，即可完成全部工作表解密！

注意：

代码中的Password:="111222"，必须输入之前正确的加密密码。

代码如下：

Sub JM()   '解密
Dim sht As Worksheet
For Each sht In Sheets
sht.Unprotect Password:="111222"
Next
End Sub

286期（个）Office技巧学习视频

免费打包下载方式

百度云下载链接：

https://pan.baidu.com/s/1VzuHfu9LTgYokcb6b4w4mQ

扫描下方二维码 关注公众号

上方公众号后台聊天窗口

回复关键字

“我要学习”

获取下载 提取码

阅读完文章之后，希望大家在文末帮我点亮“在看”按钮，坚持的路上需要有你们的鼓励

如何在【Excel情报局】微信公众号内通过输入关键字搜索历史文章？

常识普及：

①第1步：进入【Excel情报局】微信公众号，点击底部菜单“情报.xls”

②第2步：点击“历史文章”按钮

③第3步：顶部搜索框内输入你要搜索的关键字，比如“合并”，点击确定，进行搜索。参照下面视频操作：

相互尊重，抱团成长。

Excel2016版安装包(含永久激活工具) 百度网盘

下载链接：
https://pan.baidu.com/s/11eE-oGEyHojXHoYSuDbBAA