Excel VBA質問箱 IV

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

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


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

290 / 76732

←次へ　｜　前へ→


	【82110】Openイベントが実行されない

Yamato - 23/1/13(金) 3:04 -


	引用なし

	パスワード

ブックのOpenイベントが実行されません。
解決方法を探しています。

⑴使用環境：Excel2019、Windows１０

⑵試したこと・わかっていること

2.1　Module内でapplication.EnableEvents = Trueを記述し実行した。
2.2　ブックを開きイミディエイトウィンドウで?Application.EnableEventsと入力すると”True”が返ってくる

まとめると
・EnableEventsは有効であるのに、xlsm形式ブックのOpenイベントは実行されない

⑶その他
・PERSONAL.xlsb上でOpenイベントを行っています。PERSONALのOpenイベントは実行されます。（その後開かれるxlsmブックに記述されたOpenイベントは無視されます）
・4か月前ほど前、これまで作ってきたマクロ対応ブックがすべてOpenイベントが無視されるようになりました。　一部のブックはXlsmブックにModuleを挿入し、そこにApplication.EnableEventsの記述をし、実行することでOpenイベントが実行されました。

・新たにブックを作った場合でもOpenイベントが実行されないことがあります。
（＝ブックの破損ではない可能性があります）

・例えば次のような内容が短いものはOpenイベントが実行されたことがあります
Sub workbook_open()
msgbox("a")
end sub
一方以下のような内容が長いものはOpenイベントが実行されません。
Sub workbook_open()
msgbox("a")
with application
　.onkey "a", "Thisworkbook.a"
　.onkey "b", "Thisworkbook.b"
　.onkey "c", "Thisworkbook.c"
　.onkey "d", "Thisworkbook.d"
end with

91 hits

▼

【82110】Openイベントが実行されない Yamato 23/1/13(金) 3:04