Question

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

workbook.saveas password:="pw"

我尝试使用workbook.unprotect或workbook.saveas password:=""，但这无法删除密码。有谁知道我可以自动执行此操作，而不是手动删除密码？

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

使用VBA删除Excel文件的密码

1 个答案: