Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

21653 / 76738

←次へ　｜　前へ→


	【60476】自動エクセル終了マクロ、VBA

初心者 - 09/2/23(月) 16:35 -


	引用なし

	パスワード

エクセルを開いてから５分後にエクセルを終了させるマクロを作成しました。
5分後に強制（自動保存あり）で閉じることは可能になったんですが・・・

５分以内にエクセルを閉じる（手動で）と、アプリケーションが内部で動いているため、マクロが起動します（５分後にマクロが開き、閉じるアクションをするため）

ここまでは分かっているのですが、具体的対策ができません。
下記に私が書いたVBAを貼り付けます。

お知恵をお貸し頂けないでしょうか。お願いします。

～ThisWorkbook～

Private Sub Workbook_Open()
　Operated = False
　SetTimer
End Sub

Public Operated As Boolean

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

～Module1～

Sub CloseMe()

　ActiveWorkbook.Save
　Workbooks("○○○.xls").Saved = True

　Workbooks("○○○.xls").Close False

End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)　
　　’エクセルを閉じる前の処理
　　
　Application.OnTime Now, SetTimer, schedule:=False　　

End Sub

0 hits

▼

【60476】自動エクセル終了マクロ、VBA 初心者 09/2/23(月) 16:35

≪