我的excel文件密码忘记了,怎么办?2003版的

新建一个Excel 2007 空文档，并在Sheet1工作表中输入内容：

对该文档内容进行保护，并保存文档：

至此，保护工档的工作完成。

破解文档

将该文档的后缀名改为".zip"(不包括双引号）：

用WinRar压缩软件将已经更改后缀名的文档打开

提取位于xl\worksheets目录下的sheet1.xml文档到任意位置，然后编程该文档，利用关键字查找sheetprotect找到后删除整个标签。在此已被选中的部分将被删除，保存文档。

将修改后的文档sheet1.xml拖放到压缩文档中。点击确定替换完成。

将该压缩文档的后缀名重新改回“.xlsx”,然后打开文档试试，发现此时文档内容可以被正常编辑.

如果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 MsgBox "Password is " & i Exit Sub Loop line1: i = i + 1 Resume line2 Application.ScreenUpdating = True End Sub 然后直接按F5运行此宏 如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。 若果还有读写密码，且与打开密码一样，将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i
求采纳