大家好
每个月其他部门都会寄资料来，档名每次都会些微更改，写了一个vba更改档案名称，并
另存新档，以往都可以顺利使用，但交接给同事后vba出现问题无法使用，想请问各位可
能原因以及解决方法。
Sub 更名
Dim path1,file1
Path1="c：users\desktop"
File1=dir(path1 & "*部份档名*")
Set book1= workbooks.open(path1 & file1)
Book1.saveas fileName:="更改档名的路径"
Workbooks("更改档名").close savechanges:=false
错误资讯：
执行阶段错误1004
Excel无法存取文件 desktop,文件可能是唯读或已加密。
再请帮忙了，谢谢！