VBA で別のファイルのマクロを非アクティブ状態で実行したい

Question

VBA で別のファイルのマクロを非アクティブ状態で実行したいです。

呼び出される別ファイルのマクロは、自分がアクティブだったらエラー終了してしまいます。
VBA で非アクティブ状態のまま別ファイルのマクロを実行する方法はありますか？

---

呼び出すマクロ

Public Const ToolPath As String = "C:\Users\XXXXXX\Box\フォルダ"
Public Const ToolFile As String = "コード付与ツール.xlsm"
Public Const MacroName1 As String = "コード付与"

sub 更新マクロ()

' 付与ツールファイルを開く
  Workbooks.Open (ToolPath  & "\" & ToolFile, ReadOnly)
  DoEvents

'  開いたら最小化する
  ActiveWindow.WindowState = xlMinimized
  
' 対象シートをアクティブにする
  ThisWorkbook.Worksheets("予算1").Activate
  
' 付与ツールファイルのマクロを実行する。
  Application.Run "'" & ToolPath  & "\" & ToolFile & "'!" & MacroName1

end sub

---

別ファイルのマクロ

Sub コード付与

' 前略

  ' 実行時アクティブなシートがこのファイルであった場合のエラー処理
  Dim i As Integer
  For i = 1 To ThisWorkbook.Sheets.Count
    If ws.Name = ActiveWorkbook.Sheets(i).Name Then
      MsgBox "正しいワークブックで実行されませんでした。" & vbCrLf _
             & "対象データのワークブックを最前面にして、マクロを再実行してください。", vbCritical
      End
    End If
  Next i

' 後略

end sub

Answer 1

メソッドを呼び出すマクロを実行すると、ブックはアクティブ化されません。
https://docs.microsoft.com/ja-jp/office/troubleshoot/excel/workbook-not-activated

上記の情報を逆手にとって、Application.Run 直前に、
Application.ScreenUpdating = False
を突っ込んでみたら、非アクティブ状態で実行ができました！

Excelファイルオープン＞マクロ実行＞上書き保存のマクロを動かすマクロがはかどりそうです。
PowerAutomate も検討したのですが、今回はVBAでOKでした！

正解コード

呼び出すマクロ

'　略
' ツールファイルを開く
  Workbooks.Open ToolPath & "\" & ToolFile
  doevents

' このファイルの対象シートをアクティブにする
  ThisWorkbook.Worksheets("予算1").Activate

' スクリーン更新不可
  Application.ScreenUpdating = False

' マクロを実行
  Application.Run "'" ToolPath & "\" & ToolFile & "'!" & MacroName1
  DoEvents


' 略

Answer 2

提示のコードは省略されすぎていて、実行できません。

それ以前にワークシートの名前では、別ブックなら同じ名前になることもあるので、自身がアクティブかどうかの判定には使えません。

自身がアクティブかどうかの判定なら、ブック名で判定すればいいのでは。

' 実行時アクティブなブックがこのファイルであった場合のエラー処理
    If ThisWorkbook.Name = ActiveWorkbook.Name Then
        MsgBox "正しいワークブックで実行されませんでした。" & vbCrLf _
               & "対象データのワークブックを最前面にして、マクロを再実行してください。", vbCritical
        Exit Sub
    End If

Comments

[退会済みユーザー]

実行できないからわからない、なら、仕方ないですね

[hatena19]

実行できない質問のコードは無視して、
判定できるコードは回答しています。