(资料图片)

1、如果密码是7位数以内的数字，如下操作（关闭所有其他程序，为了速度）：新建一Word，同时按键盘的Alt和F11，点菜单上的插入，模块，在右边新出来的窗口粘贴一下代码：Sub test()Dim i As Longi = 0Dim FileName As StringApplication.FileDialog(msoFileDialogOpen).ShowFileName = Application.FileDialog(msoFileDialogOpen).SelectedItems(1)ScreenUpdating = FalseLine2: On Error GoTo Line1***.Open FileName, , True, , i & ""MsgBox "Password is " & iApplication.ScreenUpdating = TrueExit SubLine1: i = i + 1Resume Line2ScreenUpdating = TrueEnd Sub然后在此窗口直接按F5运行此宏，出现一打开窗口，选择你待解密的文件，等啊等（看你密码长度了）。

2、如果有字母，稍微复杂些，道理是一样的。

3、太长的密码，基本解不开了。

本文到此分享完毕，希望对大家有所帮助。