Excel VBA 保存 上書き保存されてしまう

質問

エクセルデータを閉じる時に元データとは違う場所にバックアップをとるように以下のようなコードを記述しました。（Excel内の一部のデータが何かしらのタイミングで消えてしまう現象が起き、どのタイミングで消えているのかを探るために誰かしらがデータを開いて閉じる時にその閉じた時間をファイル名にして保存させるというのが目的です）

Sub Auto_Close()
Worksheets("Sheet1").Select 'シート1を開く
ThisWorkbook.Save '元データの保存場所に上書き保存
Filename = Format(Now(), "yyyy-mm-dd-hh-mm-ss")
ThisWorkbook.SaveAs Filename:="\\●●\●●\●●\●●\●●\" & Filename & ".xlsm" '別の場所に名前をつけて保存
End Sub

この別の場所に保存したデータ（(1)とします）を開いて中身を確認してから閉じるともちろん再度閉じた時間をファイル名にして保存する（(2)）ことになるのですが、このとき上書きされるような形になってしまい(1)のデータが残りません。(1)が残るようにするにはどこを修正すればいいのでしょうか？

回答No.1

mt2008 · ベストアンサー

コードの中でわざわざ上書き保存していますからねぇ。
↓この1行を削除してみてください。
ThisWorkbook.Save '元データの保存場所に上書き保存

お礼

ご回答ありがとうございます。

確かに名前をつけて保存イコールデータを保存ですよね。

意味不明なことしていました。