If Operated Then      If mcolTask.Count = 0 Then     If datEnd < Now() Then ですね。 キー操作など他のイベントが発生したときは、そのカウンターをリセットする。   Application.StatusBar = "" ' 本ブックをClose       Exit Sub UserForm1.Close                 Procedure:=strProcName, _       Call 未実行予約強制解除 WSH.Popup "1秒後、自動的に閉じる", 1, "Title", vbInformation   Application.StatusBar = "待機中のタスク... " & mcolTask.Count どこか悪いところはありますでしょうか? そのままで良いです。意味は 文字の色を自動に 設定するだけです。   ' ご自分のマクロの最後に次の一行を追加しておいて下さい   Operated = False その実行を保留するちょと特別動作をします。       Application.OnTime EarliestTime:=i, _ この『どんな文字でも』の部分に何を入れればいいのか教えてください。            & "破棄して終了しますか?", _     If datEnd < datBigin Then datEnd = datEnd + 1 宜しくお願い致します。, >ご教示いただいた内容(Cells.Font.ColorIndex = 0')をそのまま 自動的にプログラムを終了させたいのですが  ' 他にブックが開いていなければ、Excelを終了する 単にExcelのファイルを開いて、マウスのホイールでスクロールしながらあちこちシートを眺めているだけの場合など、セル操作や印刷などの操作がない場合にも強制終了されてしまうので、そこはご承知ください。, 何かオペレーションが行われたかを監視して、5分ごとにそれをチェックし、オペレーションがされなかったらブックを閉じるというマクロを組んでみました。(最後のオペレーションから5分間監視、ではなく、ブックを開いてから5分間隔でチェックするので、多少のタイムラグがあります) Application.DisplayAlerts = False'←メッセージを出さない コードのままだと...続きを読む, 初歩的な質問で申し訳ありませんが・・・     datBigin = datBigin + Date Office TANAKA(http://officetanaka.net/excel/vba/tips/tips21.htm), 連続で、Popupを使う際に、途中で、他の処理を実行すると、Popupが自動で消えなくなってしまいます。 Dim FileName As String これでできると思いますが、いかがでしょう。, 過去の質問に「時間が来たら警告を出す」というのがあったのは   Else                 Schedule:=True 当方キーボードマクロでの自動書き込みしか出来ない素人ですが、少々複雑な物であっても頑張ってみるつもりですので、どなたかご教授下さい。, えーー。。実際に使うなら、zap35 さんのように、OnTime で実行したマクロ   On Error Resume Next 閉じる時は? 可能の場合、どのようなVBAになりますか?? 現在は、時間経過を現在時刻の(分・秒)で表示していますが、これを起動し10分からカウントダウン表示(分・秒)することはできますでしょうか。 の中で再度 OnTime を登録する方が良いと思います。   End If  Operated = True ・エクセルの当該ブックを、起動10分後に自動終了(保存しない)させる 変更点は、 マクロで時間が来て保存された状態は Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)  Operated = True '-------------------------------------, プログラムが一定時間操作されない状態(マウス操作やキー操作)が続くと End Sub ThisWorkbook Workbook Open     .Cells(lngRow, "Y").Value = Now() もしExcelをお持ちでしたらExcelのVBEで標準モジュールを追加し、「Sub Test1()」と「Private Sub Test2()」を作成してみてください。 、 玄人志向のデスク … Dim WSH As Object Private Sub Workbook_Activate() 尚、Windows8.1,Excel2010です。  Application.OnTime Now + TimeValue("00:05:00"), "CloseMe"  ThisWorkbook.Saved = True ActiveSheet.P...続きを読む, 連続で、Popupを使う際に、途中で、他の処理を実行すると、Popupが自動で消えなくなってしまいます。 しかし、「何もしなかったら」というのを検知する方法がわからなかったため、ちょっと強引ですが ThisWorkbook のイベントほとんど全てをを定義して、「何かした」というフラグを立てるという方法になっています。 Msgbox "指定の時間が来ましたので編集できなくなりました。指定のフォルダに回答を保存してください。" 今更こんな事言うのは、#6 の大げさなコードを見て、「また、やっちまった...」 Sub OnTime1() End Sub  しかし、 そんな時のために、エクセルに何も入力等がない一定時間経過したら、自動で保存して閉じる機能を持たせたいと考えています。例えば入力が5分以上なければ自動的に閉じるように・・・・   datBigin = TimeValue("10:00:00")  ' 開始時刻     End If 見よう見まねで、以下のようなことをしましたが、結局ダメでした。 「再度開く為にはパスワードが必要」(最初に開く時には不要) シートに保護、色は自動、ブックに保護の状態です。  Operated = True Application.OnTime Now + TimeValue("0:00:01"), "test01" 「指定項目」のところに「Public」と「Private」の説明がありますよ。 ThisWorkbook.Name         Title:="問い合わせ")     .Cells(lngRow, "V").Resize(1, 3).Value = .Range("Q12:S12").Value 下のサンプルにて、GetOpenFilename をコメントアウトすれば、Popupは、正常に機能(指定時間後に自動で消える)しますが、GetOpenFilename を入れると、メッセージは、自動で消えなくなってしまいます。 ThisWorkbook.Close False, 共通でエクセルを使用していますが、時々エクセルを開いたまま外出したり、休憩したり Sub ***( ) と Private Sub ***( ) の違いは何なんでしょうか? Sub OnTime1() MessageBoxTimeoutA の方がお手軽かな。 Sub 終了() ハードウェア.     If datBigin < Now() Then https://oshiete.goo.ne.jp/qa/5393997.html   datEnd = TimeValue("18:00:00")   ' 終了時刻 よろしくお願いします。, 「Sub」の部分にカーソルを置いて[F1]を押せばヘルプが起動します。  Operated = True マクロで時間が来て保存された状態は   Dim datTimeout As Date 下のサンプルにて、GetOpenFilename をコメントアウトすれば、Popupは、正常に機能(指定時間後に自動で消える)しますが、GetOpenFilename を入れると、メッセージは、自動で消えなくなってしまいます。     End If Test1はPublicで、Test2はPrivateだからです。, ユーザーフォームを開く時は Windows. の方ですかね。, エクセルにて刻一刻変る外部データ(株価)を表示させています。それを自動で30分置きにデータ蓄積させる方法はありませんか? このときのVBAは、オリジナルのファイル名を使っているため、ファイル名を変更するとエラーになり、以後の業務に使用できません。 End Sub   Application.StatusBar = "タスク破棄中... " End Sub サジェスチョンがあれば、よろしくお願いします。  End If ブックの保護は解除して保存することになりますね。(毎回で大変ですが)  ちょっと曖昧な表現かなぁという気もいたしますが、VBAが書いてあるブックのブック名は  ' 本ブックをClose End Sub .Value = Time もしよろしければ、もう1点ご教示ください。 Linux.     文字が入っていなければB1セルからC1セルを引く、という状態です。   Dim i  As Long よろしくお願いします。, 普通に考えれば質問者のコードで上手くいきそうですが