[flinx]

Hmm.
Aus http://www.google.com/search?hl=de&i...ge%F6ffnet&lr= 2. Link

Hallo Thomas,

hier ein etwas anderer Lösungsansatz. Mit der nachstehenden Function kannst Du per Makro abfragen, ob eine bestimmte Datei bereits von einem anderen Anwender innerhalb eines Netzwerkes geöffnet ist und dann entsprechend reagieren.

Option Explicit
Function DateiIstFrei(sDateiname As String) As Boolean
Dim hFile As Integer
On Error Resume Next
hFile = FreeFile()
Open sDateiname For Random Access Read Lock Read Write As #hFile
If Err Then
DateiIstFrei = False
Else
DateiIstFrei = True
End If
Close #hFile
End Function

Sub Test()
Dim sDateiname As String
sDateiname = "C:\Temp\Mappe1.xls"
'DateiIstFrei-Function aufrufen
If DateiIstFrei(sDateiname) Then
Workbooks.Open FileName:= _
"C:\Temp\Mappe1.xls"
Else
MsgBox "Datei ist bereits in Gebrauch!"
End If
End Sub

Viel Erfolg wünscht
WernerB.

hth