6,210
社区成员
发帖
与我相关
我的任务
分享
Sub test()
Dim i As Long
i = 0
Dim FileName As String
Application.FileDialog(msoFileDialogOpen).Show
FileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)
ScreenUpdating = False
Line2: On Error GoTo Line1
Documents.Open FileName, , True, , i & ""
MsgBox "Password is " & i
Application.ScreenUpdating = True
Exit Sub
Line1: i = i + 1
Resume Line2
ScreenUpdating = True
End Sub
然后在VB窗口直接按F5运行此宏程序,在打开的窗口选择要解密的文件,原密码越长需时间也越长,用word2019测试了一个密码为1234的加密docx文件,i5三代cpu大约需要3-4分钟左右,期间VB窗口会假死,一定不要强行终止,等着就行。如果密码中有更复杂的组合可能需要的时间就更久了。
解密后记下密码即可。