macros:以编程方式删除已知的Excel密码

有没有办法通过VBAmacros从Excel文件中删除一个已知的密码? 网页search只会返回破解未知Excel密码的方法。

除了从FTP站点下载文件并随后删除密码之外,我已经自动处理数据处理的所有其他方面。

您需要打开指定要打开和修改的密码的工作簿,然后指定用于打开和修改的空密码。 为了避免在覆盖现有文件时收到提示,您需要禁用警报。

例如

Sub OpenAndSaveWithoutPasswords() Dim wb As Workbook Application.DisplayAlerts = False Set wb = Workbooks.Open(Filename:="YOUR PATH AND FILENAME", Password:="OPEN PASSWORD", WriteResPassword:="MODIFY PASSWORD") wb.SaveAs Filename:="YOUR PATH AND FILENAME AGAIN", Password:="", WriteResPassword:="" Application.DisplayAlerts = True End Sub 

注意:Workbooks.Open似乎需要括号,wb.SaveAs不需要括号(不要问我为什么)。

只需重新保存工作簿而不需要密码:

 ActiveWorkbook.SaveAs