跳至主要内容

破解Excel文档密码的几种方法



有时我们为了保护Excel文档，会给文档加上密码，如文档查看、只读密码，工作表、工作簿的保护密码等，但是时间久了难免忘记密码，这时就只好进行破解了。下面列举几种常用的破解Excel密码的方法，供各位参考。

首先我们要明确一个前提，不同类型的密码，破解方法是不一样的，有些密码可能是无法破解的；而Excel文档又分为不同版本（xls和xlsx），破解方法也有所不同。

温馨提示：破解密码前请先备份原文档。

1、文档查看、只读密码破解

Excel文档的查看、只读密码目前没有什么好的破解办法，只能采用暴力破解，就是指定一个规则，然后一个一个去试。如果你当初设置的密码足够复杂，那就不要做无所谓的挣扎了，建议及早放弃为好。但如果文档十分重要，不计代价也要破解密码，可以尝试一些网站的收费服务，但是不要抱太高的希望。

2、工作表、工作簿的保护密码

根据Excel文档版本不同，工作表、工作簿保护密码的破解方法也不太一样。

（1）xls文档破解方法

对于早期的xls文档（2003及以前），可以用VBA代码破解。

打开Excel文档，按Alt+F11进入“开发工具”界面，在左边的工程栏（Project）中选定节点“ThisWorkbook”，双击左键，然后把下面的代码复制到右边的代码编辑框中。然后按F5键执行代码开始破解，破解期间会出现两次提示的对话框，都选择“确认”。密码破解完毕之后会出现提示“该工作簿中的工作表密码保护已被全部解除”，这说明工作表或工作簿的保护密码已被成功清除。最后删除“ThisWorkbook”节点中的代码，保存工作表。至此，破解完成。

Public Sub 工作表保护密码破解()
    Const DBLSPACE As String = vbNewLine & vbNewLine
    Const AUTHORS As String = DBLSPACE & vbNewLine & _
        "作者:McCormick   JE McGimpsey "
    Const HEADER As String = "工作表保护密码破解"
    Const VERSION As String = DBLSPACE & "版本 Version 1.1.1"
    Const REPBACK As String = DBLSPACE & ""
    Const ZHENGLI As String = DBLSPACE & ""
    Const ALLCLEAR As String = DBLSPACE & "该工作簿中的工作表密码保护已全部解除!!" & DBLSPACE & "请记得另保存" _
        & DBLSPACE & "注意：不要用在不当地方，要尊重他人的劳动成果！"
    Const MSGNOPWORDS1 As String = "该文件工作表中没有加密"
    Const MSGNOPWORDS2 As String = "该文件工作表中没有加密2"
    Const MSGTAKETIME As String = "解密需花费一定时间,请耐心等候!" & DBLSPACE & "按确定开始破解!"
    Const MSGPWORDFOUND1 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
        "如果该文件工作表有不同密码,将搜索下一组密码并修改清除"
    Const MSGPWORDFOUND2 As String = "密码重新组合为:" & DBLSPACE & "$$" & DBLSPACE & _
        "如果该文件工作表有不同密码,将搜索下一组密码并解除"
    Const MSGONLYONE As String = "确保为唯一的?"

    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
    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 & ZHENGLI, vbInformation, HEADER
End Sub

（2）xlsx文档破解方法

从2007版本以后，Excel文档的扩展名从xls变成了xlsx，文档结构也大变样。Xlsx文档本质上其实是一个压缩包，里面包含了许多xml文档，工作表、工作簿的保护密码就保存在这些xml文档中，我们可以用WinRAR等压缩工具将其解压，然后直接修改内容，就可以去掉工作表、工作簿的保护密码了。

具体方法如下：

将文档扩展名修改为zip或rar，然后将其解压。

在解压得到的文件中找到“xl”文件夹，双击打开，“workbook.xml”中即包含工作簿的保护密码，用记事本打开该文档，搜索“workbookProtection”，将带有“workbookProtection”的那一段代码删除即可。代码格式如：

workbookProtection workbookAlgorithmName="SHA-512" workbookHashValue="******" workbookSaltValue="******" workbookSpinCount="100000" lockStructure="1"

另外，“xl\worksheets”文件夹下的“sheet1.xml”、“sheet2.xml”中则保存了各工作表的密码，同样用记事本打开，搜索“sheetProtection”，将带有“sheetProtection”的那一段代码删除即可。

代码格式如：

sheetProtection algorithmName="SHA-512" hashValue="******" saltValue="******" spinCount="100000" sheet="1" formatCells="0" formatColumns="0" formatRows="0" insertColumns="0" insertRows="0" insertHyperlinks="0" deleteColumns="0" deleteRows="0" sort="0" autoFilter="0" pivotTables="0"

最后保存文件，重新压缩为zip格式（注意必须是zip，不能是rar或其他格式），然后把这个压缩包的后缀重新修改回xlsx。至此，破解完成。

标签：

评论

发表评论

此博客中的热门博文

用于接收短信和激活任何服务的虚拟号码

