警告表示を非表示にしたい

フォーム内に WindowsMediaPlayer を配置しています。このためブックを開く度に

「このアプリケーションは、安全でない可能性のある ActiveX コントールを初期化
しようとしています。このファイルの提供元が信頼できる場合は[OK]をクリック
します。コントロールは現在のワークスペースの設定で初期化されます。」

のメッセージが表示されます。

WindowsMediaPlayerが原因であることは、調べてわかっているのですが、このメッ
セージを非表示にする方法がわかりません。

この表示がでないようにすることはできないでしょうか。

Sub Auto_Open()内に
Application.DisplayAlerts = False を書いても効果がありません。
よろしくご指導いただきたくお願いします。

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/01/03 10:33

https://www.moug.net/tech/exvba/0150081.html

こちらは無理でしたか？

この回答へのお礼

ありがとうございます。
本文にもかきましたが、どうもApplication.DisplayAlerts = False
の対象ではないようで、効果はないようです。

お礼日時：2022/01/03 11:28

No.2 回答者： Qchan1962 回答日時： 2022/01/04 10:47

こんにちは

以前、自身調べた記憶があり、有益な情報サイトが無いか検索しました

ことりがエクセルをちゅんちゅんするブログ
VBAで環境に依存しないWindowsMediaPlayerの使い方

https://www.excel-chunchun.com/entry/vba-windows …

ActiveXコントロールを使う時は、事前バンティング（参照設定）を使うべきではない。と言うのが近道のようですが、

検証していませんので確度は保証できません。

この回答へのお礼

いつもながら、おみごとなご指導ありがとうございます。
他のFunctionからも色々mediaplayerを制御したいので、ストレートにコピペでは動かないですが、何とか見通しができました。いつもありがとうございました。

お礼日時：2022/01/04 17:57