以下是一些批量清除Word、Excel、PPT文件打开密码的方法：

使用第三方工具

• PassFab系列：有PassFab for Word、PassFab for Excel、PassFab for PPT等工具。以PassFab for PPT为例，下载并安装软件后，打开软件点击“添加文件”，可批量选择需要去除密码的PPT文件，选择合适的破解方式如暴力破解、字典攻击等，点击“开始”按钮，等待软件破解完成。
• 六牛助手：打开浏览器，搜索“六牛助手官网”，点击“立即开始”按钮，进入用户中心可批量上传需要处理的Word、Excel、PPT文件，即可进行密码清除等操作，无需下载软件，适用于手机和电脑操作。
• 文档密码恢复大师：打开文档密码恢复大师官网（mima8·cn），点击提交破解，填写联系方式，将需要破解密码的Word、Excel、PPT文件拖入文件框，点击“上传”，可实时查看破解进度，破解结束后会收到短信或邮件通知。

利用Office内置功能结合脚本

• Word：如果有密码且密码相同，可编写VBA脚本。打开一个有密码的Word文档，按“Alt + F11”打开VBA编辑器，插入一个新的模块，在模块窗口中输入以下代码，关闭VBA编辑器，返回Word文档，按“Alt + F8”打开“宏”对话框，选择“RemovePassword”宏，点击“运行”即可。批量处理时，可将此Word文档作为模板，打开其他加密Word文档，运行宏来清除密码。

  Sub RemovePassword()
  Dim doc As Document
  For Each doc In Documents
      doc.Unprotect Password:="yourpassword" '将yourpassword替换为实际密码
      doc.Save
  Next doc
  End Sub

• Excel：打开一个加密的Excel文件，按“Alt + F11”打开VBA编辑器，插入模块后输入代码，关闭VBA编辑器，按“Alt + F8”打开“宏”对话框，选择“RemoveExcelPassword”宏，点击“运行”，可批量处理同密码的Excel文件。

  Sub RemoveExcelPassword()
  Dim wb As Workbook
  For Each wb In Workbooks
      wb.Unprotect Password:="yourpassword" '将yourpassword替换为实际密码
      wb.Save
  Next wb
  End Sub

• PPT：在PowerPoint中暂时没有直接可用的类似VBA脚本批量清除密码方法，但可以通过VBA结合一些操作来实现。先打开一个加密的PPT文件，进入VBA环境，编写代码来调用PowerPoint对象模型，关闭VBA环境后，运行宏来批量处理PPT文件。

手动修改文件格式及内容

• Word：将Word文件另存为“网页（.htm,.html）”或“单个文件网页（.mht,.mhtl）”格式，用记事本打开，按“Ctrl+F”查找“UnprotectPassword”，删除相关字段，保存后用Word打开，进入“审阅”->“限制编辑”，单击“停止保护”。
• Excel：把Excel文件后缀由xlsx改为rar格式，打开压缩文件，进入worksheets，将文件拖到桌面，用记事本打开，按“Ctrl+F”查找“Protection”，选中相关部分删除，重新压缩并改回后缀xlsx。
• PPT：将PPT文件后缀改为zip格式，用解压软件打开，找到“ppt”文件夹下的“presentation.xml”文件，用记事本打开，删除含“modifyVerifier”的整句，返回文件夹，选择所有文件压缩为zip格式，再改回ppsx后缀，打开点击“只读”，将文件另存为pptx，在“另存为”界面选择“工具-常规选项”，删除“修改权限密码”后保存。

分享到：

赞 (0) 打赏