保存時にエラーになる原因を教えてください

先日こちらでファイル名を変更する方法を教えていただきました。
おかげさまでボタン一つでファイル名の変更ができ、入力ミスもなくなりとても助かっています。

次のステップとして、ファイルを保存するときに同時に2か所に保存できるようにしました。
ThisWorbookに

Private Sub Workbook_BeforeSave(ByVal SaveAsUl As Boolean, Cancel As Boolean)
Const svPath As String = "C:\Users"
ActiveWorkbook.SaveCopyAs Filename:=svPath & ActiveWorkbook.Name
End Sub

としたのですが、保存するときにうまくいくときと失敗するときがあります。
必ず失敗するわけではないのですが、何がいけないのでしょうか？
うまくいかないときは、もう一つの保存先が何も変わっていないときと、
実行時エラー1004が出るときです。

？ファイル名またはパスが存在しません。
？ファイルが他のプログラムによって使用されています。
？保存しようとしているブックと同じ名前のブックが現在開かれています。

と出ます。
3点とも問題ないことを確認しているのですが、
エラーが出るときと出ないときがあって困っています。

念のため前回のファイル名が変更になるコードも下に記しておきます。

ご教授の程、よろしくお願いいたします。

Sub ブック名変更()
Dim Path As String
Path = ThisWorkbook.Path & "\" & ThisWorkbook.Name
ThisWorkbook.SaveAs ThisWorkbook.Path & "\" & Sheets("入力").Range("I2").Value
Kill Path
End Sub

行動規範の内容に同意します

回答2件

mi_kuさんの回答には、なりませんがわたしも症状が出ます。
私の場合、ノートパソコン３台の内１台だけ症状が出ます
データはどのパソコンからでも操作したいため、SDカードにデータ保存しています問題のパソコン、SDカード認識します、データも呼び出し、書き換えも　出来ますが保存の時、症状が現れます、SDカード挿入口を「接点復活剤」などで　清掃しても　症状が改善されません（パソコンの内部的な故障かも？）
USB（SD）変換アダプターでSDカードを使用しています。
C:ドライブには問題なく　保存できます

投稿2020/12/24 06:48

syousuke.33

総合スコア312

SaveAsするとファイル名が変わるので、その後の本来の保存が上手く行かないのでは？
テストしてませんが、これでどうなりますか？

VBA
1Private Sub Workbook_BeforeSave(ByVal SaveAsUl As Boolean, Cancel As Boolean)
2Const svPath As String = "C:\Users\"
3Dim origFile As String
4origFile = ActiveWorkbook.path & "\" & ActiveWorkbook.name
5ActiveWorkbook.SaveCopyAs Filename:=svPath & ActiveWorkbook.Name
6ActiveWorkbook.SaveCopyAs Filename:=origFile
7End Sub

投稿2020/05/04 00:36