※ ChatGPTを利用し、要約された質問です（原文：VBA ブックを閉じる操作をすると勝手に開く）
VBAで指定したエクセルファイルを閉じるコードに問題がある
このQ&Aのポイント
VBAにて指定したエクセルファイル（ファイル名 Aとさせてください）を1分後に閉じるコードを記載し、自動的に１分後に閉じるようにしているが、１分経過する前に自分で勝手に閉じた場合にはファイルを閉じてから１分後くらいに勝手にAのファイルが開かれてしまう問題がある。
質問者は勝手にAのファイルを開かれないようにしたいとのことで、どうすればよいか質問している。
提供されたコードは標準モジュールに記載されており、終了ボタンをクリックすることでユーザーフォームを閉じ、Aのファイルを上書き保存してから閉じるものである。また、ThisWorkbookにはユーザーフォームを表示し、１分後に終了ボタンの処理を実行するコードが記載されている。
おはようございます。
VBAにて指定したエクセルファイル
（ファイル名 Aとさせてください）を1分後に閉じるコードを
記載し、自動的に１分後に閉じるようにしているのですが
問題点が有ります。
実際に、１分経過すると指定したファイルは閉じるので
処理上は問題ないのですが
１分経過する前に自分で勝手に閉じた場合には
ファイルを閉じてから１分後くらいに
勝手にAのファイルが開かれてしまいます。
勝手にAのファイルを開かれないようにしたいのですが
どうすればよろしいでしょうか？
コードを記載しますのでご指摘お願いいたします。
標準モジュールに記載
Sub 終了()
Unload UserForm1’開いているユーザーフォームを閉じます。
Workbooks("A.xlsx").Close SaveChanges:=True’Aのファイルを上書き保存してから閉じます。
End Sub
ThisWorkbookに記載
Private Sub Workbook_Open()
UserForm1.Show 'ユーザーフォームを開く
Application.OnTime Now + TimeValue("00:01:00"), "終了"
’１分後に指定したファイルを閉じます。
End Sub
すいませんが回答よろしくお願い致します。
お礼
回答ありがとうございます。 URLを参考にさせていただきます。