Blattschutz mit Kennwort setzen nach Makro

[Mitness]

Moin liebe Community,

Folgendes: Ich Copy Werte aus dem Arbeitsblatt1 in das Arbeitsblatt2 mittels einem Makro.

Bei Arbeitsblatt2 ist der Blattschutz aktiviert mit einem Kennwort (sagen wir das Kennwort lautet "Test").
Jetzt habe ich schon in meinem VBA Code vor dem Makro das er das Arbeitsblatt2 entsperrt (.unprotect) und nach dem ausführen es wieder sperrt (.Protect).

Leider setzt er nicht das Kennwort "Test" beim .Protect ,sondern versieht Arbeitsblatt2 mit dem Blattschutz ohne Kennwort.
Wie gehe ich jetzt vor, dass er das Kennwort, welches zum entsperren genommen wurde, auch wieder setzt?

Mit freundlichen Grüßen
Mitness

[RPP63]

Moin!
Auch die Worksheet.Protect-Methode kennt den Parameter Password:=

Gruß Ralf

[Mitness]

Vielen Dank für die schnelle Antwort!

Kannst du mir ein Beispiel VBA Code zeigen, das wäre sehr nett .

Lg

[Gast 123]

Hallo

Ralf hat deine Frage schon korrekt beantwortet, du benutzt vielleicht "ActiveSheet.Protect" im Code??  Dann bitte so ..
mfg  Gast 123

Code:

Sub Makro1()
ActiveSheet.Unprotect Password:="Test"
'Hier folgt dein Code!!
'.....................
ActiveSheet.Protect Password:="Test"
End Sub

[RPP63]

Nun, geht doch genau so wie die Entfernung des Schutzes.
Meist hilft auch die VBA-Hilfe, die man durch beherztes Drücken der Taste F1 benutzen kann:
https://docs.microsoft.com/de-de/office/...et.protect

[MisterBurns]

Blattschutz per VBA aufzuheben ist ein No-Go. Beim Öffnen der Mappe wird einmal der Blattschutz gesetzt in Kombination mit UserInterfaceOnly:=True, dann kann VBA problemlos bei gesetztem Blattschutz arbeiten.

[Mitness]

Vielen Dank an eure Antworten! Hat alles wie beschrieben geklappt :)

Liebe Grüße
Mitness