Blattschutz und Tabellen (Excel 2010)

Question

Guten Abend!

Ist ja schon ein wenig spät, aber vielleicht kann mir ja noch jemand
weiterhelfen :-)

Hier mein Problem:

Ich lege in Excel 2010 eine Tabelle (mit der Tabellenfunktion) an.

Diese markiere ich dann UND alle Zellen darunter mache im Menü
"Zellen formatieren" unter "Schutz" den Haken bei "Gesperrt" RAUS.

Dann aktiviere ich per VBA mit folgendem Code den Blattschutz:

For Each Blatt In Worksheets
Blatt.Protect AllowFormattingColumns:=True,
Password:=Range("Password")
Next Blatt

UND JETZT funktionieren die "automatischen" Funktionen der
Tabelle nicht mehr. Also das die Tabelle automatisch mit wächst.
Und in diesen Tabellen breiten sich festgelegte Formeln ja normaler
weiße in der ganzen Spalte aus. Auch das geht nicht mehr.

Gibt es da einen "Trick" wie das trotz Blattschutz trotzdem aktiviert
bleiben kann???

Schönen Gruß
Reiner

Answer 1

Hallo Reiner,

da ich von VB keine Ahnung habe, hab ich das jetzt mal über 'Blatt schützen' umgesetzt und dabei als Makro aufgezeichnet.

Offensichtlich reicht das Freigeben der Spalten alleine nicht, sondern es muss auch festgelegt werden, was damit im Einzelnen gemacht werden darf.

xxx.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True

Gruß
Kalle