Thema: Datei schreibgeschützt öffnen verhindern

Guten Abend,
ich würde gern eine Datei, die von mehreren Abteilungen genutzt wird, so umgestalten, dass, wenn die Datei von einem anderen User geöffnet ist, eine Message Box erscheint, die sagt: "Datei wird von einem anderen User benutzt. Bitte versuche es später noch einmal". Dann soll die Datei nicht geöffnet werden.
Die Funktion "Schreibgeschützt öffnen" sollte verhindert werden.

Ist das möglich?
Ich freue mich auf Eurer Fachwissen.
Gruß
Anke

Hi,

Das Öffnen der Datei wird sich nicht verhindern lassen, da ja erst dann eine Abfrage erfolgen kann.
Vielleicht wäre es ja eine Lösung für Dich, wenn die Datei gleich wieder geschlossen wird, wenn sie schreibgeschützt ist.
Das könnte dann so aussehen:
Die Datei wird geöffnet, und wenn sie schreibgeschützt ist, nach einer Messagebox gleich wieder geschlossen.

Private Sub workbook_open()

    If ThisWorkbook.ReadOnly = True Then

        MsgBox ("Datei wird von einem anderen User benutzt. Bitte versuche es später noch einmal")

        ThisWorkbook.Close

    End If

End Sub

Vielleicht hilft Dir das ja weiter