当在社交网络、聊天工具、C2C网站等服务注册账号时，需要接收验证码短信。 5SIM 提供使用临时虚拟号码通过验证的机会，而无需使用个人手机号码。通过本服务，大家能够在线接到验证码注册许多账号。 关于5SIM服务 有50多万个来自180个国家的手机号码同时在线 可以找到许多国家/地区的用于注册账号的手机号码，包括英国、 俄罗斯、瑞典、德国、法国、印度、印度尼西亚、马来西亚、柬埔寨、蒙古、加拿大、美国、泰国、荷兰、西班牙等等。 天天添加新的虚拟号码 接收从所选网站的无限数量短信。一个号码的价格从 1 卢布起，这样大家不必支付移动运营商的月费 使用手机号码一次并重复接收短信 24/7获取手机号码。本平台运行完全自动，瞬间就接到带有验证码的短信。 在3分钟内注册账号 面向开发者和用户的 API 在接码平台、高质量VPN/代理、浏览器的用户代理和可靠的软件的帮助下设置批量注册账号的过程 手续费 以最低手续费充值余额 (Visa/MasterCard/MIR, QIWI, UnionPay, GCash, KakaoPay, Apple Pay等等) 24/7 客户支持 客户支持提供24小时服务，通过Freshdesk系统，聊天工具和社交网络会帮助解决所有问题。 虚拟手机号使用方式如下： 为赚取收入或个人任务注册许多账号 注册账号时，网站要求指定手机号码。大多数情况下，一个号码只能注册一个账号。如果使用虚拟号码，则可以在社交网络上不受限制地注册账号。网站管理员、SMM和ORM专家会赞同这种功能。对他们来说，账号是一个管理和推广工作项目的工具。 保持匿名性 如果知道个人号码，能够查到其所有者的姓名、护照号码、居住地址等有关信息。使用接码平台时，就完全排除信息泄露可能性。 保护自己免受骗子的侵害 大家可能遇到过要求输入手机号码以无受速度限制下载文件的网站。在此类网站上输入手机号码的时候，能面临开启付费订阅的风险。因此，我们建议使用一次性号码。 参与促销活动获取折扣 各种服务和网络商店举行促销活动来赠送礼物。为此，需要输入手机号码。在这种情况下，规则是一个人只能收到一件礼物。这就是输入手机号码并进行验证的原因。用于在线接码的虚拟号码可以绕过所有限制并享受任何免费优惠品。 摆脱地区限制 一些互联网服务不允许特定地区的居民进行注册。原因可能有所不同。例如，俄罗斯用户经常无法访问乌克兰网站...
发表评论
阅读全文

一键更改默认 ssh 端口的脚本

99%的vps到手，默认都是22端口，加上上面有的人root密码极其简单，很容易被暴力破解，成为肉鸡等等。因此最好修改SSH默认的22端口为其他随机端口号。懒到家的我，肯定是一键脚本啊，因此，刺激了这个小脚本。 功能 自定义端口修改SSH默认的22端口 提醒 修改后记得修改防火墙端口，放行你的新SSH端口，装宝塔的也要记得放行。新端口用不了，很大概率是防火墙的问题。 免责 这个脚本是我自用的脚本，测试的机器和系统有限，难免造成失联等情况， 不要用于生成环境、不要用于生成环境、不要用于生成环境 。 脚本 bash <( curl -Ls https://raw.githubusercontent.com/Netflixxp/port/main/port.sh ) 或者 wget -O port.sh https://raw.githubusercontent.com/Netflixxp/port/main/port.sh && chmod +x port.sh && clear && ./port.sh
发表评论
阅读全文

VPS无人直播教程

准备工作 1、VPS一台(国内平台直播建议选择阿里云或腾讯云、国外平台直播请随意选择海外商家的VPS即可） 本人使用的VPS官网： 点此进入 2、VPS重置好CentOS系统 3、安装FinalShell SSH工具： Windows版下载地址： 点此下载 macOS版下载地址： 点此下载 mac版安装路径：/Applications/FinalShell.app/ 配置文件路径：/Users/$USER/Library/FinalShell/ mac版卸载删除安装目录：/Applications/FinalShell.app/ 开始搭建直播 1、使用 FinalShell SSH工具连接我们的VPS 详见 YouTube 视频教程 2、安装 screen 窗口管理工具 yum -y install screen 3、新建一个窗口 screen -S stream 4、创建 Linux 直播软件 ffmpeg 目录及视频储存目录 mkdir /home/mg-1 mkdir /home/mg-1/ffmpeg 4-1、创建无人直播视频储存目录 mkdir /home/mg-2 mkdir /home/mg-2/video 5、进入 ffmpeg 目录 cd /home/mg-1/ffmpeg 6、复制、粘贴运行以下一键脚本 #!/bin/bash PATH=/bin:/sbin:/usr/bin:/usr/sbin:/usr/local/bin:/usr/local/sbin:~/bin export PATH #=================================================================# # System Required: CentOS7 X86_64 # # Description: FFmpeg Stream Media Server # # Author: LALA # # Website: https://www.lala.im # #======...
发表评论
阅读全文