excel密码暴力破解(excel密码破解)

1. excel密码破解

方法/步骤

1、打开工作表，发现表格被锁定无法编辑，点击切换到审阅选项，点击撤销工作表保护。2、输入密码，点击确定即可。

审阅点撤销工作表保护

打开工作表，点击切换到审阅选项，点击撤销工作表保护

输入密码点击确定即可

输入密码，点击确定即可

2. Excel怎么破解密码

首先打开加密的文件，此时会弹跳出输入密码的窗口。输入密码，将文件打开。点击右上角的“文件”。

点击“保护工作簿”。

选择“用密码进行加密”，然后会弹出窗口。即可在弹出的窗口看到有密码。

将密码删除，然后点击确定。

将表格关闭，并保存更改，再次打开时不便需要密码。

3. excel密码破解vba

运用VBA代码破解，可以试下。先复制下面的代码，打开受保护工作表，按Alt+F11，在代码窗口中粘贴后 按F5，在弹出的对话框一直按确定，完成后就可以了。Option ExplicitPublic 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 passwordsConst DBLSPACE As String = vbNewLine & vbNewLineConst 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 & VERSIONConst MSGNOPWORDS2 As String = "There was no protection to " & _"workbook structure or windows." & DBLSPACE & _"Proceeding to unprotect sheets." & AUTHORS & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst 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 & VERSIONConst MSGONLYONE As String = "Only structure / windows " & _"protected with the password that was just found." & _ALLCLEAR & AUTHORS & VERSION & REPBACKDim w1 As Worksheet, w2 As WorksheetDim i As Integer, j As Integer, k As Integer, l As IntegerDim m As Integer, n As Integer, i1 As Integer, i2 As IntegerDim i3 As Integer, i4 As Integer, i5 As Integer, i6 As IntegerDim PWord1 As StringDim ShTag As Boolean, WinTag As BooleanApplication.ScreenUpdating = FalseWith ActiveWorkbookWinTag = .ProtectStructure Or .ProtectWindowsEnd WithShTag = FalseFor Each w1 In WorksheetsShTag = ShTag Or w1.ProtectContentsNext w1If Not ShTag And Not WinTag ThenMsgBox MSGNOPWORDS1, vbInformation, HEADERExit SubEnd IfMsgBox MSGTAKETIME, vbInformation, HEADERIf Not WinTag ThenMsgBox MSGNOPWORDS2, vbInformation, HEADERElseOn Error Resume NextDo 'dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126With 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 ThenPWord1 = 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, HEADERExit Do 'Bypass all for...nextsEnd IfEnd WithNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfIf WinTag And Not ShTag ThenMsgBox MSGONLYONE, vbInformation, HEADERExit SubEnd IfOn Error Resume NextFor Each w1 In Worksheets'Attempt clearance with PWord1w1.Unprotect PWord1Next w1On Error GoTo 0ShTag = FalseFor Each w1 In Worksheets'Checks for all clear ShTag triggered to 1 if not.ShTag = ShTag Or w1.ProtectContentsNext w1If ShTag ThenFor Each w1 In WorksheetsWith w1If .ProtectContents ThenOn Error Resume NextDo 'Dummy do loopFor i = 65 To 66: For j = 65 To 66: For k = 65 To 66For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66For 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 ThenPWord1 = 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 sheetsFor Each w2 In Worksheetsw2.Unprotect PWord1Next w2Exit Do 'Bypass all for...nextsEnd IfNext: Next: Next: Next: Next: NextNext: Next: Next: Next: Next: NextLoop Until TrueOn Error GoTo 0End IfEnd WithNext w1End IfMsgBox ALLCLEAR & AUTHORS & VERSION & REPBACK, vbInformation, HEADEREnd Sub

4. excel密码破解工具有用吗

1、下载Excel破解密码软件。

2、下载完以后打开程序。

3、点击最右边的小图标，选择你要 解压 的Excel文件。

4、选好后点击“移除密码”，然后会出来一个对话框，点击确定即可。

5、软件开始解密，只需几秒钟就可解密成功。

5. excel 打开密码破解

仅适用于xlsx文件1.将xlsx文件后缀名改为rar，转化为压缩文件，解压该文件，找到被加密工作表路径：该解压后的文件\xl\workssheets\具体工作表（sheet1.xml、sheet2.xml、sheet3.xml等）

