VBSからのエクセル起動について

質問

マクロを含んだBook（自作したもの）の起動時、起動直後の「セキュリティの警告画面」を、マクロセキュリティ中の状態で、表示させないで起動するためにVBSからの起動起動を考えています。いくつかウィンドウを開いた状態で、下記のコードにてBookを開くと、最前面に表示表示してくれません。対処方を教えてください。

Option Explicit
Dim objExcelApp, strPath
Const BookName = "Book1.xls"

Set objExcelApp = CreateObject("Excel.Application")

With WScript
strPath = Replace(.ScriptFullName, .ScriptName, "")
End With

objExcelApp.Workbooks.Open strPath & BookName, False, False

Set objExcelApp = Nothing

＊VBSはまだ勉強不足で、なんとなくこのコードの意味も解る程度です。VBAに関しては、一通り基本的なことはできます。よければ、このコードの詳しい意味も教えてください。また、他の対処法があれば教えてください。よろしくお願いします。

回答No.1

watabe007

こんばんは
>下記のコードにてBookを開くと、最前面に表示表示してくれません。
最前面に表示どころか、表示じたい、されないのでは
>Set objExcelApp = CreateObject("Excel.Application")
objExcelApp.Visible = True

補足

回答ありがとうございます。下記のようにワークブックのOPENイベントに記述し、UserForm1のみ表示するようにしています。

Private Sub Workbook_Open()

If Workbooks.Count = 1 Then
Application.Visible = False
Else
Application.Windows("Book.xls").Visible = False
End If

UserForm1.Show False

End Sub