Excel Blattschutz

[Robby007]

Hallo DER_REDER,

ich weiß zwar nicht genau was du damit anfangen willst, aber dein Problem kann mit einem recht einfachen Makro gelöst werden.

Falls sich das Passwort im derzeit aktiven Blatt (in diesem Beispiel in der Zelle A1) befindet und auch dieses geschützt werden soll, kann folgender Code helfen:

Sub pwd()
passwort = ActiveSheet.Cells(1, 1).Value
ActiveSheet.Protect Password:=passwort
End Sub

Falls das Passwort in einem anderen Blatt abgelegt ist, müsste der Code etwas erweitert werden:


Sub pwd()
passwort = ActiveWorkbook.Sheets("Tabelle1").Cells(1, 1).Value
ActiveWorkbook.Sheets("Tabelle2").Protect Password:=passwortSub pwd()
End Sub


PS: Für's Aufheben des Blattschutzes einfach den Befehl Unprotect anstelle von Protect im Code verwenden.