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)