[[20230708104216]]　『VBAのOnTime(指定時刻にマクロの実行)につきましａx（AK）　ページの最後に飛ぶ

『VBAのOnTime(指定時刻にマクロの実行)につきまして』（AK）

お世話になります。

以下を参考にしました。
https://kosapi.com/post-3017/

test.xlsm

Private Sub CommandButton1_Click()
Application.OnTime Earliesttime:=Now + TimeValue("00:00:05"), Procedure:="マクロ実行"
End Sub

Private Sub マクロ実行()
MsgBox "実行しました。"
End Sub

test.xlsmを起動しましたら[コンテツの有効化]が表示されましたので[コンテツの有効化]をクリックしました。

CommandButton1ボタンをクリックしますと以下のマクロに関するメッセージが表示されました。

マクロ ''C:\Users\XX\Desktop\test.xlsm'!マクロ実行' を実行できません。このブックでマクロが使用できないか、またはすべてのマクロが無効になっている可能性があります。

そこで以下を参考に「セキュリティセンター」の「マクロの設定」をしましたが改善されませんでした。
https://pasokon-labo.com/excel-this-book-cannot-use-macro/

マクロに関するメッセージが表示される場合、他に考えられます事はありませんでしょうか。ご教示願えますと幸いであります。

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 シートモジュールに"マクロ実行"を書いているんじゃないですか？　なら、

 ＞Application.OnTime Earliesttime:=Now + TimeValue("00:00:05"), Procedure:="マクロ実行"
 　　↓
   Application.OnTime Earliesttime:=Now + TimeValue("00:00:05"), Procedure:=Me.Name & ".マクロ実行"

（半平太） 2023/07/08(土) 11:34:14

 半平太 さん

 返答をして頂きまして、ありがとうございました。

 ＞＞Application.OnTime Earliesttime:=Now + TimeValue("00:00:05"), Procedure:="マクロ実行"
 　　↓
   ＞Application.OnTime Earliesttime:=Now + TimeValue("00:00:05"), Procedure:=Me.Name & ".マクロ実行"
マクロに関するメッセージが表示されなくなりました。

 VBAは長く使用していましたがシートモジュールについては全く知りませんでした。
 殆どは標準モジュールでした。この機会を与えてもらいましたのでシートモジュールについて勉強ができます。
 深く感謝申し上げます。本当にありがとうございました。
（AK） 2023/07/08(土) 11:49:07

コメント返信：

[ 一覧(最新更新順) ]

[[20230708104216]] 『VBAのOnTime(指定時刻にマクロの実行)につきましａx（AK） ページの最後に飛ぶ

[[20230708104216]]　『VBAのOnTime(指定時刻にマクロの実行)につきましａx（AK）　ページの最後に飛ぶ