![批量删除 Excel 文件的密码](https://linux22.com/image/1357235/%E6%89%B9%E9%87%8F%E5%88%A0%E9%99%A4%20Excel%20%E6%96%87%E4%BB%B6%E7%9A%84%E5%AF%86%E7%A0%81.png)
我将批量获取 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