excel破解加密文件(xlsx格式文件加密破解方法)

当时我就破解了税务局这份表格的密码,不过当初怕说出方法后,被别人乱改这份模板,所以直到今天才说明。

打开模板,可以看到各种功能都是灰色的,也就是工作表被保护了。

这个Excel破解密码的方法,真快这个Excel破解密码的方法,真快

这个我是借助VBA破解的。

在开发工具,点VB,进入后台,插入模块,将代码粘贴进去,点运行。

这个Excel破解密码的方法,真快这个Excel破解密码的方法,真快

运行后,稍等片刻,就可以破解。注意观察菜单栏,灰色的功能什么时候恢复正常的。整个操作过程,大概7秒。

这个Excel破解密码的方法,真快这个Excel破解密码的方法,真快

财务工作中,你是否遇到焦头烂额不知如何解决的问题呢?

(此处已添加小程序,请到今日头条客户端查看)

原模板还设置了工作簿保护,现在找不到那个没破解的,所以我自己重新设置了工作簿保护,这样隐藏起来的表格就没办法直接取消。

这个Excel破解密码的方法,真快这个Excel破解密码的方法,真快

针对这种,需要用另外一段代码,将所有工作表复制到新工作簿,这样就可以看到所有工作表。

被我隐藏的工作表叫下拉值,运行后,2-3秒就生成一个新工作簿,里面可以看到下拉值这个工作表。

这个Excel破解密码的方法,真快这个Excel破解密码的方法,真快

以上纯属技术交流,别用我教的方法去乱破解别人的模板,切记。最后,还有一种密码几乎破解不了,那就是工作簿的打开密码。

Sub 破解密码()

Dim i As Integer, j As Integer, k As Integer

Dim l As Integer, m As Integer, n As Integer

Dim i1 As Integer, i2 As Integer, i3 As Integer

Dim i4 As Integer, i5 As Integer, i6 As Integer

On Error Resume Next

If ActiveSheet.ProtectContents = False Then

MsgBox “当前表没有设置密码,请确定被保护的表是否为活动工作表! “

Exit Sub

End If

For i = 65 To 66: For j = 65 To 66: For k = 65 To 66

For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66

For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66

For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126

If ActiveSheet.ProtectContents = False Then

MsgBox “密码已经破解! “

Exit Sub

End If

ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _

Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _

Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)

Next: Next: Next: Next: Next: Next

Next: Next: Next: Next: Next: Next

End Sub

Sub 复制到新工作簿()

ActiveWorkbook.Sheets.Copy

For Each sh In ActiveWorkbook.Sheets

sh.Visible = True

Next

End Sub

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容,请发送邮件至624739273@qq.com举报,一经查实,本站将立刻删除。
Like (0)
柳的头像

相关推荐

  • 淘宝直播为什么不行了?

    客单价没有太大变动的情况下,一定是因为淘宝直播的流量“离家出走”了。至于走到哪,大家也都心知肚明:抖音和快手一只脚已经跨进了千亿级电商平台的大门,三国杀即将变成五国杀。 那么究竟出…

    2024年9月6日
  • qq群怎么解散再恢复(用手机怎么恢复qq群)

      在使用微信的过程中有可能遇到不小心点错了创建了个群或者想解散某些群的情况,这就涉及到微信群怎么解散的,微信群创建后怎么解散群聊的问题。然而,仅仅删除并退出不能真正解散群,怎么才…

    2024年8月30日 投稿
  • 魔兽世界宠物大全位置(魔兽世界各系最强宠物)

    《魔兽世界:暗影国度》上线已经过去了两周多,各种丰富有趣的系统都已经被各路脚男发掘了出来。自以往版本开始,小宠物战斗在加入魔兽世界玩法以后可谓经久不衰,厌倦了繁琐困难的副本战斗和世…

    2024年8月28日 投稿
  • excel做图表折线图(excel趋势图的制作方法)

    在实际工作中,Excel表格常常会用到。当有一组数据需要对比时,使用图形比单纯看数据方便很多,能更加直观地看到对比结果。 上一期我们学习了柱形图,这次小易带大家学习如何制作折线图。…

    2024年8月31日 投稿
  • 治愈系是什么意思,高质量治愈系暖文分享

    【精读君曰】 “不管现实有多么艰难,你都要相信自己,这只是黎明前暂时的黑暗而已。”这样的勇气,就是治愈系作品所能带给我们的力量。 下面是6部温暖治愈系作品,愿能够陪伴着你,走过悲伤…

    2024年8月26日 投稿
  • cad改变照片背景颜色(cad制图颜色设置方法)

    新手需要调整好绘图界面,才能更加方便快捷的绘制CAD图,本文介绍CAD新手怎样调整绘图界面 一、CAD的背景板调试 若打开CAD后整个界面背景都是白色,对于画图的人来说这种背景看久…

    2024年8月30日 投稿

发表回复

Please Login to Comment
微信
微信
SHARE
TOP
要想花得少,就用购宝。话费电费9折起,官方公众号:购宝