公司的EXCEL是加密的，拷贝或传送出去打开都是乱码，怎么解密，求高手帮忙？

最好不要随便复制公司的加密文件，很多公司电脑都安装了监控程序，来避免资料泄密，被发现会很麻烦的。

如何破解加密的EXCEL文件？

仅适用于xlsx文件1.将xlsx文件后缀名改为rar，转化为压缩文件，解压该文件，找到被加密工作表路径：该解压后的文件\xl\workssheets\具体工作表（sheet1.xml、sheet2.xml、sheet3.xml等）

2.用记事本方式打开工作表（上条xml文件），查找“protection”，将包含该字段的<>全部删除，保存该文件3.选定所有最初解压出的文件，压缩，将该压缩包后缀名改为xlsx，该文件密码保护已消失，可以继续编辑该Excel文件

excel如何解密？

简单的密码（比如6位以内的数字）很容易用宏解开:

退出所有其他程序（为了速度）。
新开一Excel，同时按Alt和F11，进入VBA界面，点菜单上的插入，模块，在新出来的窗口粘贴一下代码：
Sub crack()
Dim i As Long
Dim FileName As String
FileName = Application.GetOpenFilename(Excel文件（*.xls & *.xlsx）,*.xls;*.xlsx, , VBA)
ChDrive Left(FileName, 1)
ChDir Left(FileName, InStrRev(FileName, \))
FileName = Right(FileName, Len(FileName) - InStrRev(FileName, \))
i = 1
Application.ScreenUpdating = False
line2: On Error GoTo line1
Workbooks.Open FileName, False, True, , i
MsgBox Password is & i
Exit Sub
line1: i = i + 1
Resume line2
Application.ScreenUpdating = True
End Sub

然后直接在此界面下按F5运行此宏，等啊等。

如果有字母，稍微复杂些，道理是类似的。太长的密码，靠此法是解不开的。

若果还有读写密码，且与打开密码一样，将Workbooks.Open FileName, False, True, , i, i

EXCEL表格解密

首先利用已知密码打开该文档，选择“另存为”，在弹出的保存窗口中，有一个“工具”按钮，点击后选择里面的常规选项，“打开权限密码”和“修改权限密码”都删除留空。
这样保存文档后密码就删除了。

excel文件密码忘记了怎么办 excel文档密码破解方法汇总

如果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运行此宏，选择文件，等啊等（看密码长度了）

顶一下

(0)

0%

踩一下

(0)

0%