专栏名称: Excel之家ExcelHome

excel技巧原创教程每日推送，excel表格职场模板干货仓库，图文/视频/动画等多种教学方式分享excel操作技巧教程/excel函数公式教程/excel数据透视表教程/excel图表教程/Word教程，助您轻松提高办公效率!

一键破解工作簿保护和工作表保护

Excel之家ExcelHome · 公众号 · Excel · 2024-10-24 06:45

正文

小伙伴们好啊，今天咱们说说如何破解工作簿保护和工作表保护的问题。

注意咱们说的工作簿保护，不是文档的打开权限密码，如果设置了文档打开权限密码，在高版本中破解的成功率是非常低的。

如果打开一个Excel文档时，直接弹出这么个对话框，那就基本没指望了，早点洗洗睡吧：

我说的工作簿保护是这里：

在这个地方设置工作簿保护后，将对工作表进行删除、移动、新建、隐藏或者取消隐藏，以及工作表重命名等操作。

如果工作簿保护密码忘记了怎么办？

右键单击工作表标签→【查看代码】，然后插入模块，复制以下代码，粘贴到代码区域：

Sub 工作簿密码破解()

ActiveWorkbook.Sheets.Copy

For Each sh In ActiveWorkbook.Sheets

sh.Visible = True

End Sub

点击运行按钮，稍等片刻，就会出现一个去掉保护的工作簿克隆版，咱们只要按Ctrl+S键，将这个工作簿保存一下就好了。

接下来咱们再说说如何破解工作表保护。

有时我们为了防止别人修改工作表内容，会通过【审阅】→【保护工作表】来设置工作表的保护密码。

如果不小心自己忘了密码或者别人的文档咱们没有密码，怎么办呢?

只要参考前一个动画中的步骤，右键单击工作表标签→【查看代码】，然后插入模块，复制以下代码，粘贴到代码区域，点一下运行按钮就OK了：

Sub pj()

Dim sht As Worksheet

For Each sht In Worksheets

sht.Protect AllowFiltering:=True

sht.Unprotect

End Sub

好了，今天咱们的内容就是这些吧，祝各位小伙伴一天好心情！

图文作者：看见星光

推荐文章

Excel之家ExcelHome · 批量创建指定名称的工作表

2 天前

Excel之家ExcelHome · 这些公式都学好，年薪三万还嫌少

5 天前

Excel之家ExcelHome · 我们一起学图表

6 天前

Excel之家ExcelHome · INDIRECT函数很出众，能把文本变引用

1 周前

Excel之家ExcelHome · 学会这些Excel函数公式，效率提升2.7%

1 周前

虎嗅APP · 曾为赶集悍将，今从瓜子离开，陈国环谢幕，杨浩涌发声

7 年前

水木文摘 · 微信头像会暴露你的“秘密”吗？

7 年前

时尚COSMO · 红人馆 | 跨年晚会挑花眼，除了听歌我更关注唐嫣罗晋的合体亮相

7 年前

爱卡爱羊毛 · 近期羊毛活动汇总（2月11号）

7 年前

齐网网络 · 曝光！原来医生最不希望你做这些事…后悔知道晚了！

7 年前