【www.guakaob.com--荷兰移民】
篇一:《excel文件忘记密码后的解密方法》
excel文件忘记密码后的解密方法
excel文件密码的设置有2种，一种是写保护，另外一种是打开保护。对应不同的保护措施，应该用不同的解密方法。 一： 这是写保护的破解：
方法:
1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏)
4\工具---宏----宏,选aa,点编辑按钮
5\删除窗口中的所有字符(只有几个),替换为下面的内容:(复制吧)
6\关闭编辑窗口
7\工具---宏-----宏,选AllInternalPasswords,运行,确定两次,等2分钟,再确定.OK,没有密码了!!代码如下：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 & VERSIONexecl文件忘记密码。
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...nextsexecl文件忘记密码。
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
6. 然后执行便可获得密码
附件：
Sub PasswordBreaker()
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
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
ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _
Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _
篇二:《excel文件密码忘记了该怎么办》
excel文件密码忘记了该怎么办
大部份朋友都喜欢加密Excel文件, 但如果很久不用, 可能自己都忘记密码了. Excel文件忘记密码了该怎么办呢? 有个朋友就给自己的电子表格都加密了，但是现在密码不知道设是什么了, 打不开文件, 密秘数据对自己都关上了大门，发信息来我这求救了。 加密解密从来就是两个冤家, 只要能你加密上去 , 就有解开的办法 俗话说 "道高一尺, 魔高一丈", 就是这个意思. 但不是每个人都有这么高的道行, 有如些高深的电脑知识知道如何去破解. 这些都有专业的人去做. 我们用人家的成果--破解软件就行了.
Excel文件加了密码的文件, 推荐使用使用软件 “Office Password Remover”，这个软件能破解Word、Excel和Access文档密码, 而且速度很快，一般情况下解密过程要要几秒钟就行了.
这个软件可以在网上搜索一上, 有很多破解版的可以下载, 这里就不提供下载了. 安装很容易, 一路Next就行了. 该软件下载并安装后，会直接在桌面形成快捷方式. 这里注意, 最好下载破解版，如果是非破解版的软件，破解后的文件很可能出现部分内容遗失的情况。
使用的方法也很简单，双击软件图标，软件弹出的界面看起来很简单，选中“文件夹”图标中，这时候指定需要破解的文档地址，找到忘记密码的Excel文件, 下面的工作软件会自己完成, 如果存在密码，该软件就会自动破解，速度很快。如果没有密码，会自动显示为None, 表示不用破解。
篇三:《Excel工作表保护密码忘记之解决办法》
工作表保护密码破解（图解）
1、新建一个EXCEL文件“BOOK1”， 在工具栏空白位置，任意右击，选择Visual Basic项， 弹出Visual Basic工具栏：
2、在Visual Basic工具栏中，点击“录制”按钮， 弹出“录制新宏”对话框，选择“个人宏工作簿”：execl文件忘记密码。
3、选择“个人宏工 弹出如下“暂停”
作
按簿钮”，后点按击确停定止， ：
4
、
在
Visual
Basic
工
具
栏
中execl文件忘记密码。
，
点
击
“编
辑
”按
钮
：
5、点击“编辑”按钮后，弹出如下图的编辑界面： 找到“VBAProject（PERSONAL.XLS）－模块－模块1（也可能是模块N-其他数字）” 双击模块1－将右边代码内容清空
6、复制“工作保护密码破解”代码到右边框中，点保存，然后关闭“BOOK1”
7、运行需要解密的“EXCEL文件”，在Visual Basic工具栏中，点击“运行”按钮
8、点击“运行”按钮后，弹出“宏”对话框， 点击运行“PERSONAL.XLS!工作保护密码破解”这个宏
9、运行“PERSONAL.XLS!工作保护密码破解”这个宏后， 如下图示意就可以
解除工作表的密码保护了
（
这
个
图
，
如
果
工
作
表
中
有
多
组
不
同
密
码
，
每解开一组，就会提示一次，也就说可能会出现几次）
篇四:《Excel文件忘记密码怎么办》
热心网友 如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开(关掉所有程序，为了速度):