FGHRSH 的博客

Please wait...

Excel 2013 工作表保护密码破解

温馨提示: 此方法不适用于 一打开就要输入密码 才能查看的表格

之前整理了下 Excel 2013 的工作表保护密码破解办法

今天无意中又用到了,就分享出来吧

Tips:如果你想彻底加密你的工作表,把它压缩到RAR/7z压缩包里,设个16位的密码,就基本破解不了了。


QQ截图20150407222247.png

今天我叫baojun弄了个游戏物品价格表发给我,

[迟来的愚人节]:不知怎么他给我弄加密了,还叫我破解密码= =

那好吧,反正有空,咱们就来破解下 233


QQ截图20150407222729.png

1.对着工具栏空白的地方右键,选“自定义功能区(R)...” 


QQ截图20150407222804.png

2.找到“开发工具”勾选并确定


QQ截图20150407222831.png

3.你会发现工具栏就多了栏“开发工具”,进去找到“录制宏”


QQ截图20150407222844.png

4.记得把它创建在“个人宏工作簿”=-=


QQ截图20150407222858.png

5.创建好后什么都不用动,直接“停止录制”


QQ截图20150407222912.png

6.点击 “Visual Basic”


QQ截图20150407223110.png

7.在左边导航栏找到“模块一”,并双击打开


QQ截图20150407223250.png

8.删掉里面所有内容,把破解代码(结尾给出)替换进去,并保存(切记)


QQ截图20150407223312.png

9.关掉刚刚的“Visual Basic”窗口,点击“宏”


QQ截图20150407223341.png

10.点击刚刚导入的破解宏,并执行(打开了多个工作簿可在位置选择需要的)


QQ截图20150407223353.png

11.开始破解,“确定”


QQ截图20150407223400.png

12.表一密码已破解


QQ截图20150407223414.png

13.表二密码已破解


QQ截图20150407223422.png

14.至此,密码已经全部破解完成


QQ截图20150407223514.png

内容已经可以正常编辑了,教程结束

Tips:破解中会卡段时间(Excel 无响应)此属正常现象,稍等一下即可


附:Excel 工作表保护密码破解宏 源码

Public Sub 工作表保护密码破解()
Const DBLSPACE As String = vbNewLine & vbNewLine
Const AUTHORS As String = DBLSPACE & vbNewLine & _
"作者:McCormick   JE McGimpsey "
Const HEADER As String = "工作表保护密码破解"
Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
Const REPBACK As String = DBLSPACE & ""
Const ZHENGLI As String = DBLSPACE & "                        FGHRSH 整理"
Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
& DBLSPACE & "注意:不要用在不当地方,要尊重他人的劳动成果!"
Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
"如果该文件工作表有不同密码,将搜索下一组密码并解除"
Const MSGONLYONE As String = "确保为唯一的?"
Dim w1 As Worksheet, w2 As Worksheet
Dim i As Integer, j As Integer, k As Integer, l As Integer
Dim m As Integer, n As Integer, i1 As Integer, i2 As Integer
Dim i3 As Integer, i4 As Integer, i5 As Integer, i6 As Integer
Dim PWord1 As String
Dim ShTag As Boolean, WinTag As Boolean
Application.ScreenUpdating = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows
End With
ShTag = False
For Each w1 In Worksheets
ShTag = ShTag Or w1.ProtectContents
Next w1
If Not ShTag And Not WinTag Then
MsgBox MSGNOPWORDS1, vbInformation, HEADER
Exit Sub
End If
MsgBox MSGTAKETIME, vbInformation, HEADER
If Not WinTag Then
Else
On Error Resume Next
Do 'dummy do loop
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
With ActiveWorkbook
.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)
If .ProtectStructure = False And _
.ProtectWindows = False Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND1, _
"$$", PWord1), vbInformation, HEADER
Exit Do 'Bypass all for...nexts
End If
End With
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
If WinTag And Not ShTag Then
MsgBox MSGONLYONE, vbInformation, HEADER
Exit Sub
End If
On Error Resume Next
For Each w1 In Worksheets
'Attempt clearance with PWord1
w1.Unprotect PWord1
Next w1
On Error GoTo 0
ShTag = False
For Each w1 In Worksheets
'Checks for all clear ShTag triggered to 1 if not.
ShTag = ShTag Or w1.ProtectContents
Next w1
If ShTag Then
For Each w1 In Worksheets
With w1
If .ProtectContents Then
On Error Resume Next
Do 'Dummy do loop
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
.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)
If Not .ProtectContents Then
PWord1 = Chr(i) & Chr(j) & Chr(k) & Chr(l) & _
Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
Chr(i4) & Chr(i5) & Chr(i6) & Chr(n)
MsgBox Application.Substitute(MSGPWORDFOUND2, _
"$$", PWord1), vbInformation, HEADER
'leverage finding Pword by trying on other sheets
For Each w2 In Worksheets
w2.Unprotect PWord1
Next w2
Exit Do 'Bypass all for...nexts
End If
Next: Next: Next: Next: Next: Next
Next: Next: Next: Next: Next: Next
Loop Until True
On Error GoTo 0
End If
End With
Next w1
End If
MsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK & ZHENGLI, vbInformation, HEADER
End Sub


