VBSでExcelファイルを開き、Excelファイル内のプログラムからまた別のExcelファイルを開くとアラートが出る

Question

前提

マクロが組まれたExcelがあり、そのマクロを毎晩実行するために、
タイムスケジューラでVBSからExcelを起動しています。

Excel内のマクロには、指定したフォルダ内のファイルを一つずつ開いてPDF変換するという処理が組まれています。
（誰かがファイルを開いていることもあるので、
Application.ScreenUpdating = False　
で全部アラートはオフにしています。）

現在起きている事象

手動でExcelファイル内のマクロを実行した際に、アラートが出ないのですが、VBSから実行すると誰かがファイルを開いていると「読み取り専用で開きますか？」とアラートが出て処理が止まってしまいます。

目標

VBSから実行した際もアラートが出ることなく処理を完了したい

該当のソースコード

Const WB_PATH = "D:\hoge.xlsm"
Const PROC_NAME = "makePdf"
Dim excelApp
Set excelApp = CreateObject("Excel.Application")

With excelApp
	.Visible = True
	Dim wb
	Set wb = .Workbooks.Open(WB_PATH)
	.DisplayAlerts = False
	.Run wb.Name & "!" & PROC_NAME
	.DisplayAlerts = True
	wb.Save
	wb.Close
End With

excelApp.Quit

 '処理
    Dim strFile As String
    Dim objOffice As Object
    strFile = Dir(folderPath & "\" & "*.*") 'ファイル確認
    Application.ScreenUpdating = False
    
    Do Until strFile = ""
        If Get_Extension("\" & strFile) = "xls" Or Get_Extension("\" & strFile) = "xlsx" Then
            Set objOffice = Excel.Application
            With objOffice.Workbooks.Open(folderPath & "\" & strFile, UpdateLinks:=3)
                If .ReadOnly = True Then
                    .Close savechanges:=False
                Else
                    .Close savechanges:=True
                End If
            End With
        End If
        strFile = Dir() '次のファイル確認
    Loop

PDF変換はなしで開いて閉じるだけのコードを記載しています。（これでアラートが出ます。）

どうかご教授お願いいたします。

Answer 1

深夜に動かすプログラムで誰かが開きっぱなしだと途中でコケてしまうので、
PDF変換する対象のフォルダ内のExcelに、10分操作がなければ自動で閉じるプログラムを埋め込んで対応することにしました。

Answer 2

https://vbabeginner.net/how-to-open-workbook/#keni-toc7

IgnoreReadOnlyRecommended:=Trueを付けて開いてみては？

Comments

[nobu.777]

コメントありがとうございます。

VBA側にもVBS側にもExcelファイルを開くときに、
IgnoreReadOnlyRecommended:=True
を追記したのですが、変わりませんでした。

深夜に動かすプログラムで誰かが開きっぱなしだと途中でコケてしまうので、
対象のフォルダ内のExcelに、10分操作がなければ自動で閉じるプログラムを埋め込んで対応しようと思います。
（量が多くて面倒ですが。。。）

ありがとうございました！！