2.用记事本方式打开工作表（上条xml文件），查找“protection”，将包含该字段的<>全部删除，保存该文件3.选定所有最初解压出的文件，压缩，将该压缩包后缀名改为xlsx，该文件密码保护已消失，可以继续编辑该Excel文件

6. 被保护的excel密码破解

1.打开excel工作表后，双击任意位置提示工作表受保护中

2.点击审阅，撤销工作表保护图标

3.在弹出的撤销工作表保护中输入密码，点击确定按钮保存

4.保护工作表图标不显示撤销两个字

5.excel表格中可以正常输入内容，工作表保护撤销成功，可以正常使用编辑了

7. excel密码破解 免费

excel工作表作用是非常的大的，主要用于数据的处理与分析，但是有很多人只是用了它的一少部分功能，只是简单的放数据而已，他主要包括基本操作 函数与公式 ，图表操作 数据透视表 VBA程序开发，甚至是可以加密处理的，但是我们有时候又会忘记密码；

下面我们来看看excel工作表密码破解方法：首先打开被保护的excel的表格，你在修改的，你会发现根本修改不了，文件被密码保护；

然后打开工具里的宏或按Alt+F8快捷键，输入aa，点击“创建；

这样就代表创建一个宏，把宏里的字母删除，可以在网上搜索VBA宏的代码粘上去，关闭宏的窗口，就会重新回到excel页面；然后再点击工具中的宏或按Alt+F8快捷键，出现宏里面就有宏名A开头的，直接按执行就好。

然后按“确定，这个“确定”按好后，鼠标键变成倒砂的指标，代表需要等待，大概1-2分钟的样子吧；最后又会出现2次只需要按“确定”，excel就完全解锁了。

8. excel密码破解时显示数据已被破坏

1、应该是文件属性被修改了，excel文件的后缀应该是.XLS而不是.PIP，可以修改一下文件后缀试试。然后可以尝试修复损坏文件。

2、不行的话，先查杀病毒（必须用升级到最新病毒库的软件查杀），再卸载OFFICE换个安装版本试试

3、你用WINDOWS主控帐户做日常使用帐户，这是比较危险的

9. excel密码破解安卓

如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开：

新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按键盘的Alt和F11，右键点左上窗口中的VBAProject，插入，模块，在右边新出来的窗口粘贴一下代码

Subcrack()

DimiAsLong

i=1

line2:

OnErrorGoToline1

DoWhileTrue

Workbooks.Open"1.xls",,,,i

Workbooks("1.xls").Close0

MsgBox"Passwordis"&i

ExitSub

Loop

line1:

i=i+1

Resumeline2

EndSub

然后运行此宏（回到Excel窗口，工具，宏，宏，DefineHyperlink，运行）

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将Workbooks.Open"1.xls",,,,i改为Workbooks.Open"1.xls",,,,i,i

10. excel密码破解:打开密码百度经验

1、首先有一个加密的excel表格，在其上方点击右键，在弹出的菜单中点击重命名。

2、把后缀名修改为rar，然后在任意空白处点击一下，在弹出的窗口中点击是。

3、双击打开该压缩文件，找到并双击xl文件夹。

4、在xl文件夹中找到并双击打开worksheets文件夹，找到sheet1.xml文件，在其上方点击右键，在弹出的菜单中点击记事本打开。

5、sheetprotection开始到结尾删除，然后保存即可。

6、所以excel加密使用本身自带的加密功能其实并不安全，如果是想要随身携带加密，还是建议用硬加密U盘，基本上很难破解，下面以大势至防泄密U盘为例跟大家分享下这类U盘的使用方法。把该U盘接入电脑，双击打开此电脑，找到驱动安装，直至安装完成。

7、返回桌面双击快捷方式，根据提示设置管理模式密码和密保，点击确定进入普通模式，这个模式下是无法打开任何的excel表格。

8、在右上角依次点击选项—模式切换，根据提示输入密码，点击确定进入管理模式。

9、在管理模式下把需要加密的excel表格拷贝进去即可加密，当返回普通模式时就无法访问了。

10、在右上角点击防拷选项，根据需要勾选设置普通模式下的权限，然后点击确定即可。