Hallo Ihr Lieben:

ich brauche ein Makro, das bei mehreren Registern (bis zu 18 in einer Datei) den Blattschutz ein oder ausschaltet.
War schon fleissig und habe folgendes gefunden

Blattschutz einschalten:
Option Explicit
Dim WsTabelle As Worksheet
Sub SCHüTZEN()
For Each WsTabelle In Sheets
WsTabelle.Protect
Next WsTabelle
End Sub

Blattschutz ausschalten:
Sub ENT_SCHüTZEN()
For Each WsTabelle In Sheets
WsTabelle.Unprotect
Next WsTabelle
End Sub

Funktioniert alles tadellos !

Jetzt habe ich nur noch ein Problem: ich möchte, dass das ganze, wie sonst beim Blattschutz auch, mit Passwort geschützt ist, d.h. nach Ausführen des Makros sollen nur noch die freigegebenen Zellen bearbeitbar sein und das aufheben des Blattschutzes soll nur über Passwort möglich sein.

Habe im Forum dazu auch das ein oder andere zum Passwort gefunden, aber da ich nicht wirklich fit bin in VBA ist es mir noch nicht gelungen, den Passwortschutz zu integrieren oder entsprechendes in die o.g. Module zu kopeiren....
Wer ist so nett und kann helfen ??

Besten Dank !
Alina