habe eine Datei mit 17 Tabellenblättern, alle gesperrt. In 3 von ihnen sind Gruppierungen drin, welche mit folgendem Makro (unter Arbeitsmappe) trotz Sperre trotzdem funktionieren:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True, Password:="PASSWORT"
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Starte ich meine Datei und komme direkt in ein Tabellenblatt mt Gruppierung, kann ich diese trotz Zellenschutz auch anwenden. Wenn ich die Tabellenblätter wechsle, und in einem anderen Tabellenblatt mit Gruppierung lande, kann ich die Gruppierung (+/-) nicht mehr nutzen. Müsste an folgendem Makro zum Wechseln der Tabellenblätter über Schaltflächen liegen!?!?:
Sub Schaltfläche1_KlickenSieAuf()
If ActiveSheet.Index = 1 Then
Sheets(Sheets.Count).Activate
Else
Sheets(ActiveSheet.Index - 1).Activate
End If
ActiveSheet.Calculate 'Blatt neu berechnen
End Sub
Sub Schaltfläche2_KlickenSieAuf()
If ActiveSheet.Index = Sheets.Count Then
Sheets(1).Activate
Else
Sheets(ActiveSheet.Index + 1).Activate
End If
ActiveSheet.Calculate 'Blatt neu berechnen
End Sub
Bin dankbar für Vorschläge! Die Makros hab ich nicht selber geschrieben (danke an die Autoren).
Grüße
Ger