完美解决Word、Excel、PPT加密解密的方法

解决Word、Excel加密的方法

文章目录

解决Word、Excel加密的方法
- Excel加密：
- Word加密：
- VBA工程加密：
- PPT加密

Excel加密：

第一步 把需要解锁的文件后缀格式由xlsx改为rar格式。
第二步 打开压缩文件，进入worksheets，把需要解锁的文件拖到外边（我是放到了桌面上）
第三步 打开拖到桌面的文件，需要使用记事本/vscode格式打开。
第四步 进入记事本，我们按Ctrl+F，查找 Protection 这个单词 protection（保护）
第五步 选中<sheetProtection…>到…scenarios=“1”/>，然后按del,直接删除中间部分的数据。然后保存、关闭。
第六步 重新压缩文件，修改后缀xlsx，打开结束。
Word加密：

第一步 打开word文件，将文件另存为“网页（.htm,.html）”格式的文件。也可另存为“单个文件网页（.mht,.mhtl）”格式的文件。然后关闭word文档。
第二步 找到保存好的网页（.htm,.html）或单个文件网页（.mht,.mhtl）格式的文件，鼠标右击文件，选择“打开方式”->“笔记本”。用笔记本打开网页。
第三步 然后按键盘“ctrl+F”键，进入查找界面。查找“UnprotectPassword”，可以查找到如下文字段“ <w:UnprotectPassword>********</w:UnprotectPassword>”。删除该段文字，按“ctrl+S”保存，然后关闭笔记本。
第四步 找到刚保存后的文件，鼠标右击文件，选择“打开方式”->“word软件”。
第五步 刚打开的文件是web版式视图，可在“视图”菜单栏选择“页面视图”，可回到常规视图。此时文件还是不能进行编辑。接下来进入菜单栏的“审阅”->“限制编辑”，在弹出的界面单击“停止保护”。到此，文件恢复可编辑。

VBA工程加密：

第一步 新建一个EXCEL文件,在工作表标签处右
第二步 点查看代码>>>>
第三步 复制以下代码
第四步 按F8执行在弹出窗中选你要你破解工程密码的EXCEL文件
第五步 再按F5执行即可.
附：
代码一：

Private Sub VBAPassword()
'你要解保护的Excel文件路径
Filename =Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename &".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG="""Then CMGs = i
If GetData = "[Host" Then DPBo =i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32,"提示"
Exit Sub
End If
If Protect = False Then
Dim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
End If
Close #1
End Su

如果上面代码不能运行或出错,请用以下代码重试.
代码二：

Private Sub VBAPassword()
'你要解保护的Excel文件路径
Filename =Application.GetOpenFilename("Excel文件（*.xls & *.xla & *.xlt）,*.xls;*.xla;*.xlt", , "VBA破解")
If Dir(Filename) = "" Then
MsgBox "没找到相关文件,清重新设置。"
Exit Sub
Else
FileCopy Filename, Filename &".bak" '备份文件。
End If
Dim GetData As String * 5
Open Filename For Binary As #1
Dim CMGs As Long
Dim DPBo As Long
For i = 1 To LOF(1)
Get #1, i, GetData
If GetData = "CMG="""Then CMGs = i
If GetData = "[Host" Then DPBo =i - 2: Exit For
Next
If CMGs = 0 Then
MsgBox "请先对VBA编码设置一个保护密码...", 32,"提示"
Exit Sub
End IfDim St As String * 2
Dim s20 As String * 1
'取得一个0D0A十六进制字串
Get #1, CMGs - 2, St
'取得一个20十六制字串
Get #1, DPBo + 16, s20
'替换加密部份机码
For i = CMGs To DPBo Step 2
Put #1, i, St
Next
'加入不配对符号
If (DPBo - CMGs) Mod 2 <> 0 Then
Put #1, DPBo + 1, s20
End If
MsgBox "文件解密成功......", 32, "提示"
Close #1
End Sub

PPT加密

