求大神帮忙看看两句简单的语句 问题出在哪里

托尼不带水

求大神帮忙看看以下这两句简单的语句  问题出在哪里?想实现的功能是   对当前活动工作表进行另存，存入指定位置、重命名，并对新生成的文件设置密码。
运行语句后，第一步能够正常实现，另存并改名，但执行到第二句，设置密码时报错，报错内容为  错误9，下标越界  
求大神看看   问题出在哪里  需要怎么修改

1. Sub 另存()
   
2. 
   
3. ActiveWorkbook.SaveCopyAs Filename:="c:\data\123.xlsm"
   
4. Workbooks("c:\data\123.xlsm").Password = "222222"
   
5. 
   
6. End Sub

复制代码

huang1314wei

ActiveWorkbook.SaveAs Filename:="c:\data\123.xlsm", Password:="222222"

托尼不带水

huang1314wei 发表于 2019-3-17 16:06
ActiveWorkbook.SaveAs Filename:="c:\data\123.xlsm", Password:="222222"

大大  这样能解决另存的问题。 但是我想使用 save copy as 来另存 ，这样当前操作文件才不会跳转到另存的文件去。  所以应该怎么解决呢？  
或者我们把问题简化一下，已经另存成功了，怎么给文件添加密码呢？ 我的第二句问题是出在哪？

huang1314wei

Sub 另存()

ActiveWorkbook.SaveCopyAs Filename:="c:\data\123.xlsm"
Workbooks.Open("c:\data\123.xlsm")
Workbooks("123.xlsm").Password="222222"
Workbooks("123.xlsm").Close  savechages:=true

End Sub

托尼不带水

原来要先打开文件  学习了  谢谢老师