作者：乔山办公网日期：
返回目录：excel表格制作
试试zd下面的代版码：
Sub openIt()
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
下载张在良个人开发的“zdExcel必备工具箱”，完全免费的，其中里面“破解”功能可以破解出EXCEL文件或工作簿密码。 这个软件在360杀毒版软件的——软件管家——软件宝库——文字处理 里面可以免费下载，非常权好用
excel打开密码怎么破解，求高手
步骤如下，
1，打开一个有e79fa5e98193e59b9ee7ad94334锁定密码的excel
2，点击文件，新建一个空白页面
3，点击新打开excel的工具－》宏－》录制宏，然后马上结束，这样就等到一个空的宏
4，点击alt＋f11，打开宏编辑器，找到刚才的新宏，然后写如代码
引用:
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:= _
False, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
True, AllowFiltering:=True, AllowUsingPivotTables:=True
ActiveSheet.Unprotect
5，ok返回有锁定的表格，点击alt＋f8运行宏 如果看不见，就在位置的地方选择“所有打开的工作簿”
PS:破解的时候最多有可能弹出3次要求输入密码的地方，都点取消。1秒不到再试试，是不是没有密码了？
与 Excel 一点关系都没有 ！