Ich habe in meinem Tabellenblatt 2Spalten, die ich mittels Gruppierung ein- und ausblenden kann, bzw. muss.
Ich will das Blatt aber sichern, weil in einigen Spalten Formeln drin sind, die ich nciht jeden Tag brauche und für mich somit komplizierter sind, wenn sie ohne Blattschutz überschrieben werden.....
Gibt es dazu eine Lösung? Habe dazu ein Beispiel (ohen jegliche Bedeutung) beigefügt.
Private Sub Workbook_Open()
Dim wks As Worksheet
'Quelle: Melanie Breden
For Each wks In ThisWorkbook.Worksheets
With wks
.Activate
.Protect password:="xxx", userinterfaceonly:=True
.EnableAutoFilter = True 'Autofilter
.EnableOutlining = True 'Gruppierung
End With
Next wks
End Sub
18.05.2018, 08:19 (Dieser Beitrag wurde zuletzt bearbeitet: 18.05.2018, 08:19 von Peter.
Bearbeitungsgrund: Nachtrag ergänzt
)
Hallo,
in der Datei kann ich keinen Code finden.
Ich habe jetzt noch einen anderen Code gefunden und es damit getestet:
Code:
Sub Workbook_Open()
ActiveSheet.Protect userinterfaceonly:=True
ActiveSheet.EnableOutlining = True 'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
Der Code muss in das Modul DieseArbeitsmappe' und funktioniert bei mir.
Nachtrag: Warum der andere Code nicht funktioniert kann ich dir leider nicht sagen - da sind meine VBA-Kenntnisse zu gering. Das müssten dir/uns die VBA-Experten erklären.
Vielen Dank. Ich habe den Code eingesetzut und es funktionierte immer noch nicht. Bie genauer Ansicht stellte ich dann fest, dass mit dem Code auch noch die Autofilter geschätzt sind, also habe ich die Spalten mit Filter versehen und dann hat es funktioniert!
Ich fasse es nicht, bei der Originaldatei funktioniert es nicht..... habe den Coede identsisch eingesetzt. Hat es damit zu tun, dass in dieser Datei zwei Tabellenblätter vorhanden sind?
beim ersten Code ist das egal, weil das per Schleife alle Blätter durchläuft.
Der 2. Code mach das mit der aktiven Tabelle, da liegt es an dir, die richtige zu aktivieren bevor du das Makro startest.
'ActiveSheet'
Zitat:dem ich die Datei in PN zukommen lassen kann? Ich kann diese Datei nicht im Forum veröffentlichen.
da ich VBA-mäßig eher bescheiden unterwegs bin kann ich dir an dieser Stelle leider nicht mehr weiterhelfen.
Du könntest aber die Datei bis auf ein paar Beispielsdaten anonymisieren und dann hochladen. Dann könnte man sich das am 'Original' ansehen und evtl. dadurch weiterhelfen.
