Есть ли в VBA альтернативное свойство SaveCopyAs, позволяющее защитить паролем?

Question

У меня есть часть моего скрипта массива, который перемещает данные в шаблон, работает так быстро. Дело в том, что у меня есть свойство SaveCopyAs, которое не поддерживает защиту паролем.

Кто-нибудь знает что-то подобное, что позволит добавить пароль?

        Wb.SaveCopyAs ThisWorkbook.Path & Application.PathSeparator & _
          ValidFileName(Mgr & "_" & Last & "_" & "Realty Services Assessment.xlsx")

В идеале, я бы хотел, чтобы все было так же, но там тоже была бы password:= "_______" часть.

Answer 1

Используйте SaveAs вместо. Это сделает копию активной книгой, поэтому вы захотите закрыть эту копию и заново открыть оригинал, если хотите сохранить точно такое же поведение:

originalPath = wb.FullFileName
wb.SaveAs ...path...password...
wb.Close
Set wb = Workbooks.Open(originalPath)