VBA, Teilergebnisse, Spalten formatieren

Computer: Software & Programmierung Visual Basic
#1

Guten Tag,

hab folgendes Problem.
Versuche mittels VBA ein Blatt zu schützen (wenn ich das über Extras/Blattschutz mache, funktionieren Teilergebnisse nicht mehr):

Sub BlattSchutz()
Tabelle1.EnableOutlining = True
Tabelle1.Protect userinterfaceonly:=True
End Sub

leider kann ich dann die Spalten nicht mehr formatieren, das muss ich aber machen können.
Bitte um Hilfe wie ich das Problem lösen könnte!

#2

Hallo
Zuerst die Spalten Formatieren und Freigeben der Zellen, dann das Blatt Schützen mit protect und unprotect.

Grüsse Sebastian