怎么破解文档加密

林木水

各位老师好，在不知密码的情况下怎么破解文档。
附件如下

林木水

代码工程密码：123

我行我速2008

打开密码破解不易，但编辑密码破解简单。

Sub 所有表格解密()
  On Error Resume Next
  Dim Sh As Worksheet
  For Each Sh In Worksheets
    Sh.protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
    Sh.protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
    Sh.protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
    Sh.protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
    Sh.Unprotect
  Next Sh
End Sub
Sub 单张表格解密()
  On Error Resume Next
  Dim Sh As Worksheet
  Set Sh = ActiveSheet
    Sh.protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
    Sh.protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
    Sh.protect DrawingObjects:=True, Contents:=True, AllowFiltering:=True
    Sh.protect DrawingObjects:=False, Contents:=True, AllowFiltering:=True
    Sh.Unprotect
  Set Sh = Nothing
End Sub

dyz_10272

打开密码：5b3b7b3b3b1b1

林木水

我行我速2008 发表于 2022-7-8 19:40
打开密码破解不易，但编辑密码破解简单。

Sub 所有表格解密()

需求不一样，不是工作表保护密码；我是想破解文档-选项-安全性-编辑密码

林木水

我行我速2008 发表于 2022-7-8 19:40
打开密码破解不易，但编辑密码破解简单。

Sub 所有表格解密()

谢谢你帮我想办法