当前位置:首页 > 微软office > Excel > 正文内容

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

zyhwxm3年前 (2022-07-04)Excel92
小伙伴们好啊,今天咱们说说如何破解工作簿保护和工作表保护的问题。
注意咱们说的工作簿保护,不是文档的打开权限密码,如果设置了文档打开权限密码,在高版本中破解的成功率是非常低的。
如果打开一个Excel文档时,直接弹出这么个对话框,那就基本没指望了,早点洗洗睡吧:

我说的工作簿保护是这里:
在这个地方设置工作簿保护后,将对工作表进行删除、移动、新建、隐藏或者取消隐藏,以及工作表重命名等操作。
如果工作簿保护密码忘记了怎么办?
右键单击工作表标签→【查看代码】,然后插入模块,复制以下代码,粘贴到代码区域:
Sub 工作簿密码破解()    ActiveWorkbook.Sheets.Copy        For Each sh In ActiveWorkbook.Sheets        sh.Visible = True    NextEnd Sub
点击运行按钮,稍等片刻,就会出现一个去掉保护的工作簿克隆版,咱们只要按Ctrl+S键,将这个工作簿保存一下就好了。

接下来咱们再说说如何破解工作表保护。
有时我们为了防止别人修改工作表内容,会通过【审阅】→【保护工作表】来设置工作表的保护密码。

如果不小心自己忘了密码或者别人的文档咱们没有密码,怎么办呢?
只要参考前一个动画中的步骤,右键单击工作表标签→【查看代码】,然后插入模块,复制以下代码,粘贴到代码区域,点一下运行按钮就OK了:
Sub jp()Dim sht As WorksheetFor Each sht In Worksheetssht.Protect AllowFiltering:=Truesht.UnprotectNextEnd Sub

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

图文作者:看见星光


本篇文章来源于微信公众号:Excel之家ExcelHome


版权声明:本文版权归原作者所有,仅供技术参考;

                 若有违反您个人权益,请留言反馈删除相关信息;


本文链接:http://zyh-c.myds.me:8086/post/230.html

相关文章

多区域复制粘贴

Sub 多区域复制粘贴()On Error Resume NextDim SRange() As Range, UPRange As Range, TRange As RangeDim i As Long, AreaNum As LongD...

八个公式真简单,月薪少说三千三

八个公式真简单,月薪少说三千三

小伙伴们好啊,今天和大家分享一组常用的函数套路,小伙伴们遇到类似问题可以直接拿来套用即可。1、IF函数用来完成非此即彼的判断。如下图,要判断成绩是否合格。公式:=IF(C2>=60,"及格","不及格")用法...

21个常用日期函数组合

21个常用日期函数组合

今天整理了21个最常用的日期函数组合,分享给大家~1、=TODAY()计算当前的系统日期2、=NOW()计算当前系统日期和时间,设置单元格格式为yyyy/m/d h:mm3、= NOW()-TODAY()计算当前是几点几分。设置单元格格式为...

EXCEL如何计算两个年份间的年数,月数和天数差

EXCEL如何计算两个年份间的年数,月数和天数差

在EXCEL中,我们如果要求两个年份间的年数,月数和天数差,可以用到"DATEDIF"函数,那么具体怎么操作呢?请看如下操作。 方法/步骤 首先,打开需要编辑的数据表,输入你要编辑的数据,点击年数单元格; 在菜单栏点击"公式...

给我一分钟,制作聚光灯

给我一分钟,制作聚光灯

诸君好。咱们又见了,微笑。我们今天分享一种方法,能实现聚光灯的效果。1,设置条件格式首先选择数据区域,然后单击【开始】选项卡下的【条件格式】按钮,在弹出的操作菜单中选择【新建规则】→【使用公式确定要设置格式的单元格...

运用邮件合并,批量生成各种文档

运用邮件合并,批量生成各种文档

当我们在制作文档主体内容相同,只是具体数据有变化的文档时,就可以灵活运用邮件合并功能,快速批量生成各种文档,不仅可以以邮件的形式批量发送,还可以批量打印,非常快速和方便。1.创建数据源在邮件合并前,需要预先设定或指...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。