2022-11-04 11:22来源:m.sf1369.com作者:宇宇
方法:
1、将工作表的后缀名改为rar;
2、打开文件,点击“Xl”,将sheet1文件移到文件夹中;
3、记事本打开sheet1文件,删除“protection到0/>处”的内容;
4、修改后的文件替换原文件并改后缀名为xlsx。
Excel—“撤销工作表保护密码”的并获取原始密码
1、打开您需要保护密码的Excel文件;
2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa;
3、停止录制(这样得到一个空宏);
4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;
5、删除窗口中的所有字符(只有几个),
6、关闭编辑窗口;
7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;
等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。再点击确定。Excel的原始密码就被清除了
如果Excel文件的打开密码忘记了,且密码是6位数以内的数字,可用以下步骤解开:
新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:
Sub crack()
Dim i As Long
Dim FileName As String
Application.ScreenUpdating = False
i = 1
FileName = Application.GetOpenFilename(Excel文件(*.xls & *.xlsx),*.xls;*.xlsx, , VBA)
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, \))
line2:
On Error GoTo line1
Do While True
Workbooks.Open FileName, , , , i
Workbooks(FileName).Close 0
MsgBox Password is & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
然后按F5运行此宏
如果有字母,稍微复杂些,道理是类似的。太长的密码,基本解不开了。
若果还有读写密码,且与打开密码一样,将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i
如果你只有打开密码,且密码是7位数以内的数字,可用以下步骤解开:
新开一Excel,打开,记住文件路径,取消。然后把你待解密文件copy到这一路径,改名为1.xls。然后回到Excel窗口,同时按键盘的Alt和F11,右键点左上窗口中的VBAProject,插入,模块,在右边新出来的窗口粘贴一下代码
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
然后运行此宏(回到Excel窗口,工具,宏,宏,DefineHyperlink,运行)
如果有字母,稍微复杂些,道理是一样的。太长的密码,基本解不开了。
若果还有读写密码,且与打开密码一样,将Workbooks.Open 1.xls, , , , i改为Workbooks.Open 1.xls, , , , i, i