Blattschutz aufheben und setzen
13.01.2004 12:41:59
mic
ich bin schier am Verzweifeln:
Nach einem Button-Klick soll das Arbeitsblatt entschützt werden, verschiedene Zellformate geändert und dann der Blattschutz wieder gesetzt werden - eigentlich ganz einfach mit den Makros:
ActiveSheet.Unprotect 'ggf. mit Passwortabfrage Password:=""
Aktion
ActiveSheet.Protect Password:=""
oder
Worksheets("Tabelle1").Unprotect
etc.
Leider bekomme ich jedesmal die Meldung:
"Laufzeitfehler '1004'
Die Unprotect-Methode des Worksheet-Objektes ist fehlerhaft"
Wo ist der Haken?
vielen Dank im Voraus
mic