エクセルVBA 10分後にエクセル自動終了＆カウン

どなたかご教授お願い致します。

・エクセルの当該ブックを、起動10分後に自動終了（保存しない）させる
・開いている間は、10分のカウントダウンを「分：秒」でA1セルに表示する

以上を実行したいのですが、VBAは全く素人ですので、うまくいきません。
見よう見まねで、以下のようなことをしましたが、結局ダメでした。

何卒、よろしくお願い致します。



ThisWorkbook Workbook Open

Private Sub Workbook_Open()
test01
Application.OnTime Now + TimeValue("00:10:00"), "終了"

End Sub


標準モジュール　Module1

Sub 終了()
ThisWorkbook.Close Savechanges:=False
Application.Quit
End Sub


Sub test01()

With Sheets("バックアップ").Range("A1")
.Value = Time
.NumberFormatLocal = "mm:ss"
End With
Application.OnTime Now + TimeValue("0:00:01"), "test01"

End Sub

No.2 回答者： DreamyCat 回答日時： 2013/10/18 15:38

最初に１０分TimeValue("00:10:00")

を書き込んでおいて
Timeの代わりにこれを繰り返せば。あと00:00秒のときの判定も必要かと。
　　　.Value = .Value - TimeValue("00:00:01")

この回答へのお礼

御礼が遅くなりました。
有難うございました。

お礼日時：2013/10/22 16:40

No.1 回答者： DreamyCat 回答日時： 2013/10/17 17:01

「終了」プロシージャの最初に

一番最後に予約したタイマーを取り消すコードを１行追加してください。

Sub 終了()
Application.OnTime Now + TimeValue("0:00:01"), "test01", , False
　　以下のコードは提示されたとおり。

この回答へのお礼

出来ました。
早速ご回答いただき、大変有難うございました。

もしよろしければ、もう1点ご教示ください。
現在は、時間経過を現在時刻の（分・秒）で表示していますが、これを起動し10分からカウントダウン表示（分・秒）することはできますでしょうか。
よろしくお願い致します。

お礼日時：2013/10/17 17:35