Schreibschutz prüfen funktioniert nicht
02.10.2019 12:19:58
Philipp
Ich habe ein kleines Problem, bei dem ich nicht weiterkomme und hoffe, dass Ihr helfen könnt.
Ich habe eine Excel-Datei, die als Datenbank fungiert, und über mehrere User über eine andere Excel-Datei mit Daten "gefüttert" wird.
Um zu vermeiden, dass die Datei im schreibgeschützten Modus aufgerufen wird und beim (automatischen) Speichern einen Fehler verursacht, habe ich eine Schleife eingebaut, die beim Öffnen der Datei prüft ob sie schreibgeschützt ist und (falls ja) den Vorgang wiederholt.
Do Until Schreibschutz = "NEIN"
Workbooks.Open Filename:="PFAD etc."
If ActiveWorkbook.ReadOnly Then
ActiveWorkbook.Close
Else
Schreibschutz = "NEIN"
End If
Loop
Da die Datei nur kurz geöffnet, Daten ergänzt, die Datei gespeichert und wieder geschlossen wird, hat es bis dato auch recht problemlos funktioniert.
Aus irgendwelchen (mir unerklärlichen) Gründen "verschluckt" sich der Code in letzter Zeit allerdings und erkennt die Datei anscheinend nicht mehr als schreibgeschützt.
Gibt es noch andere Wege zu prüfen, ob eine Datei in Benutzung ist oder hat jemand eine Erklärung für das Phänomen?
Besten Dank für Eure Zeit und Hilfe!
Viele Grüße
Philipp