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

解决Word、Excel加密的方法

文章目录

      • 解决Word、Excel加密的方法
        • Excel加密:
        • Word加密:
        • VBA工程加密:
        • PPT加密

  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 」,在" 另存为 "界面选择 「 工具 - 常规选项 」,将「 修改权限密码 」删除,最后「 保存 」,就取消了文件密码,就可对此文件进行编制(复制、修改等)操作。

你可能感兴趣的:(经验分享)