Hallo ihr lieben,

ich wollte per vba-code die Arbeitsblätter sowie die Arbeitsmappe sperren.
Dazu habe ich der Funktion das Passwort als String übergeben und dabei einen Laufzeitfehler erzeugt. Das Blatt ist trotzdem gesperrt und lässt sich mit dem richtigen Passwort nicht entsperren.

Vielleicht könnt ihr mir helfen zu verstehen, welches Passwort jetzt gesetzt wurde.

Function Sperren(PW as String)
Dim ws as Worksheet

For Each ws in ThisWorkbook
ws.protect PW
Next
End function

So ungefährt sieht der Code aus, ich schreibe gerade am Handy und kann ihn deswegen nicht kopieren.

Aufgerufen wurde er mit:

Call Sperren("1234MB")

Es wurde nur das erste Tabellenblatt unwiederruflich gesperrt, ich habe auch versucht mit einer Funktion und ".Unprotect" das ganze rückgängig zu machen, funktioniert aber leider nicht.

Grüße
Johannes