Hallo zusammen,
ich habe einen VBA Code, der aufklappen gruppierter Daten erlaubt trotz Blattschutz. Allerdings wird der Code auf alle Arbeitsblätter in der Excel angewendet. Ich brauche ihn aber so, dass er nur auf bestimmten Blättern angewendet wird. Die Challenge dabei ist, dass sich der Name der Blätter ändern kann. Ich kenne mich mit VBA nicht sonderlich gut aus und konnte auch mit Google das Problem nicht selbst beheben.
Ist es möglich den Code so anzupassen, dass ich ihn einfach anstatt in "diese Arbeitsmappe" in die jweiligen Blätter kopiere und er dann für das jeweilige Tabellenblatt funktioniert?
Hier der Code:
Sub Expand()
Dim i As Long
For i = 1 To Worksheets.Count
Sheets(i).Protect userinterfaceonly:=True, Password:="12345"
Sheets(i).EnableOutlining = True 'für Gliederung
Next i
End Sub
Vielen Dank für Eure Hilfe!
VG
Ralph
|