完美解决Word、Excel、PPT加密解密的方法

解决Word、Excel加密的方法

1. Excel加密：

   第一步 把需要解锁的文件后缀格式由xlsx改为rar格式。
   第二步 打开压缩文件，进入worksheets，把需要解锁的文件拖到外边（我是放到了桌面上）
   第三步 打开拖到桌面的文件，需要使用记事本/vscode格式打开。
   第四步 进入记事本，我们按Ctrl+F，查找 Protection 这个单词 protection（保护）
   第五步 选中到…scenarios=“1”/>，然后按del,直接删除中间部分的数据。然后保存、关闭。
   第六步 重新压缩文件，修改后缀xlsx，打开结束。

2. Word加密：

   第一步 打开word文件，将文件另存为“网页（.htm,.html）”格式的文件。也可另存为“单个文件网页（.mht,.mhtl）”格式的文件。然后关闭word文档。
   第二步 找到保存好的网页（.htm,.html）或单个文件网页（.mht,.mhtl）格式的文件，鼠标右击文件，选择“打开方式”->“笔记本”。用笔记本打开网页。
   第三步 然后按键盘“ctrl+F”键，进入查找界面。查找“UnprotectPassword”，可以查找到如下文字段“ ********”。删除该段文字，按“ctrl+S”保存，然后关闭笔记本。
   第四步 找到刚保存后的文件，鼠标右击文件，选择“打开方式”->“word软件”。
   第五步 刚打开的文件是web版式视图，可在“视图”菜单栏选择“页面视图”，可回到常规视图。此时文件还是不能进行编辑。接下来进入菜单栏的“审阅”->“限制编辑”，在弹出的界面单击“停止保护”。到此，文件恢复可编辑。

3. VBA工程加密：

   第一步 新建一个EXCEL文件,在工作表标签处右
   第二步 点查看代码>>>>
   第三步 复制以下代码
   第四步 按F8执行在弹出窗中选你要你破解工程密码的EXCEL文件
   第五步 再按F5执行即可.
   附：
   代码一：

   Private Sub VBAPassword()
   '你要解保护的Excel文件路径
   Filename =Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
   If Dir(Filename) = "" Then
   MsgBox "没找到相关文件,清重新设置。"
   Exit Sub
   Else
   FileCopy Filename, Filename &".bak" '备份文件。
   End If
   Dim GetData As String * 5
   Open Filename For Binary As #1
   Dim CMGs As Long
   Dim DPBo As Long
   For i = 1 To LOF(1)
   Get #1, i, GetData
   If GetData = "CMG="""Then CMGs = i
   If GetData = "[Host" Then DPBo =i - 2: Exit For
   Next
   If CMGs = 0 Then
   MsgBox "请先对VBA编码设置一个保护密码...", 32,"提示"
   Exit Sub
   End If
   If Protect = False Then
   Dim St As String * 2
   Dim s20 As String * 1
   '取得一个0D0A十六进制字串
   Get #1, CMGs - 2, St
   '取得一个20十六制字串
   Get #1, DPBo + 16, s20
   '替换加密部份机码
   For i = CMGs To DPBo Step 2
   Put #1, i, St
   Next
   '加入不配对符号
   If (DPBo - CMGs) Mod 2 <> 0 Then
   Put #1, DPBo + 1, s20
   End If
   MsgBox "文件解密成功......", 32, "提示"
   End If
   Close #1
   End Su
   

   如果上面代码不能运行或出错,请用以下代码重试.
   代码二：

   Private Sub VBAPassword()
   '你要解保护的Excel文件路径
   Filename =Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
   If Dir(Filename) = "" Then
   MsgBox "没找到相关文件,清重新设置。"
   Exit Sub
   Else
   FileCopy Filename, Filename &".bak" '备份文件。
   End If
   Dim GetData As String * 5
   Open Filename For Binary As #1
   Dim CMGs As Long
   Dim DPBo As Long
   For i = 1 To LOF(1)
   Get #1, i, GetData
   If GetData = "CMG="""Then CMGs = i
   If GetData = "[Host" Then DPBo =i - 2: Exit For
   Next
   If CMGs = 0 Then
   MsgBox "请先对VBA编码设置一个保护密码...", 32,"提示"
   Exit Sub
   End If
     
   Dim St As String * 2
   Dim s20 As String * 1
   '取得一个0D0A十六进制字串
   Get #1, CMGs - 2, St
   '取得一个20十六制字串
   Get #1, DPBo + 16, s20
   '替换加密部份机码
   For i = CMGs To DPBo Step 2
   Put #1, i, St
   Next
   '加入不配对符号
   If (DPBo - CMGs) Mod 2 <> 0 Then
   Put #1, DPBo + 1, s20
   End If
   MsgBox "文件解密成功......", 32, "提示"
   Close #1
   End Sub
   

4. PPT加密

   第一步 将「 *.ppsx 」加密文件更改为后缀「 *.zip 」 的文件（不是「 *.rar 」格式，否则会失败）；然后用 WinRaR 或其他解压软件对此文档进行解压，打开文件夹，找到「 ppt 」文件夹下的「 presentation.xml 」文件，用系统自带「 记事本 」软件打开，
   第二步 用「 记事本 」软件查找（ Ctrl+F 快捷键 ）功能，找到 整句删除，并保存；【modifyVerifier 英文为修改验证】，
   第三步 返回文件夹，选择所有文件并压缩为「 * .zip 」格式文件，
   第四步 再将「 * .zip 」文件后缀更改为「 * .ppsx 」 文件，在按本文“ 第2部分 ”的操作，打开此文件；
   第五步 点击「 只读 」，则可以打开该文件
   第六步 将「 * .ppsx 」文件另存为「 * .pptx 」,在" 另存为 "界面选择 「 工具 - 常规选项 」，将「 修改权限密码 」删除，最后「 保存 」，就取消了文件密码，就可对此文件进行编制（复制、修改等）操作。