皆で使うExcelファイルは、「校閲」の「ブックの共有」という手もあるが
サーバが遅すぎで、誰も開けないことに。
特にクラウドで共有ってどうなんでようか?
で
Application.OnTime 実行時間,”モジュールのプロシージャ名”
WorkbookがOpenしたタイミングでこれをセット。
ThisWorkbookを選んで、WorkbookのOpenを選ぶとイベントプロシージャが現れる
この手法を使うことに。
実際は15分で強制保存終了
ここでは15分後に以下のプロシージャを実行する。
これは、Module1のコード
Sub savedown()
ThisWorkbook.Activate
Application.DisplayAlerts = False
ThisWorkbook.Save
Range("a1").Copy
ThisWorkbook.Close
Application.DisplayAlerts = True
End Sub
ファイルの保存は、マクロ有効ブック。拡張子が.xlsmで保存する。