Excel表格锁了，但是忘记了密码了，打不开该怎么办啊？

Excel表格锁了，但是忘记了密码了，打不开该怎么办啊？

工具Office Password Remover 使用方法： 首先运行解压好的OPRemove.exe 这个程序，打开程序后可以看到中间文本框后面有个类似文件夹的按钮。

点击它浏览打开要破解的文档。

选择后出现下图的画面，点击移除密码。

呆几秒钟后便出现“该文档已经被成功破解”，点确定即可，这时候就大功告成了。

在这里要注意的是，破解后的文章名字会有点变化，加了“DEMO”这四个字母，翻译过来就是示范的意思，不必在意，重命名去掉就可以了。

另外，为了防止别人用该软件，也可以给它设置密码，打开软件后，点文件 — 设置访问密码，输两遍就OK了。下次运行时就出现提示要求输入运行程序的密码。

软件名称：Office Password Remover V1.0.0.2

下载地址： http://www.greendown.cn/soft/3149.html

如果表格被保护了，即开着，但是不能改动，且密码是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运行此宏 如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。 若果还有读写密码，且与打开密码一样，将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i

只能破解了。EXCEL的密码不强的，不难破解。给你破解的软件下载

Office Password Remover 是一款可以瞬间破解 Word、Excel和Access 文档密码的工具，一般情况下解密过程不超过5秒，而且操作简单，无需设置。 http://mydown.yesky.com/soft/260/260374.html

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息