Option Explicit
Sub checkFileOpenViaScriptingRuntime()
Dim fso As Object
Dim sPath As String, sFile As String, sFullPath As String
sFile = "MeineExcel.xlsm"
sPath = "MeinPfadDerExcel\"
sFullPath = sPath & "~$" & sFile
With CreateObject("Scripting.FileSystemObject")
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlApp = Nothing
xlApp.Application.Quit
End With
End Sub