offene Datei feststellen
26.01.2004 10:53:09
iven_s
habe folgendes Problem in einem Netzwerk. Wie kann ich feststellen ob eine Datei durch einen anderen User bereits geöffnet ist?
Habe selbst schon ein bischen gebastelt. Scheint mir aber nicht sehr elegant zu sein. Es kommt trotzdem noch die Meldung (Erinnerung dass die Datei jetzt verfügbar ist), die ich irgendwie unterdrücken möchte.
Sub öffnen()
For I = 1 To 5
Workbooks.Open D:\Datenbank.xls, , , , , , IgnoreReadOnlyRecommended = True
If Workbooks("Datenbank").ReadOnly Then
Workbooks("Datenbank").Close SaveChanges:=False
Else
GoTo weiter
End If
'Application.Wait (Now + TimeValue("0:00:01"))
Next I
MsgBox ("Die Datenbank wird gerade verwendet. Versuchen Sie es später noch einmal!")
Exit Sub
weiter:
End Sub
Danke!
iven_s
Anzeige