☰

批量删除 Excel 文件的密码

tag-icon • tag-icon microsoft-excel password-protection
批量删除 Excel 文件的密码

我将批量获取 200 多个带有空白密码的 Excel 文件，只需在要求输入密码时按 Enter 即可。我加载这些文件的系统无法处理受密码保护的 Excel 工作表。是否有命令行或其他解决方案，让我可以打开那些带有已知空白密码的 Excel 工作表，然后在没有密码的情况下重新保存它们？

此密码用于打开文件。

更新：
我遵循了STTR 的回答并使用了 DocRecrypt。打开这些文件时，不再提示我输入密码。太棒了。

答案1

测试 DocRecrypt。

Microsoft Office 2013 DocRecrypt 工具

要从文件中删除密码，请使用以下代码：

DocRecrypt –i lockedfile

要删除密码并指定新密码 12345，请使用以下代码：

DocRecrypt –p 12345 –i lockedfile

要删除密码，创建一个新文件，并为该文件分配新密码 12345，请使用以下代码：

DocRecrypt –p 12345 –i lockedfile -o newfile

方法二：

ExcelClearPass.vbs：

Set objExcel = CreateObject("Excel.Application")
'    
objExcel.Visible = TRUE 
objExcel.DisplayAlerts = FALSE
'
Path1="D:\VBS\VBS85 Excel Unprotect password\Book1.xlsx"
Path2="D:\VBS\VBS85 Excel Unprotect password\Book2.xlsx"
'
Set objWorkbook = objExcel.Workbooks.Open(Path1,,,," ")
'  
objWorkbook.Password = ""
objWorkbook.SaveAs Path2
'   
objExcel.Quit

相关内容