Excel: Blattschutz - My-HelpForum.de

*kerstin · #1 (**permalink**) 20.10.2005, 23:19

Hallihallo,

habe gerade ein Excel Dokument mit über 50 einzelnen Tabellen, die ich - jede für sich- geschützt haben möchte. Leider konnte ich nicht herausfinden, wie das funktioniert.
Unter Extras - Schutz - Arbeitsmappe schützen kann ich nicht alle einzelnen Blätter
schützen. Ich möchte darauf verzichten über 50 Blätter einzeln schützen zu müssen.

Hat denn jemand einen Tipp für mich ?
Bitte !!!!!!!!

mfg Kerstin

Reen · #2 (**permalink**) 21.10.2005, 02:16

Ein Macro erstellen? Vielleicht hat sich da ja hier schon jemand reingearbeitet... sonst, wenn es gar nicht anders geht schaue ich mal wenn ich Zeit habe!

Reen · #3 (**permalink**) 21.10.2005, 02:20

Geht sogar ganz einfach:
[code:1]Sub Makro1()

Sheets("Tabelle1").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle2").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Tabelle3").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub[/code:1]

usw. halt eben für jede Tabelle. Nun könnte man da sicherlich noch einen Counter einbauen usw.[/code]