Supportnet Computer
Planet of Tech

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

Antwort von