|
皆様のお知恵をお貸し下さいますようお願い申し上げます。
エクセルを立ち上げ、10分後にメッセージボックス(YES/NOタイプ)
を表示させ、YESなら再度10分カウントする、NOならファイルを閉じる。
しかもこのメッセージが表示されて10秒たったら、YESNO関係なくファイルを閉じる。
というマクロは作成可能なのでしょうか?
このファイルはサーバー上で複数のユーザーが使用します。
たちあげたまま、離席されると別の方が使えなくなるので
10分たったら、自動的に閉じるようなマクロを作りました。
ですが、離席されていない継続で使用される方の為にメッセージを作った
のですが、離席されている方だとYESかNOか選択するまで、結局
エクセルは開いたままとなってしまうのです。
これを回避する為に、メッセージボックスがでても10秒たったら
強制的に閉じるという事をしたいのです。
どうか宜しくお願い致します。
現在できているマクロです。
---------------
Sub auto_open()
指定時刻 = Now + TimeValue("00:00:10") '現在時刻より何分後
待ち時間 = TimeValue("00:00:10")
Application.OnTime TimeValue(指定時刻), "終了マクロ", TimeValue(待ち時間)
End Sub
Sub 終了マクロ()
タイトル = "10分経過しました"
メッセージ = "まだ使用しますか?(10秒後に自動保存、終了します)"
スタイル = vbYesNo
応答 = MsgBox(メッセージ, スタイル, タイトル)
If 応答 = vbYes Then auto_open
Windows("予約表2005.xls").Activate
If Not ThisWorkbook.Saved Then
ThisWorkbook.Save
End If
ActiveWindow.Close
End Sub
|
|