发布时间 : 星期五 文章excel2007怎么使用代码破解密码 excel密码破解代码更新完毕开始阅读11b85f3a68dc5022aaea998fcc22bcd126ff429d
excel2007怎么使用代码破解密码 excel密码破解代码
在Excel中录入过多的重要数据是人们的习惯，因此这些文件都需要利用密码进行保护。但是忘记密码了怎么办呢，接下来让小编为你带来excel表设置密码忘记如何打开的解决方法，欢迎大家来到学习。 excel2007表格设密码忘记的打开方法 1. 打开需要破解密码的Excel 2. 按Alt+F11进入VBA编辑界面 3. 插入 -- 模块
4. 在右边Module的空白编辑区域，复制粘贴下面所有内容 5. F5，运行该VBA命令
---------------------------------------------- Option Explicit
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
’ Modified 2003-Apr-04 by JEM: All msgs to constants, and ’ eliminate one Exit Sub
’ 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 2003-Apr-04” Const REPBACK As String = DBLSPACE & “Please report failure “ & _ ”to the 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 = False
With ActiveWorkbook
WinTag = .ProtectStructure Or .ProtectWindows End With ShTag = False
For Each w1 In Worksheets ShTag = ShTag Or 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 & Chr & Chr & _ Chr & Chr & Chr & Chr & _ Chr & Chr & Chr & Chr & Chr If .ProtectStructure = False And _ .ProtectWindows = False Then
PWord1 = Chr & Chr & Chr & Chr & _ Chr & Chr & Chr & Chr & _ Chr & Chr & Chr & Chr
MsgBox , 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 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 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 & Chr & Chr & _ Chr & Chr & Chr & Chr & Chr & _ Chr & Chr & Chr & Chr If Not .ProtectContents Then
PWord1 = Chr & Chr & Chr & Chr & _ Chr & Chr & Chr & Chr & _ Chr & Chr & Chr & Chr
MsgBox , vbInformation, HEADER
’leverage finding Pword by trying on other sheets For Each w2 In Worksheets 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
----------------------------------------------
然后就会弹出如上图所示提示,the password found was:AAABBAABBBB6就是密码.快去看看这个excel是不是已经可以修改/复制等操作了。
猜你感兴趣：
中2007版进行破解密码的操作方法 2.破解excel2007密码软件怎么用 3.如何5秒破解excel2007密码 中破解密码工具的使用方法 打开密码破解工具如何使用