Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


7818 / 13644 ツリー ←次へ | 前へ→

【36676】メッセージボックスを使いたいのですが。 緑の人気者 06/4/7(金) 15:28 質問[未読]
【36677】Re:メッセージボックスを使いたいのですが。 Blue 06/4/7(金) 15:35 発言[未読]
【36680】Re:メッセージボックスを使いたいのですが。 緑の人気者 06/4/7(金) 15:55 お礼[未読]

【36676】メッセージボックスを使いたいのですが。
質問  緑の人気者  - 06/4/7(金) 15:28 -

引用なし
パスワード
   皆様のお知恵をお貸し下さいますようお願い申し上げます。

エクセルを立ち上げ、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

【36677】Re:メッセージボックスを使いたいのです...
発言  Blue  - 06/4/7(金) 15:35 -

引用なし
パスワード
   WScript.ShellのPopupメソッドを使うとか。
http://www.officetanaka.net/excel/vba/tips/tips21.htm

【36680】Re:メッセージボックスを使いたいのです...
お礼  緑の人気者  - 06/4/7(金) 15:55 -

引用なし
パスワード
   とても簡潔な答え感謝致します。

なるほど、エクセルのVBAでは無理だったのですね。
教えてくださったサイトで勉強します!

7818 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free