报表忘记密码打不开怎么解密（老板让我改报表）

忙族 2023-08-04 03:38:25 521

报表忘记密码打不开怎么解密（老板让我改报表）但AOPR的致命缺点是——要收费，当然，还有免费版本的，又不过呢，免费的只能破解4个字符以内的密码。这对很多人来说已经够了。AOPR是ADVANCED OFFICEPASSWORD RECOVERY的缩写。这是一款市面上主流的office密码破解工具，可对95-2016版本的任何Office文档进行解密。不说了加班去了，让芸豆教你悄悄吐槽：会计怎么能这么粗心呢，有小伙伴反应大多数方法在office2016无法使用，而我，机智的芸豆找到了2016也可以破解的方法，快来试试吧~1、用AOPR软件破解——亲测有效

月中了，我加班快一周做出来的财务报告，终于做出来了！！！！！

报表忘记密码打不开怎么解密（老板让我改报表）(1)

为了保护我的小宝贝不被乱改，我及其郑重的设置了一个及其复杂的密码...

谁知道！老板让我在财务报告中加上之前漏掉的一笔还款，而我试了一天密码都没试出来！！！

报表忘记密码打不开怎么解密（老板让我改报表）(2)

在问了芸豆小编后，我花了一分钟就破解了密码，打开了Excel，更改数据，走向人生巅峰！

不说了加班去了，让芸豆教你

报表忘记密码打不开怎么解密（老板让我改报表）(3)

悄悄吐槽：会计怎么能这么粗心呢，有小伙伴反应大多数方法在office2016无法使用，而我，机智的芸豆找到了2016也可以破解的方法，快来试试吧~

1、用AOPR软件破解——亲测有效

AOPR是ADVANCED OFFICEPASSWORD RECOVERY的缩写。这是一款市面上主流的office密码破解工具，可对95-2016版本的任何Office文档进行解密。

但AOPR的致命缺点是——要收费，当然，还有免费版本的，又不过呢，免费的只能破解4个字符以内的密码。这对很多人来说已经够了。

下面，我们一起来试一试吧。这个软件下载和安装都非常方便

软件获取办法：

AOPR官方网下载：http://www.passwordrecovery.cn/

如果英文不好的，还可以选择中文显示

报表忘记密码打不开怎么解密（老板让我改报表）(4)

下面是破解的结果，一切密码都暴露无遗呀（不骗你，真的只用了5秒）

这也说明了office excel 加密的安全级别并不高

报表忘记密码打不开怎么解密（老板让我改报表）(5)

（如果软件运行不了，把杀毒软件关了再试试吧）

2、用VBA代码破解

要输入VBA，首先必须打开工作簿才行，所以该法不适合“打开工作簿需要密码”的情况。

很多人觉得VBA太难，不懂操作。其实，你不需要懂VBA，只需要懂复制黏贴就可以了。

具体操作如下：

打开需要破解的工作簿——调出VB编辑器（Alt F11）——粘贴下面这段代码——运行代码（F5）

代码1如下（适合office2007-2016）

Sub PJ() Dim sht AsWorksheet For Each sht InWorksheets sht.Protect AllowFiltering:=True sht.Unprotect Next End Sub

代码2如下（适合office97-2003）

Public Sub AllInternalPasswords() ' Breaks worksheet and workbook structure passwords. Bob McCormick ' probably originator of base code algorithm modified for coverage ' of workbook structure / windows passwords and for multiple passwords ' ' Norman Harker and JE McGimpsey 27-Dec-2002 (Version 1.1) ' Modified 2003-Apr-04 by JEM: All msgs to constants and ' eliminate one Exit Sub (Version 1.1.1) ' Reveals hashed passwords NOT original passwords Const DBLSPACE As String = vbNewLine & vbNewLine Const AUTHORS As String = DBLSPACE & vbNewLine & _ "Adapted from Bob McCormick base code by" & _ "Norman Harker and JE McGimpsey" Const HEADER As String = "AllInternalPasswords User Message" Const VERSION As String = DBLSPACE & "Version 1.1.1 2003-Apr-04" Const REPBACK As String = DBLSPACE & "Please report failure " & _ "to the microsoft.public.excel.programming newsgroup." Const ALLCLEAR As String = DBLSPACE & "The workbook should " & _ "now be free of all password protection so make sure you:" & _ DBLSPACE & "SAVE IT NOW!" & DBLSPACE & "and also" & _ DBLSPACE & "BACKUP! BACKUP!! BACKUP!!!" & _ DBLSPACE & "Also remember that the password was " & _ "put there for a reason. Don't stuff up crucial formulas " & _ "or data." & DBLSPACE & "Access and use of some data " & _ "may be an offense. If in doubt don't." Const MSGNOPWORDS1 As String = "There were no passwords on " & _ "sheets or workbook structure or windows." & AUTHORS & VERSION Const MSGNOPWORDS2 As String = "There was no protection to " & _ "workbook structure or windows." & DBLSPACE & _ "Proceeding to unprotect sheets." & AUTHORS & VERSION Const MSGTAKETIME As String = "After pressing OK button this " & _ "will take some time." & DBLSPACE & "Amount of time " & _ "depends on how many different passwords the " & _ "passwords and your computer's specification." & DBLSPACE & _ "Just be patient! Make me a coffee!" & AUTHORS & VERSION Const MSGPWORDFOUND1 As String = "You had a Worksheet " & _ "Structure or Windows Password set." & DBLSPACE & _ "The password found was: " & DBLSPACE & "$$" & DBLSPACE & _ "Note it down for potential future use in other workbooks by " & _ "the same person who set this password." & DBLSPACE & _ "Now to check and clear other passwords." & AUTHORS & VERSION Const MSGPWORDFOUND2 As String = "You had a Worksheet " & _ "password set." & DBLSPACE & "The password found was: " & _ DBLSPACE & "$$" & DBLSPACE & "Note it down for potential " & _ "future use in other workbooks by same person who " & _ "set this password." & DBLSPACE & "Now to check and clear " & _ "other passwords." & AUTHORS & VERSION Const MSGONLYONE As String = "Only structure / windows " & _ "protected with the password that was just found." & _ ALLCLEAR & AUTHORS & VERSION & REPBACK 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 MsgBox MSGNOPWORDS2 vbInformation HEADER 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 vbInformation HEADER End Sub

3、通过修改源代码破解

大家发现没有，office2007开始，文件的后缀名发生了改变，比如xls变为xlsx。

而xlsx格式本质上就是压缩包，我们可以通过修改后缀名直接获取excel的源文件。

① 修改Excel后缀名为.rar（期间会提出警告，但不用理它，点“是”即可）

报表忘记密码打不开怎么解密（老板让我改报表）(6)