乔山办公网我们一直在努力
您的位置:乔山办公网 > excel表格制作 > 如何快速破解EXCEL表格密码

如何快速破解EXCEL表格密码

作者:乔山办公网日期:

返回目录:excel表格制作


EXCEL工作表保护密码破解
方法:
1\打开文件
2\工具---宏----录制新宏---输入名字如:aa
3\停止录制(这样得到一个空宏7a686964616fe78988e69d83332)
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 & 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 这个方法能行的,我亲自试过的。

http://jingyan.baidu.com/article/5bbb5a1b3d061413eba179c7.html
(1)EXCEL文件的加密:  先来看看如何针对EXCEL文件进行加密,首先打开要加密的EXCEL文件,然后选择菜单的“文件”->“另存为”,在打开的“另存为”窗口中选择右上角的“工具”->“WEB选项”。  之后就会自动弹出一个窗口,里面包括了对打开权限密码以及修改权限密码的设置选项,添加对应密码后确定即可。  和WORD文档加密一样需要确认输入的密码,确认后关闭保存窗口。  这样每次打开该EXCEL文件后都会首先弹出打开密码输入对话框,只有输入正确的密码才能够查看里面的内容。通过以上几步完成了对EXCEL文档的加密工作。那么excel密码破解方法有哪些呢?(2)EXCEL文档密码破解不求人:  根据提供的消息资料,就能了解到excel密码破解方法。和之前的操作一样通过OfficepasswordRecoveryToolbox打开要破解密码的文件,然后选择要破解的密码类型,点REMOVE按钮完成操作。  软件发送找到的EXCEL文件加密KEY信息,找到后发送到rixlersoftwareserver服务器进行在线破解。  等待一段时间后弹出“thedocumenthasbeensuccessfullydecrypted”提示后说明这个文件已经被成功破解掉了密码,点“确定”关闭软件。  之后会看到新建立的XXX(DEMO).xls文件,这个就是破解后没有打开密码以及修改密码限制的EXCEL文件,打开该文件可以看到与之前加密EXCEL文件一样的内容,输入信息也都e799bee5baa6e79fa5e98193e4b893e5b19e366是可以保存的,从而顺利的完成了针对EXCEL文件密码的破解工作。想要详细了解excel密码破解方法,可以继续关注excel密码破解教程的最新动态。Excel密码破解工具使用教程:  1、先暂定系统中的杀毒软件,等将Excel密码破解完毕后再重新开启杀毒。(破解类的工具杀毒软件都会误认为是木马或病毒,这个没毒,请放心使用。)  2、双击运行该软件。  3、单击“文件”按钮,在弹出的菜单中选择“打开文件…”,然后找到你需要破解的Excel表格的存放位置,打开。  4、此时,Excel文件就已经导入了此软件,大家还可以看到可以破解“打开”、写入、工作簿密码、共享工作簿密码、VBA工程密码等,全部可以移除。点击界面上的“移除密码”。  5、点击“移除密码”以后会提示程序必须要链接网络才可以运行,(确定你的计算机是否已经链接好了网络,然后单击“确定”按钮)。  6、这时后会提示“状态:正在链接到RixlerServer”,只需等待几秒钟破解完成即可。  7、OK,密码被成功移除,该文档已经被成功解密,如下图:  8、生成了一个新的没有密码了的文档:西西软件_NESOY.xls。

快速破解

相关阅读

  • 如何快速破解EXCEL表格密码

  • 乔山办公网excel表格制作
  • EXCEL工作表保护密码破解 方法: 1打开文件 2工具---宏----录制新宏---输入名字如:aa 3停止录制(这样得到一个空宏7a686964616fe78988e69d83332) 4工具---宏----宏,选aa,点编辑按钮 5删除窗口中的所有字
  • EXCEL表格中如何计算基础工资?

  • 乔山办公网excel表格制作
  • 在每一列后面先复用sum函数求所有数据的和,在另一个单元格输入=countif(范围,"<>0")函数求制不为0的数据个数,然后在另外一个单元格再用sum函数除以countif函数值。百计算度一个后算中
  • 如何用Excel做财务报表

  • 乔山办公网excel表格制作
  • 以下是全套:EXCEL财务报表(带公式)的下载全套EXCEL财务报表,包括:来凭证、总账、分类账、科目账、T型账(丁字帐)、资产负债表(资产表)自、利润表(损益表)、现金流量表、丁字
  • 客户关系管理<em>EXCEL</em>表格

  • 乔山办公网excel表格制作
  • 问你家财务,不行问你家老板或者老板娘EXCEL 表格模板,记录每天的..." src="/uploads/tu/160.jpg" style="width: 400px; height: 267px;" />我粗略做了一个,基本实现了你的功能。因为函数都是用宏编辑
  • <em>excel表格加密软件</em>那种好用

  • 乔山办公网excel表格制作
  • 谢谢楼上的朋友。。。。因为要正常使用,使用 RAR 加密,会影响使用。告诉RAR密码,加密就没有意zhidao义了。4楼的朋友,提示选择加密方式,我正在试。选择了最后一个加密方式,1
关键词不能为空
极力推荐
  • 如何使用PL&#47;SQL工具将oracle数据导出到excel

  •   方法/步骤首先打开PL/SQL,然后在复SQL Window窗口中,制查询需要导出百的数据。度在查询的结果集上右键选择--Copy to Excel-->Copy as xls/xlsx导出到知97-2003格式的.xls或者2007之后的xlsx文件

聚合标签

ppt怎么做_excel表格制作_office365_word文档_365办公网