WindowsUPDATEを行ったら 「エラー438 オブジェクトはこのプロパティまたはメソッドをサポートしていません」 のエラーでOLEオブジェクトが使えなくなった

Question

Windows7上で、Excel2010で作ってあったVBAマクロ(*.xlsmで保存）が、ある日突然動かなくなりました。

溜まっていたWindowsUpdateの更新を行った翌日からです。

「エラー438　オブジェクトはこのプロパティまたはメソッドをサポートしていません。」

というエラーです。

ソースは下記の通りで、ActiveXコントロールのコンボボックスにcmbMenuという名前を付けています。

With ActiveWorkbook.Worksheets(1).cmbMenu　←　ここで出る

    .Clear

    For i = 2 To j

        .AddItem ActiveWorkbook.Worksheets(i).Name

    Next i

    .ListIndex = 0

End With

With ActiveWorkbook.Worksheets(1).OLEObjects("cmbmenu")

と変えてみても同じです。

debug.Print ActiveWorkbook.Worksheets(1).OLEObjects("cmbMenu").Name

だと、cmbMenuと出ます。

ちなみに、新たにActiveXコントロールを新たに挿入しようとすると、どのコントロールも

「オブジェクトを挿入できません」と出ます。

また、デザインモードでそのコンボボックスのプロパティを見ようとしても、Workseetオブジェクトのプロパティが出てきます。

勝手に仕様が変わってしまうのは非常に困るのですが、何か対処策はないでしょうか？

同じようなケースに遭遇しておられる方は居ませんか？

"※ モデレーター注 : 情報収集をしやすくするため、タイトルにエラーメッセージを追加させていただきました。

変更前スレッドタイトル : WindowsUPDATEを行ったらOLEオブジェクトが使えなくなった "

Answer 1

​hatsuzo さん、こんにちは。

マイクロソフト コミュニティをご利用いただき、ありがとうございます。

Windows Update 後から OLE オブジェクトが動作しなくなってしまったということなのですね。

もしかすると 【 こちらのスレッド 】 に投稿された状況と同じで、アップデートが影響しているという可能性があるかもしれません。

上記スレッドでもコメントがありますが、 MSForms.exd ファイルを削除してみる方法が有効かもしれません。

12/16 に近藤が紹介している以下の情報の対処方法をお手元で試してみてはいかがでしょう。

参考: ActiveX カスタム Office ソリューションで MS14 082 セキュリティ更新プログラムをインストールした後、「オブジェクトを挿入できません」エラー

もし、手順などで不明点がありましたら、お気軽に質問をしてみてくださいね。

試してみた結果の返信をお待ちしています。

Answer 2

​hatsuzo さん、こんにちは。

ご返信、ありがとうございます。

MSForms.exd の削除で症状が解消できたのですね。

問題が解消できてよかったです !

紹介させてもらった方法で回避できたのであれば、おそらくセキュリティ更新プログラムが影響していた症状だと思われるので、 ActiveX コントロール自体の問題ではなさそうです。

少し様子を見ていただいて、もし動作に変化が見られるようなことがあれば、またお気軽に返信をしてみてくださいね。

Answer 3

有難うございました。

MSForms.exd の削除により、無事解決しました。

以前も同様のことがあったような記憶があります。

ActiveXコントロールはあまり使わないほうがよいのかもしれないですね。