一定時間非アクティブになった後、ブックを保存して閉じるにはどうすればよいですか？

場合によっては、他の業務で長時間忙しいときに誤ってブックを閉じて、ブック内の重要なデータが失われることがあります。 ブックを一定時間非アクティブ化した場合に、ブックを自動的に保存して閉じるためのトリックはありますか？

VBAを使用して一定時間非アクティブになった後、ブックを自動保存して閉じます

VBAを使用して一定時間非アクティブになった後、ブックを自動保存して閉じます

この問題を解決するための組み込み関数はExcelにありませんが、特定の時間非アクティブになった後にブックを保存して閉じるのに役立つマクロコードを導入できます。

1.自動的に保存して閉じるワークブックを有効にし、一定秒間非アクティブにした後に閉じます。 Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

2。 クリック インセット > モジュール を作成する モジュール スクリプトを作成し、以下のコードを貼り付けます。 スクリーンショットを参照してください：

Dim CloseTime As Date
Sub TimeSetting()
    CloseTime = Now + TimeValue("00:00:15")
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=True
End Sub
Sub TimeStop()
    On Error Resume Next
    Application.OnTime EarliestTime:=CloseTime, _
      Procedure:="SavedAndClose", Schedule:=False
 End Sub
Sub SavedAndClose()
    ActiveWorkbook.Close Savechanges:=True
End Sub

3.次に、 プロジェクトエクスプローラー ペイン、ダブルクリック このワークブック、および以下のコードをスクリプトの横に貼り付けます。 スクリーンショットを参照してください：

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call TimeStop
End Sub

Private Sub Workbook_Open()
    Call TimeSetting
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
   Call TimeStop
   Call TimeSetting
End Sub

4.手順2で挿入したモジュールをダブルクリックして、を押します。 F5 コードを実行するためのキー。 スクリーンショットを参照してください：

5.次に、15秒後、ブックの保存を通知するダイアログがポップアップ表示され、[]をクリックします。 可 ブックを保存して閉じます。

ヒント：

（1）最初のコードでは、次の文字列で非アクティブ時間を他に変更できます。 Now + TimeValue（ "00:00:15"）

（2）ブックをこれまでに保存したことがない場合は、 名前を付けて保存 最初にダイアログボックスが表示され、保存するように求められます。