excel文件忘记密码
编辑: 成考报名 发布时间:10-11 阅读:
excel文件忘记密码后的解密方法
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!!!" & _【excel文件忘记密码】
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 " & _【excel文件忘记密码】
"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【excel文件忘记密码】
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
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文件忘记密码了该怎么办呢? 有个朋友就给自己的电子表格都加密了,但是现在密码不知道设是什么了, 打不开文件, 密秘数据对自己都关上了大门,发信息来我这求救了。 加密解密从来就是两个冤家, 只要能你加密上去 , 就有解开的办法 俗话说 "道高一尺, 魔高一丈", 就是这个意思. 但不是每个人都有这么高的道行, 有如些高深的电脑知识知道如何去破解. 这些都有专业的人去做. 我们用人家的成果--破解软件就行了.
Excel文件加了密码的文件, 推荐使用使用软件 “Office Password Remover”,这个软件能破解Word、Excel和Access文档密码, 而且速度很快,一般情况下解密过程要要几秒钟就行了.
这个软件可以在网上搜索一上, 有很多破解版的可以下载, 这里就不提供下载了. 安装很容易, 一路Next就行了. 该软件下载并安装后,会直接在桌面形成快捷方式. 这里注意, 最好下载破解版,如果是非破解版的软件,破解后的文件很可能出现部分内容遗失的情况。
使用的方法也很简单,双击软件图标,软件弹出的界面看起来很简单,选中“文件夹”图标中,这时候指定需要破解的文档地址,找到忘记密码的Excel文件, 下面的工作软件会自己完成, 如果存在密码,该软件就会自动破解,速度很快。如果没有密码,会自动显示为None, 表示不用破解。
EXCEL密码忘记了怎么办
excel文件忘记密码 第三篇
方法一:第三方Office Password Remover 软件
通过数据丢失我们会向导用第三方数据恢复软件来进行修复,而密码忘记了,我们也可以采集第三方工具破解密码的方式来解决。这里推荐大家使用office2003版: Password Remover2.0软件。
Office Password Remover 是一款可以瞬间破解 Word、Excel和Access 文档密码的工具,一般情况下解密过程不超过5秒,而且操作简单,无需设置。但是使用本软件需要连接到互联网,因为要向软件服务器发送少量的数据并解密,不过本软件不会泄露任何个人隐私,请放心使用。如图所示:
方法二、通过启用宏程序来破解excel文档
如果上述方法破解出现异常,我们采集通过启用宏程序的方法进行密码破解,具体操作如下:
先新建一个Excel文档文件,确保宏可以启用(菜单的工具--宏---安全性设置,调整为中)。同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename(Excel文件(*.xls & *.xlsx),*.xls;*.xlsx, , VBA破解)
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, ))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox Password is & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
然后在此界面直接按F5运行此宏,选择文件,(看密码长度了)。如果超过6位数以上的密码可能需要的时间要更长,这里就需要我们慢慢的等待了。
Excel文件忘记密码怎么办
excel文件忘记密码 第四篇
热心网友
如果Excel文件的打开密码忘记了,且密码是6位数以内的数字,可用以下步骤解开(关掉所有程序,为了速度):新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application。GetOpenFilename("Excel文件(*。xls & *。xlsx),*。Excel文件忘记密码怎么办。xls;*。xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Application。ScreenUpdating = False
line2: On Error GoTo line1
Workbooks。Open FileName, ,True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application。ScreenUpdating = True
End Sub
然后在此界面直接按F5运行此宏,选择文件,等啊等(看密码长度了)
冰点还原精灵忘记密码怎么办
excel文件忘记密码 第五篇
看看你C:\下面的persi0。sys还在不在?有条件可以在DOS环境下从另外一台装有冰点的电脑上C盘根目录中拷这个文件过来。放在C盘根目录下,可以解决!
下面是另一种破解方法,没有另一台电脑时。
忘记密码时,如果你有光盘系统或U盘启动,那好办!用安全模式下另台装无密码的冰点的c:\persi0。冰点还原精灵忘记密码怎么办。sys覆盖这台机的即可。
当时手边没有U盘,没有光盘,只有一个包含GHOST还原的双启动菜单(即windows启动前:选启动XP;还是启动MAXDOS)。 另之前装机后备份的干净系统Cwin_XP。gho。
我的破解步骤如下:
1。将当前系统C盘ghost到另一个分区,我这里给它命名为DF_WIN。gho。冰点还原精灵忘记密码怎么办。
2。然后将装机后的那个干净的Cwin_XP。GHO还原至C盘,把这个系统基础装上冰点还原精灵。这次安装的冰点还原精灵设一个简单的密码或者不设密码都行,另外还要禁用它的还原保护(让图标打上红叉叉)。
3。这时重启动windows到安全模式下,拷贝出C盘根目录下的persi0。sys, 当时我是把这个文件放在D盘根目录下。
4。再重启电脑,用Ghost explorer打开DF_WIN。gho,将刚刚拷出来D盘根目录下的persi0。sys拖动到刚打开的DF_WIN。gho里的根目录下。
5。将DF_WIN。gho还原到C盘。
如果你是按照上面每一步没错的话,完成后重启你将看到冰点图标重新出现,这样你就可以重装一个新的冰点,或者卸载了!
当然还可以直接重装下系统。 提问者评价 谢谢
苹果笔记本电脑密码忘了怎么办
excel文件忘记密码 第六篇
3,,
具体操作,9进入,重启----按住Option键----进入Recovery HD-----进入系统-----打开终端,输入如下命令
resetpassword
弹出重设密码窗口,可以到系统偏好设置-用户与群组看到当前使用者),同时立即按住Option键,然后输入代码,
5,最后输入新的密码就是了,这样就打开终端了,
4,
2,然后在弹出来的对话框中选择你自己(关于用户,HD和恢复-10,菜单栏选择实用工具,里面的终端,
1,可以自己重设,resetpassword
6,重启,看到分区的时候放开Option键,选择那个恢复-10,
word文档的密码忘了,打不开了,怎么办啊?求救
excel文件忘记密码 第七篇
1、用简单:首先创建word文档使用窗体保护式保护文档工具->保护文档->Check仅允许文档进行类编辑->Choose填写窗体弹密码框输入2密码(我选择123作word文件密码)该文档已经保护起
我破解打刚才创建word文档文件->另存->选择HTML格式存HTML文档用记事本打该HTML文件搜索"<w:UnprotectPassword>"看5BCECF7A字(密码用123)
接着我用UltraEdit或其类似工具打初受保护Word文档搜索7ACFCE5B搜索都用80代替存盘
Word文档密码清空自取消文档保护密码用输入按车事
用WordKey恢复Word密码
WordKey款著名Word密码恢复工具通暴力破解、字典破解等快速Word文档密码恢复所忘记Word文档密码WordKey帮忙啦
参考资料:。weste。net/2005/6-14/21340125539。html
找office文件密码
office使用普遍办公软件工作繁忙难免现各种意外比重要WORD文档加密却密码忘干二净让恼火着急
使用AOPR(全称Advanced office 2000 password Recovery载址:。word文档的密码忘了,打不开了,怎么办啊?求救。sky。/soft/4373。html)
软件:Advanced Office XP Password Recovery Pro
download。enet。。/html/070532003080401。html
Advanced Office Password Recovery Microsoft Office 文件密码恢复工具支持新版本 Office 2003 所组件支持所语言版本非载址:
。word文档的密码忘了,打不开了,怎么办啊?求救。hanzify。org/index。php?Go=Show::List&ID=8444
office文档密码快找拿DOC文档做演习
1、安装AOPR启点击FileName右侧打文件夹图标选择需要进行破解文件
2、Type of attack使用默认Bruteforce attack设置密码度组字符
3、设置点击工具栏Start recovery始破解稍(间短跟设置密码度组复杂度关系)密码功破解
AOPR光破解WORD文件EXCEL等OFFICE软件产文档密码都进行解码致