AW: Gruppierung erzeugen trotz Blattschutz
29.06.2007 13:25:49
Jörg
Moin,
zuerst ist die Frage, ob Du Gruppierung meinst, also daß links dieses kleine + erscheint, oder ob Du Zellen verbinden willst.
Zum Verbinden von Zellen, wenn Du das z.B. über einen Button machen willst, kannst Du in der Art hier vorgehen:
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ("Passwort")
Range("A3:A5").MergeCells = True 'Zellen A3 bis A5 werden verbunden
ActiveSheet.Protect Password:="Passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Im Prinzip löst Du hiermit erst den Schutz auf, verbindest die Zellen und aktivierst den Schutz wieder.
Ähnlich siehts bei der Gruppierung aus:
Private Sub CommandButton1_Click()
ActiveSheet.Unprotect ("Passwort")
Range("A3:A5").Rows.Group 'Zellen A3 bis A5 werden in Zeilen gruppiert
ODER
Range("A3:A5").Columns.Group 'Zellen A3 bis A5 werden in Spalten gruppiert
ODER
Rows("12:17").Group 'Zeilen 12 bis 17 werden gruppiert
ODER
Columns("A:D").Group 'Spalten A bis D werden gruppiert
ActiveSheet.Protect Password:="Passwort", DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Vielleicht hilfts weiter...
Ciao, Der Jörg