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