VBA モジュール更新

Question

実現したいこと

xlsmを開いたら、モジュールを更新したい。

発生している問題・分からないこと

自席のPCでは、ファイルを開くとモジュールが更新されたのを確認できた。

しかし同じ社屋の、営業店のPCから開くとエラーが発生した。

エラーメッセージ

実行時エラー'1004’
'VBProject'メソッドは失敗しました：'_Workbook'オブジェクト

該当のソースコード

ThisWorkbookに記載

Private Sub Workbook_Open()
    Call UpdateModules
End Sub

以下、標準モジュールに記載

Public Sub UpdateMyModule()
    Dim basFile As String
    
    ' 修正版モジュールのパス
    basFile = "*:\***\***\shukei.bas"
    
    ' 既存のモジュールを削除
    On Error Resume Next
    ThisWorkbook.VBProject.VBComponents.Remove _
        ThisWorkbook.VBProject.VBComponents("shukei")
    On Error GoTo 0
    
    ' 新しいモジュールをインポート
    ThisWorkbook.VBProject.VBComponents.Import basFile ←この行が黄色くなっていた。
End Sub

試したこと・調べたこと

• teratailやGoogle等で検索した
• ソースコードを自分なりに変更した
• 知人に聞いた
• その他

上記の詳細・結果

ファイル名、パスを確認したが、記述間違いはなかった。

補足

特になし

Comments

[kikukiku]

回答頂いているように、各PCへの設定が必要になると思うのため、
自動アップデートはあきらめて、更新版を手動で取得するように
運用でカバーした方が現実的と思います。
※各PCへのセキュリティを弱める方法での運用は難しいのではないか？

[kikukiku]

Excelファイルそのものを自動で入れ替えるような実装なら、
各PCの設定を変更しなくても実行できるのではないでしょうか？
・EXCELファイル更新用のExcelファイルを準備する
・更新用Excelファイルは起動すると、バージョンチェック、自動更新を行い、
　実用Excelを起動する。

Answer 1

しかし同じ社屋の、営業店のPCから開くとエラーが発生した。

ファイル名、パスを確認したが、記述間違いはなかった。

実行時エラー'1004’
'VBProject'メソッドは失敗しました：'_Workbook'オブジェクト

恐らく実行環境における Excel のトラストセンターの設定において、[VBA プロジェクト オブジェクト モデルへのアクセスを信頼する]オプションが無効になっているからでしょう。

「営業店のPC」側でトラストセンターの設定を行なって下さい。