よろしくお願いいたします。
test.xlsm の標準モジュールに
Sub 保存()
Dim Path As String, WSH As Variant
Set WSH = CreateObject("WScript.Shell")
Path = WSH.SpecialFolders("Desktop") & "\"
ActiveWorkbook.SaveAs Path & "TEST_" & Format(Now, "yyyymmddhhnn") & ".xlsm"
Set WSH = Nothing
End Sub
というコードがあり、ボタンを押すとデスクトップにTEST_日時.xlsmが保存されます。
開いているファイルはTEST_日時.xlsmとなり、元のtest.xlsmは閉じられます。
（保存名だけでなく、他にもVBAで加工を行って保存しています）
この時、ファイルは元のtest.xlsmが開いたままで、TEST_日時.xlsmがデスクトップに保存されるのみ
という状況にすることはできますか？
test.xlsmは上書きされないことが希望です。
通常のエクセル操作でもできないように思うので、無理なような気がしているのですが・・。
もしできるのであればどのように修正すればよいでしょうか？
