システムエラー「H80004005」

Question

マクロ含むエクセルを開こうとするとシステムエラー「H80004005」が出てマクロが実行できません。

windows10　64ビット

office365

いずれも最新バージョンです

ネットで調べると2020年ころの記事で特定のWindowsアップデートをすると発生するとのことがありました

しかし、2年も前のことなのでそれはすでに解決済みなのではないかと

もし、Windowsアップデートを戻して解決したなど経験のある方教えていただきたいです

よろしくお願いいたします。

Answer 1

ルームオークさん、こんにちは。

以下のスレッドで Office のバージョンを 2206 から 2205 に戻す事で解決されたとありました。

◆ 2022/7/20からユーザーフォームを追加したxlsmファイルを保存し、再度開くと「システムエ - Microsoft コミュニティ

クイック実行の場合、以下の方法で戻すことが出来ます。

1. コマンド プロンプトの起動

画面左下の検索ボックスに「com」と入力してコマンドプロンプトを「管理者として実行」で起動します。

2. Office を以前のバージョンに戻すコマンドを実行

起動したコマンド プロンプトに以下の文字列を選択してコピーして貼り付け、Enter キーを押下して実行し、しばらく待ちます。

※ここでは、バージョン 2205 (ビルド 15225.20288)  に戻してみます。

[参考]Microsoft 365 Apps の更新履歴 (日付別の一覧)

コマンドプロンプトに以下の文字列をコピーして貼り付け、Enter キーを押します。

cd %programfiles%\Common Files\Microsoft Shared\ClickToRun

次に、以下の文字列をコピーして貼り付け、Enter キーを押します。

officec2rclient.exe /update user updatetoversion=16.0.15225.20288

Enter キーを押すと「Office の更新プログラムをダウンロードしています」の画面が出るので、起動している Office 製品は終了して5分位待ちます。

3. 更新を無効にする

戻した後は Office アプリを起動し [ファイル] タブ > [アカウント] >  [更新オプション]  > [更新を無効にする] を選択して更新を無効にします。

※バージョンの戻し方は、以下の記事もご参考になさって下さい。

・Office 365(2016)をロールバックする - Microsoft コミュニティ

---

＜ロールバックをする前に（※クイック実行版の場合は飛ばして大丈夫です。）＞

※お使いの Office がストアアプリ版の場合はデスクトップ版に変更しておく必要があります。

お使いの Office がストアアプリ版かデスクトップ版かは、Excel などを起動し [ファイル] タブ > [アカウント] のバージョン情報で確認出来ます。

　Office製品を確認する方法

・バージョン XXXX (ビルド XXXX.XXXXX)  Microsoft Store →ストアアプリ版

・バージョン XXXX (ビルド XXXX.XXXXX)  クイック実行→デスクトップ版

ストアアプリ版の場合は、以下のページを参考に Office をアンインストールして「＜参考＞ デスクトップ版 Office として再インストールする」を参照の上、デスクトップ版として再インストールします

　ストアアプリ版 Office の再インストール方法

---

お試しになった結果の返信お待ちしております。

Answer 2

Makapu　様

ご丁寧なアドバイス心から感謝申し上げます。

アドバイス通りロールバック（2206⇒2205）にバージョンを落としたらうまくいきました。

マクロも生きていて本当に助かりました。

本当にありがとうございました。

Answer 3

こんにちは。

エラーメッセージ 「システムエラーです:&H8004005(-2147467259)エラーを特定できません」より、2020年に発生した日本語を含む外部参照を含む VBA が読み込まれない問題と同じ問題が再発した可能性が高そうです。

＜当時のOffice サポートチームの方が上げてくれた記事＞

◆2020 年 4 月の更新適用後、日本語を含む外部参照を行う VBA が読み込まれない問題 (microsoft.com)

同様のエラーは今後も再発を繰り返す可能性があります。

また日本語環境でしか発生しない不具合の為、修正パッチが配信されるまで時間がかかる事が考えられます。

可能な場合は、上記サポート記事にあります暫定回避策（ライブラリ名に日本語を使用しない等）を施すことをお勧めいたします。

----上記記事より一部引用--------------------------

4. 暫定回避策

発生パターンに応じて、以下の方法をお試しください。

• ライブラリ名を英数字のみに変更して、現象が発生しない環境に変更後の内容で登録し、ライブラリを参照する VBAProject を再コンパイルする
  (実行環境に登録されているライブラリ情報が日本語のままでも、上記対応直後のファイルは動作します。ただ、ファイルの上書き保存などにより実行環境で再コンパイルが行われると再度現象が発生しますので、実行環境のライブラリ情報も英数字の名称で再登録することをお勧めします。 )
