大家好
每個月其他部門都會寄資料來，檔名每次都會些微更改，寫了一個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,文件可能是唯讀或已加密。
再請幫忙了，謝謝！