excel表格在忘记密码的情况下如何打开？-excel忘了打开密码,excel打开密码忘记了

如果表格被保护了，即开着，但是不能改动，且密码是7位数以内的数字，如下操作：
在Excel窗口，同时按键盘的Alt和F11，点菜单上的插入，模块，在右边新出来的窗口粘贴一下代码：
Sub crackProtect()
Dim i As Long
i = 1
line2:
On Error GoTo line1
Do While True
ActiveWorkbook.Unprotect i
MsgBox "Password is" & i
Exit Sub
Loop
line1:
i = i + 1
Resume line2
End Sub

然后按F5运行此宏。

如果有字母，稍微复杂些，道理是一样的。太长的密码，基本解不开了。

如果Excel文件的打开密码忘记了，且密码是7位数以内的数字，可用以下步骤解开：
新开一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运行此宏

如果有字母，稍微复杂些，道理是类似的7a686964616fe78988e69d83338。太长的密码，基本解不开了。

若果还有读写密码，且与打开密码一样，将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i

如图方法：

如果Excel文件的打开密码忘记了，且密码是6位数以内的数字，可用以下步骤解开（关掉7a686964616fe78988e69d83332所有程序，为了速度）：
新开一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

然后在此界面直接按F5运行此宏，选择文件，等啊等（看密码长度了）

• 第一步，先找到有工作表保护密码的Excel表格，然后后缀名称，从演示操作表格.xlsx改为演示操作表格.rar，如果有提示可以暂时忽视，影响不大。

• 第二步，用压缩文件打开，然后找到下面的路径，xl——百worksheets——sheet1.xml（这里设置的保护密码，是sheet1工作表，如果是其他的表度格知，选择相应的名称即可）。

• 第三步，把从压缩文件里面找到的sheet1.xml文件，然后拖拽道出来，位版置可以随意，但是最好是方便找到的地方，要进行修改。

• 第四步，sheet1.xml文件打开方式选择用记事本打开，然后搜索权，“protection”，把从<sheetprotection.........="0"/>这一段代码，全部删除掉。

• 第五步，然后再把修改后的sheet1.xml文件，选择拖拽到压缩的工作蒲中，选择替换掉即可，其他的操作暂时不需要。

• 6

  第六步，最后一步，把文件名称，“演示操作表格.rar”重新更改“演示操作表格.xlsx”，然后就是打开Excel表格，再到里面看看，是不是密码保护都取消了吧。