主页 > 办公自动化 > 最简单破解excel密码方法?

最简单破解excel密码方法?

2022-11-04 11:22来源:m.sf1369.com作者:宇宇

一、最简单破解excel密码方法?

方法:

1、将工作表的后缀名改为rar;

2、打开文件,点击“Xl”,将sheet1文件移到文件夹中;

3、记事本打开sheet1文件,删除“protection到0/>处”的内容;

4、修改后的文件替换原文件并改后缀名为xlsx。

二、EXCEL忘记密码了。怎么解码,求教

Excel—“撤销工作表保护密码”的并获取原始密码

1、打开您需要保护密码的Excel文件;

2、依次点击菜单栏上的工具---宏----录制新宏,输入宏名字如:aa;

3、停止录制(这样得到一个空宏);

4、依次点击菜单栏上的工具---宏----宏,选aa,点编辑按钮;

5、删除窗口中的所有字符(只有几个),

6、关闭编辑窗口;

7、依次点击菜单栏上的工具---宏-----宏,选AllInternalPasswords,运行,确定两次;

等一会,就会出现以下对话框:这就是Excel密码对应的原始密码(此密码和原先设置的密码都能打开此文档。再点击确定。Excel的原始密码就被清除了

三、excel怎么解密码

如果Excel文件的打开密码忘记了,且密码是6位数以内的数字,可用以下步骤解开:

新开一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加密文件忘记密码应该怎么解密?

如果你只有打开密码,且密码是7位数以内的数字,可用以下步骤解开:

新开一Excel,打开,记住文件路径,取消。然后把你待解密文件copy到这一路径,改名为1.xls。然后回到Excel窗口,同时按键盘的Alt和F11,右键点左上窗口中的VBAProject,插入,模块,在右边新出来的窗口粘贴一下代码

Sub crack()

Dim i As Long

i = 1

line2:

On Error GoTo line1

Do While True

Workbooks.Open 1.xls, , , , i

Workbooks(1.xls).Close 0

MsgBox Password is & i

Exit Sub

Loop

line1:

i = i + 1

Resume line2

End Sub

然后运行此宏(回到Excel窗口,工具,宏,宏,DefineHyperlink,运行)

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

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

相关推荐

企业办公软件都有哪些?

办公自动化 2024-01-14

数控车床自动编程用什么软件?

办公自动化 2024-01-12

写字间物业管理方案

办公自动化 2023-12-09

自动化的好处和坏处

办公自动化 2023-12-05

单片机有什么特征?

办公自动化 2023-11-27

excel2007教程|excel2007教程下载

办公自动化 2023-11-22