[[20160203210458]]　『警告が出て、マクロが実行されなくなってしまいま』（カトウ）　ページの最後に飛ぶ

『警告が出て、マクロが実行されなくなってしまいます。対処教えてください。』（カトウ）

【ThisWorkBook】

 Private Sub Workbook_Open()
    Sheets(1).Range("A1") = 0
    Application.OnTime Now + TimeValue("00:00:10"), "Sample"
 End Sub

 【標準モジュール】
 Public mytime As date

 Sub Sample()
    Sheets(1).Range("A1").Value = Sheets(1).Range("A1").Value + 1

　　実行したい記述

        mytime = Now + TimeValue("01:00:00")
        Application.OnTime mytime, "Sample"
    End If
 End Sub

上記のマクロを記述し、ブックを開くと、動作OK。しかし、1時間後、もしくは何度か繰り返した後、どちらか明日もう一度確認してみますが、（情報不足ですみません）
エラー？警告？みたいなメッセージが出てきます。リンク先のアドレスが先頭に、\\○○○\○○\○○.xlsmは、マクロが無効になっているか、もしくはマクロが使用できません。みたいになってしまいます。

モニター、PCは、一日中電源ONの状態です。スクリーンセイバー、休止モードにもなりません。

どなたか、アドバイス、対処法を教えてください。

明日、もう一度、詳しくエラーメッセージを覚えてきます。

＜使用 Excel：unknown、使用 OS：unknown ＞

＞\\○○○\○○\○○.xlsm
はそのマクロを書いたファイルとはどのような関係にあるんですか？

「実行したい記述」のなかで参照しているものなら、
「実行したい記述」を示したほうが、皆さんからコメントがつきやすいのではないですか？

（γ） 2016/02/03(水) 21:24

＞\\○○○\○○\○○.xlsm はそのマクロを書いたファイルとはどのような関係にあるんですか？
部署ごとに格納フォルダが決まっており、そのフォルダ先のアドレスになっていました。

＞「実行したい記述」を示したほうが、皆さんからコメントがつきやすいのではないですか？

同じフォルダ内にある別のブックを開き、実行しているブックのシート2にデータを取り込みます。
そして、取り込んだデータを、シート1に反映させています。（リンク貼り付けで）

常時、モニタにはシート1が表示させています。

（カトウ） 2016/02/03(水) 21:37

Application.OnTimeを使った処理とは直接関係がない話じゃないでしょうか。
その\\○○○\○○\○○.xlsm がなぜ使えないのか、調査されたらよろしいのでは？
こちらではどうにもなりません　:wink:

（γ） 2016/02/03(水) 21:53

その　【実行したい記述】の部分のコードを、そのままアップされてはいかがでしょう。

（β） 2016/02/03(水) 21:55

1時間後、ということは、OnTime指定した時刻になると、ということですね？
ブックは閉じるけどExcelは閉じていない、とかで、スケジュールが残っていそう。

元のコードではOnTimeのスケジュールをキャンセルしていなかったので、ブックは1日中開きっぱなしと判断したのですが、
何度も閉じたり開いたりしているならば、以下を追加してみてください。

【ThisWorkBook】

 Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.OnTime mytime, "Sample", , False
 End Sub
（???） 2016/02/04(木) 09:21

こんばんは。度々、みなさんにはお世話になっています。が
エラーの訳がわかりました。
もう一度、記述を確認したら、

 Application.OnTime mytime, "Sample"のSampleの名称が一文字違っていました。
お騒がせしてしまい、すみませんでした。

違う件で、お聞きしたいのですが、上記のマクロ記述をすると、一度ブックを閉じても、時間が来ると自動で立ち上がって、実行してしまうのでしょうか？今日、そのような現象があったので、閉じ忘れかなと思ったのですが、何度か起きたので、これはと思い質問させていただきました。教えてください。

もし、そうであれば、（？？？）の教えてくれた記述を追加すれば、解消されますか？
（カトウ） 2016/02/04(木) 20:23

 >>一度ブックを閉じても、時間が来ると自動で立ち上がって、実行してしまうのでしょうか？

 実行したブックを閉じても、その実行したエクセルが終了しないで立ち上がりっぱなしであれば、はい、そうです。

 >>もし、そうであれば、（？？？）の教えてくれた記述を追加すれば、解消されますか？

 はい。解消されますね。

[[20140703020350]]　『一定時間で上書きすると勝手にファイルが開いてし』（とろ）

 等を参照してください。

（β） 2016/02/04(木) 20:42

解消されました。誠にありがとうございました。

（カトウ） 2016/02/05(金) 19:58

コメント返信：

[ 一覧(最新更新順) ]

[[20160203210458]] 『警告が出て、マクロが実行されなくなってしまいま』（カトウ） ページの最後に飛ぶ

[[20160203210458]]　『警告が出て、マクロが実行されなくなってしまいま』（カトウ）　ページの最後に飛ぶ