使用密码命名工作簿

Question

我想弄清楚如何在工作簿中添加密码。当我删除密码部分时，代码会保存它（＆＃34; sp17＆＃34;），但是当它出现时会出现语法错误。我该如何更正此错误？

  ActiveWorkbook.SaveAs fileLocation degreeArray(criteria) & " " & format(Date, "MMM-YY") & ".xlsx", 51, "sp17"

Answer 1

我做了一个小小的改动，现在它起作用了。格式写得不正确。考虑删除我的问题，但很难找到如何做到这一点，所以我会留给任何需要它的人。这是写它的正确方法：

     ActiveWorkbook.SaveAs fileLocation & degreeArray(criteria) & " " & Format(Date, "MMM-YY") & ".xlsx", 51, Password:="sp17"