Schreibschutz durch Makro aufheben
08.12.2006 12:47:13
Bernd
Ich würde gerne in eine Arbeitsmappe folgend Funktionalität einbauen:
Die Arbeitsmappe soll Schreibgeschützt sein wenn sie mit deaktivierten Makros geöffnet wird.
Werden die Makros beim Öffnen aktiviert soll der Schreibschutz aufgehoben werden.
Ich habe es bisher so versucht daß ich ein Modul eingefügt habe in das ich die auto_open Prozedur wie folgt reingeschrieben habe:
Sub auto_open()
ActiveWorkbook.Unprotect password:="Test"
End Sub
Das funktioniert leider nicht. Es kommt zwar zu keiner Fehlermeldung doch die Arbeitsmappe bleibt auch mit aktivierten Makros schreibgeschützt.
Danke für alle Tips und Anregungen im Voraus.
Gruß Bernd