VBAでエクセルの自動保存と閉じる機能を実装する方法

質問

• 一定時間経過したら自動でエクセルを保存して閉じる機能をVBAで実装する方法について説明します。
• エクセルのセルに入力がない時間が一定時間経過すると、自動的にブックを保存し、閉じるようなVBAコードを作成します。
• この機能を実現するためには、エクセルのマクロ機能であるVBAを使用します。エクセルのVBAエディタを開き、下記のコードを入力します。ただし、保存確認を避けるため、事前にブックを保存しておくことが必要です。このコードを実行すると、エクセルのセルに入力がない時間が一定時間経過すると、自動的にブックを保存し、閉じるような動作が行われます。

回答No.2

ham_kamo

> 眺めているだけの場合にも閉じられてしまうところが、
> ちょっと・・・・検討してみます。。。。

やっぱりそうですよね。しかしながら、ただ眺めているだけでは何もオペレーションしてないのと同じなので、そうなってしまいます。マウスでどこかのセルをクリックしたり矢印キーでセルを移動するだけでいいのですが。

そうは言っても不便だと思ったので、ちょっと改良してみました。

何も操作せずに５分経つと、警告音とともに

　５分以上操作がなかったので
　３０秒後に終了します。
　操作を続行したいときは
　このボタンを押してください

と表示されたボタンをExcelの画面の中央に表示するようにしました。
そのボタンを押せばブックは閉じません。ボタンを押さずに３０秒経過すると、自動的にブックを閉じます。エクセルを最小化している場合は、最大化してボタンを表示するようにしています。

標準モジュールのマクロを以下に差し替えてみてください。
５分とか３０秒などを調節する場合は、マクロ中の
"00:05:00"や"00:00:30"の部分を変えてください。

Public Operated As Boolean
Public AlertButton As Object
Public AlertButtonPushed As Boolean

Sub SetTimer()
　Application.OnTime Now + TimeValue("00:05:00"), "ShowAlert"
End Sub

Sub CloseMe()

　If AlertButtonPushed Then Exit Sub

　AlertButton.Delete

　'ブックの上書き保存
　ActiveWorkbook.Save
　' 保存確認を避けるため、保存済みにする
　ThisWorkbook.Saved = True

　' 他にブックが開いていなければ、Excelを終了する
　If Workbooks.Count <= 1 Then Application.Quit

　' 本ブックをClose
　ThisWorkbook.Close False
End Sub

Sub ShowAlert()
　Dim BtnLeft As Double, BtnTop As Double
　Dim BtnWidth As Double, BtnHeight As Double

　If Operated Then
　　Operated = False
　　SetTimer
　　Exit Sub
　End If

　If Application.WindowState = xlMinimized Then
　　Application.WindowState = xlMaximized
　End If
　AppActivate "Microsoft Excel - " & ThisWorkbook.Name

　AlertButtonPushed = False
　BtnWidth = 150
　BtnHeight = 100
　BtnLeft = ActiveWindow.Width / 2 - BtnWidth / 2
　BtnTop = ActiveWindow.Height / 2 - BtnHeight
　ActiveSheet.Buttons.Add BtnLeft, BtnTop, BtnWidth, BtnHeight
　Set AlertButton = ActiveSheet.Buttons(ActiveSheet.Buttons.Count)
　AlertButton.OnAction = "AlertButton_Click"
　AlertButton.Characters.Text = _
　"５分以上操作がなかったので" & vbCrLf & _
　"３０秒後に終了します。" & vbCrLf & _
　"操作を続行したいときは" & vbCrLf & _
　"このボタンを押してください"
　With AlertButton.Characters.Font
　　.Name = "ＭＳ Ｐゴシック"
　　.FontStyle = "標準"
　　.Size = 9
　End With
　Beep

　Application.OnTime Now + TimeValue("00:00:30"), "CloseMe"
End Sub

Sub AlertButton_Click()
　AlertButtonPushed = True
　AlertButton.Delete
　SetTimer
End Sub

お礼

色々恐縮です。
早速ですが、標準モジュールのマクロを以下に差し替えてみまして
「ステップイン」を実行してみましたが、下記の２ケ所でデバッグが
表示されてしまいます・・・・・
スミマセンがよろしくご教授お願いします。

１．
　　Sub CloseMe()
　　If AlertButtonPushed Then Exit Sub
　　AlertButton.Delete　　　←←１．ここの部分
　　'ブックの上書き保存

２．
　Sub AlertButton_Click()
AlertButtonPushed = True
AlertButton.Delete　　　　　←←２．ここの部分
SetTimer
End Sub