Option Explicit
 
Public Sub TestePfad()
	Dim sPfad As String
	sPfad = "C:\Eigene Dateien\Test.xls" ' Pfad ändern für Tests
	MsgBox DateiGeoeffnet(sPfad)
End Sub
 
Private Function DateiGeoeffnet(DerPfad As String) As Boolean
' Bei shared Workbooks, schreibgeschützten Mappen o.ä.. kann dies auch ein 
' falsch zurückgeben.
	On Error Resume Next
	Open DerPfad For Binary Access Read Lock Read As #1
	Close #1
	If Err.Number <> 0 Then
		DateiGeoeffnet = True
		Err.Clear
	End If
End Function