第1个回答 2017-01-12
如果密码是7位数以内的数字,如下操作(关闭所有其他程序,为了速度):
新建一Word,同时按键盘的Alt和F11,点菜单上的插入,模块,在右边新出来的窗口粘贴一下代码:
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
然后在此窗口直接按F5运行此宏,出现一打开窗口,选择你待解密的文件,等啊等(看你密码长度了)。
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。