Konkurrierender Zugriff auf Dateien im Netzwerk
17.01.2006 10:50:50
tigersat
ich habe einige Dateien im Netzlaufwerk abgelegt, in der nur bestimmte Nutzer Zugriff haben.
Wenn aber ein Nutzer bereits eine Datei geöffnet hat, darf dieser damit arbeiten.
Solange diese Datei von ihm geöffnet ist, darf diese Datei aber nicht von den anderen Nutzern geöffnet werden.
In diesem Fall soll der Nutzer die Meldung erhalten, dass diese Datei von dem Nutzer gerade verwendet wird.
Ich habe für diese Vorgehensweise folgende Funktion mit deren Inhalt eingebaut:
Private Sub Workbook_Open()
Dim Full_Name, Workb As String
Full_Name = ActiveWorkbook.Path + "\" + ActiveWorkbook.Name
Workb = ActiveWorkbook.Name
On Error GoTo ErrorHandler
Open dateiname For Binary Access Read Lock Read As #1
Close #1
Exit Sub
ErrorHandler:
MsgBox "Die Datei wird von " + ActiveWorkbook.Author + " bearbeitet und ist daher gesperrt!" & Chr(13) & "Versuchen Sie es zu einem späteren Zeitpunkt noch einmal."
Application.Quit
End Sub
Trotzdem funktioniert das nicht.
Ist da irgendetwas, was ich übersehen habe?
Gruss
tigersat