Warten bis das Speichern einer Datei abgeschlossen
13.11.2015 11:46:43
Sabrina
ich habe eine Datei namens Daten.xls, auf die mehrere Rechner per Makro zugreifen, bearbeiten und speichern.
Es soll aber kein Speichern möglich sein wenn ein anderer gerade eben diese Datei am speichern ist da dann eine Fehlermeldung und ein Abbruch des Markos einhergeht.
Um dies zu verhindern habe ich mir gedacht einen "Speicherstatus" zu deklarieren.
Wenn keiner speichert ist der Wert 1 sobald einer speichert ist der Wert 2 und wenn man fertig ist wird er wieder auf 1 gesetzt.
Nur bekomme ich nicht hin dass wenn der Status auf 2 Steht solange geprüft wird bis der Wert auf 1 geändert ist und dann das Makro weiter ausgeführt wird.
Ich habe mal eine Beispiel Datei erstellt.
https://www.herber.de/bbs/user/101487.zip
In meinen normalen Daten ist sichergestellt dass die Datei Daten.xls auch geöffnet ist.
Oder hat jemand eine andere Idee dies umzusetzen.
LG
Sabbel
Sub Daten_speichern()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Windows("Daten.xls").Activate
Speicherstatus = Range("Speicherstatus")
If Speicherstatus = 2 Then
MsgBox "Bitte warten!"
End If
Speicherstatus = 2
'Das Makro wird durchgeführt
Speicherstatus = 1
End Sub