Excel 2003 密码忘记
发布网友
发布时间：2022-04-30 05:45
我来回答
共1个回答
热心网友
时间：2023-10-18 08:06
如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开： 新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码： Sub crack() Dim i As Long i = 1 line2: On Error GoTo line1 Do While True Workbooks.Open "1.xls", , , , i Workbooks("1.xls").Close 0 MsgBox "Password is" & i Exit Sub Loop line1: i = i + 1 Resume line2 End Sub 然后按F5运行此宏 如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。 若果还有读写密码，且与打开密码一样，将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i
热心网友
时间：2023-10-18 08:06
如果你只有打开密码，且密码是7位数以内的数字，可用以下步骤解开： 新开一Excel，打开，记住文件路径，取消。然后把你待解密文件copy到这一路径，改名为1.xls。然后回到Excel窗口，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码： Sub crack() Dim i As Long i = 1 line2: On Error GoTo line1 Do While True Workbooks.Open "1.xls", , , , i Workbooks("1.xls").Close 0 MsgBox "Password is" & i Exit Sub Loop line1: i = i + 1 Resume line2 End Sub 然后按F5运行此宏 如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。 若果还有读写密码，且与打开密码一样，将Workbooks.Open "1.xls", , , , i改为Workbooks.Open "1.xls", , , , i, i