本文标题:Excel 2013 工作表保护密码破解
本文链接:https://www.fghrsh.net/post/15.html
作者授权:除特别说明外,本文由 fghrsh 原创编译并授权 FGHRSH 的博客 刊载发布。
版权声明:本文使用「署名-非商业性使用-相同方式共享 4.0 国际」创作共享协议,转载或使用请遵守署名协议。

网友评论35

  1. 运维小白 2018-04-26 13:37:48 回复

    运行时错误‘91’对象变量或with块变量未设置

    1. fghrsh 2018-04-27 00:56:52 回复

      错误的话就要用工具破了,xls 的话随便百度个就能解,xlsx 就麻烦点了

  1. excel密码 2018-03-13 14:27:39 回复

    免费excel密码破解软件下载http://www.inrrp.com.cn/download/

  1. 282c50b68767ac182f87 2018-01-19 22:10:15 回复

    282c50b68767ac182f8751b8667261d6提示这个

    1. 282c50b68767ac182f87 2018-01-19 22:11:52 回复

      282c50b68767ac182f8751b8667261d6

  1. bruce 2018-01-18 20:40:10 回复

    未响应10分钟正常嘛。。

    1. fghrsh 2018-01-25 22:29:53 回复

      Σ(っ °Д °;)っ 肯定不正常

  1. 潘多fish 2018-01-10 17:13:34 回复

    我也是这里出错:
    WinTag = .ProtectStructure Or .ProtectWindows这个位置报错啊?博主如何搞 啊

    1. fghrsh 2018-01-10 17:15:06 回复

      这种大概要用 破解器 了

  1. 111 2017-12-12 09:32:36 回复

    太赞了 感谢

  1. 111 2017-12-12 09:32:08 回复

    太赞了 感谢

  1. exceler 2017-10-17 20:05:14 回复

    还是看这个excel密码破解http://www.inrrp.com.cn/excelmimapojie.html

    1. fghrsh 2017-10-17 20:07:16 回复

      emmmmmm,收费收的比某宝还高

      1. 扣扣717121335 2018-01-13 12:47:37 回复

        需要解决打开密码的可以找我!QQ77121335

      1. exceler 2017-10-19 16:20:21 回复

        可靠啊,速度也快

  1. zdr 2017-09-26 11:00:38 回复

    最后一步点了确定之后就几秒就未响应

  1. 李超杰 2017-07-22 21:07:06 回复

    棒棒哒!!!谢谢分享!!!!!!!!!!!!

  1. 求助 2017-01-21 13:30:00 回复

    WinTag = .ProtectStructure Or .ProtectWindows这个位置报错啊?博主如何搞 啊

    1. 小屁孩 2017-11-21 15:54:37 回复

      我也是这个位置报错!

      1. fghrsh 2017-11-22 22:51:29 回复

        ( >ω<) 这个... 我也不太清楚

  1. lpV 2017-01-05 00:20:14 回复

    楼主可以给个你的联系方式吗

    1. fghrsh 2017-01-05 00:26:08 回复

      关于页 有的 ( ̄▽ ̄)

  1. Dev 2016-11-10 16:30:12 回复

    大神 看到能加我一下微信吗 急需请教一下Devil2752..跪求。。。。。

  1. 胡志升 2016-10-20 16:44:12 回复

    语法错误。怎么回事,大神看到加我QQ32943881,求破解Excel2013表

  1. 合约.张又川 2016-02-18 13:08:39 回复

    语法错误,怎么回事?代码有误吗?

    1. 111 2016-03-13 21:19:20 回复

      把中文标题修改为英文

    1. fghrsh 2016-02-19 17:04:03 回复

      应该没错的,我之前用过试验过的了,你看看是不是什么地方复制错了,模块1那里的代码是全部删掉,粘贴网页的进去

  1. 内涵段子 2015-10-02 22:21:22 回复

    路过,留个脚印,网站很棒!

  1. 舞恸 2015-09-29 21:42:05 回复

    吊炸

  1. 最励志官网 2015-09-07 01:44:34 回复

    最励志网http://www.zuilizhi.net/? 路过留个言!

  1. 花呗套现 2015-05-21 11:40:12 回复

    密码破解

    1. Dev 2016-11-10 16:25:29 回复

      看到我请加一下我微信 Devil2752 急需请教一下

  1. 三亚婚纱摄影 2015-05-20 23:10:21 回复

    看着都醉了

  1. 马仔 2015-05-09 23:08:46 回复

    屌啊服主

  1. 火锅桌椅 2015-05-06 09:29:38 回复

    谢谢分亨,又学到东西啦

发表我的评论

Hi,您需要填写昵称和邮箱!

  • 必填项
00:00 / 00:00
顺序播放