Arbeitsmappe freigeben
19.05.2003 19:36:22
Gönke Söltner
Die Arbeitsmappe ist freigegeben, der User benutzt ein Makro mit vielen Formularen und Daten, wenn er jetzt speichert, und ein anderer User tut das auch gibt es die Fehlermeldung 1004 diese Datei wurde von XY durch Speichern gesperrt, bitte probieren Sie es später nochmal. Jetzt sind aber alle Daten in den Formularen verloren. Habe versucht durch before save den Fehler abzufangen und mit einem Timer nach 60 s die Speicherung zu wiederholen. Aber leider gelingt mir dies nicht. Er verzweigt nicht in die Fehlerroutine. Es nützt auch nicht abzufragen ob noch jemand in der Datei ist, denn das soll ja möglich sein, aber nicht das gleichzeitige speichern. Also wenn mir da jemand helfen kann wäre das echt super.
Grüße
Gönke
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "jetzt wird gespeichert"
If ActiveWorkbook.MultiUserEditing Then
MsgBox "noch jemand arbeitet gerade an dieser Mappe"
End If
On Error GoTo warten
Exit Sub
warten:
MsgBox "Wartezeit"
starttime = Timer
Do While Timer < starttime + wartezeit
DoEvents
Loop
Call Speichern
End Sub