excel密码破解，Excel保护密码忘记了怎么破解
来源：整理 编辑：好学习 2024-02-20 13:20:02
本文目录一览
1，Excel保护密码忘记了怎么破解
如果密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）：
新开一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版本的软件破解的。不用软件，就自己挨个试吧，这个方法最简单。
如果用到软件，这是其中一个advanced office2000 password recovery pro
2，excel的密码忘记了怎么破解方法
为了保护个人隐私，我们通常会设置密码，对于办公软件也不例外，但是记性不好的朋友往往会将自己设置的密码忘记，如果excel密码忘记了怎么办呢?下面就是excel表格文件忘记密码的解决方法哦~ 首先我们在网上下载一个Office Password Remover，运行解压好的OPRemove.exe 这个程序，打开程序后可以看到中间文本框后面有个类似文件夹的按钮，点击它浏览打开要破解的文档， 选择后点击移除密码，这时软件会提示需要连接到Internet，因为要给该软件的服务器发送数据并解密。 不过大家可以放心，软件不会泄露任何个人隐私，过几秒钟后便出现“该文档已经被成功破解”，点确定即可，这时候就大功告成了。如果密码是6位数以内的数字，可用以下步骤解开（关掉所有程序，为了速度）： 新开一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运行此宏，选择你的文件，等啊等（看密码长度了）
3，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运行此宏 如果有字母，稍微复杂些，道理是类似的。太长的密码，基本解不开了。 若果还有读写密码，且与打开密码一样，将Workbooks.Open FileName, , , , i 改为Workbooks.Open FileName, , , , i, i
文章TAG：
excel密码破解 Excel保护密码忘记了怎么破解
