excel - 使用vba删除excel文件的密码

Question

我每天都会收到多个带有密码保护的 Excel 工作簿。我们的程序要求我删除密码并将其保存在共享驱动器中。我相信密码是由发件人使用下面添加的

workbook.saveas password:="pw"

我已经尝试过workbook.unprotect，workbook.saveas password:=""但是这无法删除密码。任何人都知道我可以如何自动化而不是手动删除密码？

标签： excelvba

Answer 1

您可以在保存之前更改工作簿中的密码设置。

Option Explicit

Sub testPasswordRemoval()

    Dim wb As Workbook

    Set wb = Workbooks.Open(Filename:="C:\Temp\Book2.xlsm", Password:="pw")
    wb.Password = ""
    wb.SaveAs "C:\Temp\NewBook.xlsm"

End Sub