Vorweg solltet Ihr wissen das ich ein Greenhorn auf dem Bereich VBA bin.
Ich möchte zwei Makros haben mit denen ich alle sheets in einer Arbeitsmappe schützen oder freigeben kann. Wenn es Möglich ist, durch eine Textbox (oder sowas) damit ich das Passwort frei wählen kann. Unten habe ich zwei Makros aufgeführt, mit denen das möglich ist, das Problem ist nur ich muß das Passwort immer in VBA ändern (sehr umständlich).
Sub Blattschutz_ein()
'schützt alle Blätter dieser Datei
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Protect "Himmel"
Next Blatt
End Sub
Sub Blattschutz_aus()
'Blattschutz aufheben
Dim Blatt As Worksheet
For Each Blatt In Worksheets
Blatt.Unprotect "Himmel"
Next Blatt
End Sub
Danke für die Mühe.
MfG
Jörg