Blatt sortieren trotz Schutz, aber...

[Atlan]

Hallo,

Mit folgender Formel, kann ich ein Blatt in einer Mappe sortieren obschon sie geschützt ist.
Das funzt. wenn ich beim eingeben des Passwortes folgende Häckchen setze.
(Bild1)
das ganze funzt. auch, aber nur für 1 Blatt und nicht die ganze Mappe !!
Wie kriege ich die ganze Mappe so geschützt und doch kann ich alle Blätter sortieren ?
Dieses Problem habe ich gefunden als ich hier einem Kollegen helfen wollte.
Wie gesagt: EIN Blatt funzt. aber nicht die ganze Mappe !! ( im Moment 8 Blätter)

Sub Workbook_Open()

ActiveSheet.Protect userinterfaceonly:=True, Password:="xxx"

ActiveSheet.EnableOutlining = True 'für Gliederung

ActiveSheet.EnableAutoFilter = True 'für Autofilter

End Sub


* (Frage) Sheet durch Map oder so ersetzen?

[HKindler]

Hi,

du musst das in einer Schleife für jedes einzelne Blatt machen:

Code:

Sub Workbook_Open()
Dim Blatt as Worksheet
For Each Blatt in Me.Worksheets
    Blatt.Protect userinterfaceonly:=True, Password:="xxx"
    Blatt.EnableOutlining = True 'für Gliederung
    Blatt.EnableAutoFilter = True 'für Autofilter
Next Blatt
End Sub

[Atlan]

so klappt's aber nicht, was mache ich FALSCH ?
Danke.

[HKindler]

Hi,

keine Ahnung. Bei mir klappts.

Hast du das richtige Passwort statt "xxx" gesetzt? Ist der Code auch unter "DieseArbeitsmappe"?

[Atlan]

diese Fehlermeldung kommt beim Aufruf der Mappe
Danke dir im Vorraus schon mal für deine Mühe.

Laufzeitfehler 424

muss ich nicht jedes Blatt das (siehe Bild3.jpg) seinen Namen anpassen?
Password ist überall 3*x (xxx) klein geschrieben, habe es nochmal überprüft.

[HKindler]

Hi,

also bei mir funktioniert es. Lade doch mal eine Beispieldatei hier hoch, bei der der Fehler auftritt. Ansonsten kann die hier niemand mehr weiter helfen.

[Atlan]

 
Anhang test.xlsm
musste die Jahre 2019/2020/2021 und 2022 löschen, wegen Datenschutz.
Hier nur noch die Jahre 2023 und 2024 mit dem Blatt für die einzelnen Abfragen.
Beim Start erhalte ich sofort den Fehler 424
Danke für deine Mühe

[BoskoBiati]

Hi,

hast Du mal nachgesehen warum die Meldung kommt, sprich im VBA-Editor?

[HKindler]

Hi,

du hast vor Blatt keine gewöhnlichen Leerzeichen stehen, sondern ein geschütztes Leerzeichen (ASCII-Code 160). Lösch die mal weg.

Und den Code brauchst du nur in "DieseArbeitsmappe" in den Tabellenblättern kann er weg.