NT Benutzernamen

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 Lieferantenbestände()
'Abfrage ob Datei Bestand.xls geöffnet ist, wenn ja Abbruch
Dim Pfad As String
Pfad = "L:\depart\einkauf\verpackung\bestand.xls"
If DateiIstFrei(Pfad) = False Then
Dim office As String
office = "Die Datei BESTAND.XLS wird momentan benutzt von ?. Die Datei unbedingt schließen und Makro nochmals starten!"
MsgBox office, vbInformation, "ACHTUNG !!! "
Else
Workbooks.Open Filename:="L:\depart\einkauf\verpackung\Bestand.xls"
End If
End Sub