ich habe eine Datei mit einem Lese-/Schreibschutzkennwort belegt. Wie kann ich verhindern, dass diese Datei, wenn sie von einem anderen Nutzer im Netzwerk bearbeitet wird, nun mit Schreibschutz geöffnet wird?
Private Sub Workbook_Open()
If ThisWorkbook.ReadOnly Then
MsgBox "Datei ist schreibgeschützt und wird deshalb geschlossen!"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
Gruß Matthias