用密码命名工作簿

我想弄清楚如何将密码添加到我的工作簿。 当我删除密码部分（“sp17”）时，代码会保存它，但是在那里出现语法错误。 我将如何纠正这个错误？

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

Answer 1

我做了一个小小的改变，现在可以工作了。 格式写错了。 想到删除我的问题，但很难find如何做到这一点，所以我会留给任何需要它的人。 这是写出来的正确方法：

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