Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Blattschutz autom. aufheben und setzen
Frage
Hi
Ich möchte eine Datenbankabfrage sowie errechnete Zellen in einer geschützen Excel-Tabelle aktualisieren. Da es nicht funktioniert, wenn die
Tabelle geschützt ist, habe ich ein Makro geschrieben.
Sub Unprotect ()
Worksheets("Tabelle1").Activate
ActiveSheet.Unprotect (1)
Workbooks(1).Activate
ActiveWorkbook.RefreshAll
ActiveSheet.protect Password:="1", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Leider funktioniert dieses Makro nicht zusammen. Es kommt immer der Fehler, dass ich versuche Zellen
einer geschützten Tabelle zu aktualisieren. Wenn ich erst Unprotect & Refresh laufen lasse und anschließend erst Protect starte geht es. Dann
dachte ich, ich mache zwei Makros und lasse in einem 3. Marko Nummer 1 und 2 nacheinander laufen. Pustekucken. Geht auch nicht! Kann mir
jemand helfen, wie ich in einem Makro den Blattschutz aufheben - alles aktualisieren und den Battschutz wieder einstellen lassen kann. Es muß
anschließend mit dem Druck einer Taste alles ablaufen, da der Benutzer keinen Zugriff auf die Formeln haben darf!
ciao
Jim

