Dank deiner Hilfe hat das ja alles wunderbar geklappt. Nun habe ich aber noch ein Problem. In "Diese Arbeitsmappe" habe ich noch folgenden Befehl:
Private Sub Workbook_Open()
For I = Worksheets(1).Index To Worksheets.Count
With Worksheets(I)
.Protect UserInterfaceOnly:=True, Password:="pw"
.EnableOutlining = True
End With
Next
...
Benötige ich, damit gewisse Gruppierungen auch funktionieren. Hier müsste ich ja auch es wieder so haben, dass der Schutz bei dem einen Blatt anders ist. Kannst du mir wieder helfen? Danke!