Удаление пароля для файла excel с помощью vba

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