之前给大家有讲过保护工作表的那些事儿,简单回忆一下吧,整个excel文档加密,工作表加密、部分单元格加密、excel窗口的加密,下面我们就来聊聊关于excel忘记了打开密码怎么办?接下来我们就一起去了解一下吧!
excel忘记了打开密码怎么办
之前给大家有讲过保护工作表的那些事儿,简单回忆一下吧,整个excel文档加密,工作表加密、部分单元格加密、excel窗口的加密。
那么我们已经加了密的文档忘记密码了如何解决呢?之前都是给大家说密码一定要自己要备份,那么肯定有人会问那万一就是忘记了怎么办呢?其实解决方法是有的。下面小菜老师给大家说一下关于6位一下的密码如何解决?
第一步:新打开一个excel文档,同时按Alt和F11,进入VBA界面,
第二步:点菜单上的插入,模块,
第三步:在新出来的窗口粘贴一下代码:
Sub crack()
Dim i As Long
Dim FileName As String
i = 0
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, , True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i 1
Resume line2
Application.ScreenUpdating = True
End Sub
注意事项:在测试的时候尽量关掉其他程序,提高速度。
想知道工作表的保护事儿吗?赶紧关注微信号“路凡教育”。。。。小菜老师告诉你相关的秘密。。。