Excelで一定の時間後に上書き強制終了　自動終了

皆で使うExcelファイルは、「校閲」の「ブックの共有」という手もあるが
サーバが遅すぎで、誰も開けないことに。
特にクラウドで共有ってどうなんでようか？
で

Application.OnTime 実行時間,”モジュールのプロシージャ名”
WorkbookがOpenしたタイミングでこれをセット。
ThisWorkbookを選んで、WorkbookのOpenを選ぶとイベントプロシージャが現れる

この手法を使うことに。
実際は15分で強制保存終了

ここでは１５分後に以下のプロシージャを実行する。
これは、Module1のコード

Sub savedown()
    ThisWorkbook.Activate
    Application.DisplayAlerts = False
    ThisWorkbook.Save
    Range("a1").Copy
    ThisWorkbook.Close
    Application.DisplayAlerts = True
End Sub

ファイルの保存は、マクロ有効ブック。拡張子が.xlsmで保存する。