VBSでExcelVBAにて対象ファイルを開くときに警告が出てくる

Question

実現したいこと

VBS実行時の警告を無視したい

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

VBSおよびExcelVBAに関する質問です。
下記のVBSを実行するとき、「B.xlsm」が他の端末で開いたままだと、"B.xlsmは編集のためロックされています"というような警告が表示されます。
この際、下記のようなことは可能でしょうか？
・案①：読み取り専用で開く
・案②："B.xlsmは編集のためロックされています"というような警告が表示される場合、VBSのxlApp.Run "OpenBFile"をSKIPするといったことはできますでしょうか？

エラーメッセージ

"B.xlsmは編集のためロックされています"

該当のソースコード

Dim xlApp, xlBook

' Excelを起動
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True

' Excelファイルを開く（パスは適宜変更）
Set xlBook = xlApp.Workbooks.Open("C:\パス\A.xlsm")

' マクロを実行
xlApp.Run "OpenBFile"

' Excelを終了
xlApp.Quit

Sub OpenBFile()
    Workbooks.Open Filename:="B.xlsm"
End Sub

試したこと・調べたこと

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

上記の詳細・結果

VBAの下記の前にエラーハンドリングを設定しても、VBSを実行すると同様の警告が出てきてしまいます。
Workbooks.Open Filename:="B.xlsm"

補足

"VBS" , "VBA"

Comments

[meg_]

VBSは非推奨になっているかと思いますがVBSでなければならないのでしょうか？

Answer 1

こんなかんじで

Dim fs 
Dim FilePath
Dim objExcel

Set fs = WScript.CreateObject("WScript.Shell")
FilePath=fs.CurrentDirectory+"\b.xlsm" '

Set objExcel = WScript.CreateObject("Excel.Application")
objExcel.Visible = True
Call objExcel.Workbooks.Open(FilePath,,True) '読み取り専用で開く
objExcel.DisplayAlerts = False
objExcel.Run "OpenBFile"

Comments

[kakii]

できれば、a.xlsmのマクロを実行したかったのですが諦めて、b.xlsmのマクロを直接実行するようにしました。ありがとうございました！

[yambejp]

あー、vbsで開いたaのマクロでロックされたbをエラーなく開くのですね。
ちゃんと読んでませんでした。失礼しました

Answer 2

案①：読み取り専用で開く

Application.DisplayAlerts プロパティを False にすると警告を表示しないで読み取り専用で開きます。

「Application.DisplayAlerts プロパティ」
https://learn.microsoft.com/ja-jp/office/vba/api/excel.application.displayalerts

案②："B.xlsmは編集のためロックされています"というような警告が表示される場合、、VBSのxlApp.Run "OpenBFile"をSKIPするといったことはできますでしょうか？

こんな関数を作って事前にチェックしてはいかがでしょう？

Function IsFileInUse(filePath As String) As Boolean
    Dim fileNo As Integer
    On Error Resume Next
    fileNo = FreeFile
    Open filePath For Binary Access Read Write Lock Read Write As #fileNo
    If Err.Number <> 0 Then
        IsFileInUse = True
        Err.Clear
    Else
        IsFileInUse = False
        Close #fileNo
    End If
    On Error GoTo 0
End Function