excel表格锁后忘记了密码 怎么找回 或者打开电子表格。急!
答案:5 悬赏:80 手机版
解决时间 2021-08-14 13:26
- 提问者网友:星軌
- 2021-08-14 06:32
excel表格锁后忘记了密码 怎么找回 或者打开电子表格。急!
最佳答案
- 五星知识达人网友:迟山
- 2021-08-14 06:38
打开google,搜索破解excel密码软件
全部回答
- 1楼网友:执傲
- 2021-08-14 10:58
excel表格被改密码了还有没有可能恢复源文件
- 2楼网友:举杯邀酒敬孤独
- 2021-08-14 10:14
如果表格被保护了,即开着,但是不能改动,且密码是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
- 3楼网友:孤老序
- 2021-08-14 09:09
下载一个office password remover,就可以了,可以轻松破解。主要是我这里不能给你附上那个软件
- 4楼网友:春色三分
- 2021-08-14 07:36
上百度下个暴力破解软件,用不多少时候就解开了。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