第一步 将「 *.ppsx 」加密文件更改为后缀「 *.zip 」的文件（不是「 *.rar 」格式，否则会失败）；然后用 WinRaR 或其他解压软件对此文档进行解压，打开文件夹，找到「 ppt 」文件夹下的「 presentation.xml 」文件，用系统自带「记事本」软件打开，
第二步 用「记事本」软件查找（ Ctrl+F 快捷键）功能，找到整句删除，并保存；【modifyVerifier 英文为修改验证】，
第三步 返回文件夹，选择所有文件并压缩为「 * .zip 」格式文件，
第四步 再将「 * .zip 」文件后缀更改为「 * .ppsx 」文件，在按本文“ 第2部分 ”的操作，打开此文件；
第五步 点击「只读」，则可以打开该文件
第六步 将「 * .ppsx 」文件另存为「 * .pptx 」,在" 另存为 "界面选择「工具 - 常规选项」，将「修改权限密码」删除，最后「保存」，就取消了文件密码，就可对此文件进行编制（复制、修改等）操作。

完美解决Word、Excel、PPT加密解密的方法相关推荐

Win10安装了Office右键没有新建Word,excel,PPT等选项解决方法
大多用户在新建一个Office文档的时候都会快速在桌面上右键新建一个Word或Excel.PPT等,而不是先打开软件去新建,但是用户反馈在安装了office之后,右键新建中并没有Word,excel, ...
Windows桌面右键新建未出现word/excel/ppt解决办法
系统版本:win10 office版本:office2016 出现原因:安装极速PDF阅读器其他办公套件,后卸载,发现右键不能新建word/excel/ppt 解决方法: 1.win+R快捷键调出运行 ...
解决word，ppt，excel图标为空白（适用于新电脑）
解决word,ppt,excel图标为空白(适用于新电脑) 通常图标为空白的解决方法为设置word为文件的默认打开方式即可解决. 在我最近新换了一台电脑,发现此方式仅可以实现每次文件使用word打开的 ...
Windows桌面右键新建未出现word/excel/ppt解决方法
系统版本:windows7 office版本:2016 出现原因:安装wps等其他办公套件后卸载,发现右键不能新建word/excel/ppt 解决方法: 1.win+R 快捷键调出运行,输入rege ...
Windows 10 Word Excel PPT文件打开速度缓慢解决办法
最近,发现Excel打开速度越来越慢,会在一定程度上影响工作效率.因此尝试对此加以解决.其中,本文所给方法对于Word/Excel/PPT文件均适用. 首先,在打开时,观察是哪一项加载项加载速 ...
Win7/Win8.1升级Win10后Word/Excel/PPT 2013文档打不开的解决方法
从Win7/Win8.1升级安装Win10后,有一个好处就是以前系统的设置和安装的软件都可以保留下来.但是很快有用户发现了一个明显的兼容性问题,就是Office 2013创建的文档(包括Word.Ex ...
vba 保存word里面的图片_笔记7 【office精华课】一套课程学会Word+Excel+PPT（一）【Word】（2020年第37周周五）...
[office精华课] <一套课程学会Word+Excel+PPT> 课程目录:(总时长合计:28:56:25) =================================== [ ...
NTKO 文件在线编辑并保存目前平台板plus支持 word excel ppt
以下是本人在开发过程中使用NTKO 控件进行在线打开文件并针对 word excel ppt 文件在线编辑,编辑之后保存.使用控件里的保存功能第一步: 在这之前您的jsp或者js文件中已经使用o ...
Vue 预览word,excel,ppt等office文档-内网访问（基于onlyoffice，后端返回文件流）
Vue 预览word,excel等office 先看效果!! 需求背景:在前端页面中预览office文件且是内网访问,服务器不可访问外网的前提. 因此微软的接口就废掉了,因为他接口的条件是可以访问外网 ...

完美解决Word、Excel、PPT加密解密的方法

解决Word、Excel加密的方法

文章目录

Excel加密：

Word加密：

VBA工程加密：

PPT加密

完美解决Word、Excel、PPT加密解密的方法相关推荐

最新文章

热门文章