
word
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运行此宏,出现一打开窗口,选择你待解密的文件,等啊等(看你密码长度了)。如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号