Schreibschutz per Makro
05.11.2003 13:26:26
Marc Richter
ich habe folgenden Code eingegeben:
Private Sub Workbook_Open()
ActiveWorkbook.ChangeFileAccess xlReadOnly
End Sub
Wenn ich das in "Diese Arbeitsmappe" kopiere und ausführe, dann soll die Datei eigentlich schreibgeschützt sein. Wenn ich aber etwas verändere und dann speichere, dann sagt er, das diese Datei schon vorhanden ist und fragt ob sie überschrieben werden soll. Selbst wenn ich ja sage und dann die Datei schließe und neu öffne, ist die Änderung nicht mehr vorhanden. Insofern funktioniert der Code. Ich möchte auch von vornherein unterbinden, das er speichert, auch wenn er nur so tut als ob. Er soll am besten eine Msgbox zeigen, in der darauf hingewiesen wird, das dies zur Zeit nicht möglich ist. Kann mir da jemand helfen?
Danke schonmal im Voraus! Auch vielen Dank an Russi, von dem ich den Code oben habe!!!
Gruß,
Euer Marc