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

注意事项：在测试的时候尽量关掉其他程序，提高速度。

想知道工作表的保护事儿吗？赶紧关注微信号“路凡教育”。。。。小菜老师告诉你相关的秘密。。。