excel表格在忘记密码的情况下如何打开?
3个回答
展开全部
简单的密码(比如6位以内的数字)很容易用宏解开:
退出所有其他程序(为了速度)。
新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:
Sub crack()
Dim i As Long
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")
ChDrive Left(FileName, 1)
ChDir Left(FileName, InStrRev(FileName, "\"))
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
i = 1
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, False, True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
然后直接在此界面下按F5运行此宏,等啊等。如果有字母,稍微复杂些,道理是类似的。太长的密码,靠此法是解不开的。若果还有读写密码,且与打开密码一样,将Workbooks.Open FileName, False, True, , i, i
退出所有其他程序(为了速度)。
新开一Excel,同时按Alt和F11,进入VBA界面,点菜单上的插入,模块,在新出来的窗口粘贴一下代码:
Sub crack()
Dim i As Long
Dim FileName As String
FileName = Application.GetOpenFilename("Excel文件(*.xls & *.xlsx),*.xls;*.xlsx", , "VBA破解")
ChDrive Left(FileName, 1)
ChDir Left(FileName, InStrRev(FileName, "\"))
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, "\"))
i = 1
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, False, True, , i
MsgBox "Password is " & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub
然后直接在此界面下按F5运行此宏,等啊等。如果有字母,稍微复杂些,道理是类似的。太长的密码,靠此法是解不开的。若果还有读写密码,且与打开密码一样,将Workbooks.Open FileName, False, True, , i, i
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询