ich frage mit einer Funktion ab, ob einige Dateien in Benutzung sind und lasse es mir anzeigen. Vielleicht weiß jemand von Euch wie ich das Makro erweitern muss, damit ich auch den angemeldeten User bekomme, bei dem die Datei gerade in Verwendung ist. Hat jemand von Euch hierfür eine Iddee oder Lösung?
Danke und Viele Grüße
Marco
Hier mein bisheriger Code:
Aufruf in Userform:
Public Sub ZVDbtn_Click()
Dim PfadZVD as String
Dim UsedBy as String
PfadZVD = "C:\ZVD.xls"
If IsFileLocked(PfadZVD) = True Then
ZVDbtn.BackColor = RGB(251, 2, 0)
'Spätere Message: "Die Datei ist in Benutzung durch" & UsedBy
Else
ZVDbtn.BackColor = RGB(3, 199, 97)
End If
End Sub
Funktion:Public Function IsFileLocked(strFileName As String) As Boolean
On Error Resume Next
Dim FF As Integer
FF = FreeFile
'An error occurs if the document is currently open.
Open strFileName For Binary Access Read Lock Read As #FF
Close #FF
'Check for Error
If Err.Number Then
Err.Clear
IsFileLocked = True
End If
End Function