• 参照先の Excel ファイル名、または格納パスを英数字に変更し、現象が発生しない環境でこの Excel ファイルへの参照設定を再設定する
• 現象が発生しない環境で Excel ファイルを参照するファイルを開き、Excel マクロ有効ブック (.xlsm) 形式や Excel アドイン (.xlam) 形式で保存する (Excel 97-2003 形式でのみ発生するシナリオで有効)

----引用終わり--------------------------

※上記 Msdn フォーラムの Office サポートチームの記事は 2021 年6月で打ち切られており、今後日本語環境独自で発生する不具合に対する有用な記事の提供がないという点から、日本ローカルの Office のサポートは厳しい状況にあると思います。

Answer 4

ルームオークさん、こんにちは。

以下のスレッドで 最新の Office の更新プログラム バージョン 2207 ビルド 16.0.15427.20166 で解決されたとコメントをいただきました。

・2022/7/20からユーザーフォームを追加したxlsmファイルを保存し、再度開くと「システムエ - Microsoft コミュニティ

更新を無効にしている場合は、更新を有効にして[今すぐ更新]で 最新の更新プログラムを取得し、改善されたかご確認ください。

Excel などを起動して、[ファイル] > [アカウント] > [更新オプション] > [更新を有効にする] > [今すぐ更新]で 最新の更新プログラムを取得します。

・Microsoft 365 Apps の更新履歴 (日付別の一覧)

Answer 5

こんにちは

提供されたエラーコードはWindows Updateの問題に関連していますが、問題を解決するには、Windows 10インプレースアップグレードを実行して問題を解決する必要があります。「インプレースアップグレード」プロセスは、オペレーティングシステム上の破損または欠落したシステムファイル、レジストリ設定、およびその他の設定を置き換えます。
これは、ドライバの問題、システムエラーを修正するのに役立ち、オペレーティングシステムやサウンドなどの他のハードウェア用の最新のアップデートをインストールします。

「個人用ファイルを保持する」を使用してもファイルを失うことはありませんので、心配する必要はありません。
システムは自動的に再起動し、最新のアップデートを自動的にインストールしてから、問題自体を修正します。

手順は次のとおりです。

• まず、https://www.microsoft.com/en-us/Software-download/Windows10 に行く
• 「今すぐツールをダウンロード」ボタンをクリックしてください
• ダウンロード中に、ポップアップウィンドウが表示され、「実行」を選択できます
• ダウンロード後、Windows Mediaツールが自動的に実行され、「はい」をクリックしてコンピュータ上のツールを許可することができます。
• コンピュータでツールを承認した後、それはマイクロソフトのライセンス条項にリダイレクトされます

「同意する」を選択して、Windows 10インプレースアップグレードプロセスを開始できます。

• [同意する]をクリックすると、ツールは「何をしたいのですか?

「このPCを今すぐアップグレードする」を選択し、「次へ」>クリックできます。

• 「このPCを今すぐアップグレードする」オプションを選択すると、ツールはWindows 10のダウンロードを開始します。これには、インターネットの速度に応じて30〜60分かかります。
• ツールがWindows 10のダウンロードを完了すると、ファイルやアプリを保持するオプションが表示されます。

注: ファイルやアプリが破損したり削除されたりしないように、「個人用ファイルとアプリを保持」が選択されていることを確認してください。

• このツールは、Windows 10をダウンロードした後にインストールする準備ができていることも表示し、「インストール」をクリック>きます。
• インストールを選択した後、ツールはWindows 10インプレースアップグレードプロセスを開始します。

このプロセス中に、インストールが成功するためにコンピュータが数回再起動します。また、インターネットの速度とコンピュータのパフォーマンスの速度にも依存します。

• インストールが完了すると、それはあなたが従うことができる画面上の指示が表示されます。
• 画面上の指示に従った後、お使いのコンピュータはセットアップの準備ができており、問題が解決したかどうかをテストまたは確認することができます。

参考: http://aka.ms/W10InplaceUpgrade2 このオプションが機能しない場合は、

次の手順は、Microsoft サポート技術者に連絡して、高度なツールとトラブルシューティング手順を実行して問題を解決してもらうことです。
あなたはこのサポートリンクからそれらに連絡することができます: https://support.microsoft.com/en-us/contactus

よろしくお願いいたします
オロドゥク

この回答は自動翻訳されています。文法や表現の誤りが発生した場合はご容赦ください。