スキルアップ・問題解決なら、モーグにおまかせ！

    ブックの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

念のための確認ですが、
Private Sub Workbook_Open()
   '処理
End Sub
は、ThisWorkbookモジュールに書かれていますよね？

引用:
Openイベントが実行されません

マクロにショートカットキーを設定する
https://www.moug.net/tech/exvba/0150112.html
 
にもありますが、
OnKey は、全てのブックで有効になります。
 
ブック1 にて
---------------------------------
Private Sub Workbook_Open()
  With Application
    .OnKey "{a}", "a"
　End With
End Sub
 
Sub a()
 ・・・
End Sub
---------------------------------
 
として、
 
1）ブック1 で キー aで、Sub a が実行される様にし
　別のブック ブック2 を開いたあと、ブック1 を閉じ、ブック2 上 で a を押すと
　ブック1 が 開かれ、Sub a が実行されます。
 
2）ブック1 で キー aで、Sub a が実行される様にし
　ブック1 を閉じExcel自体も閉じます。
　ブック2 を開き a を押しても 実行されません。
 
動作の確認方法も 念頭においておきましょう。

上の問題の解決策を探してください https://www.youtube.com/

simple さんの引用:
念のための確認ですが、
Private Sub Workbook_Open()
   '処理
End Sub
は、ThisWorkbookモジュールに書かれていますよね？

Suzu さんの引用:

引用:
Openイベントが実行されません

 
何をもって実行されていないと判断されたのでしょうか？
・msgbox("a") で、実行されるであろう
　　"a" のメッセージの メッセージボックス が表示されない
 
・WorkBook_Open プロシージャ の どこかに
　ブレイクポイントを設け、Open時に そのブレイクポイントで コード実行が停止しない
 
・Onkey で 登録してある a や b を押したときに
　その呼び出し先であるはずのプロシージャが実行されない
 
　：
　etc
 
 
Application.OnKey "a", "Thisworkbook.a"
これを、WorkBook_Openプロシージャでなく、
普通の Subプロシージャにて実行し、その上で、Excel上で a を押してみてください。
 
マクロ "ファイルパス'!Thisworkbook.a' を実行できません。このブックでマクロ使用できないか、またはすべてのマクロが無効になっている可能性があります。
 
と、なります。
 
Application.OnKey "a", "a"
 
の様に ThisWorkBook を記載してはダメです。

Suzu さんの引用:
マクロにショートカットキーを設定する
https://www.moug.net/tech/exvba/0150112.html
 
にもありますが、
OnKey は、全てのブックで有効になります。
 
ブック1 にて
---------------------------------
Private Sub Workbook_Open()
  With Application
    .OnKey "{a}", "a"
　End With
End Sub
 
Sub a()
 ・・・
End Sub
---------------------------------
 
として、
 
1）ブック1 で キー aで、Sub a が実行される様にし
　別のブック ブック2 を開いたあと、ブック1 を閉じ、ブック2 上 で a を押すと
　ブック1 が 開かれ、Sub a が実行されます。
 
2）ブック1 で キー aで、Sub a が実行される様にし
　ブック1 を閉じExcel自体も閉じます。
　ブック2 を開き a を押しても 実行されません。
 
動作の確認方法も 念頭においておきましょう。

引用:
「何をもって実行されていないと判断されたのでしょうか？」→メッセージボックスが表示されないことで判断しました。

引用:
「Application.OnKey "a", "Thisworkbook.a"
これを、WorkBook_Openプロシージャでなく、
普通の Subプロシージャにて実行し、その上で、Excel上で a を押してみてください。」
→登録したマクロは実行可能でした。

引用:
「Application.OnKey "a", "Thisworkbook.a"
これを、WorkBook_Openプロシージャでなく、
普通の Subプロシージャにて実行し、その上で、Excel上で a を押してみてください。」
→登録したマクロは実行可能でした。

もう一度事実関係を調査されたらいかがでしょう。
Openイベントで MsgBoxすら無効ということは、
Application.EnableEventsがFalseになっているとしか思えません。
 

引用:
・PERSONAL.xlsb上でOpenイベントを行っています。
  PERSONALのOpenイベントは実行されます。
（その後開かれるxlsmブックに記述されたOpenイベントは無視されます）

引用:
一方以下のような内容が長いものは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
End Sub