Blattschutz, mehrere Sheets
20.11.2002 08:44:16
Ullrich Sander
hab mir mit Hilfe des Archivs 2 Makros gebaut, mit denen ich
den Blattschutz für mehrere Blätter ein- und ausschalten kann.
Sub BlattSchutz()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Protect Password:="Mein Passwort"
Next wks
End Sub
Sub Aufheben()
Dim wks As Worksheet
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect Password:="Mein Passwort"
Next wks
End Sub
Wie erreiche ich es, daß ich das (unbedingt notwendige)Passwort nicht ins Makro schreiben muß, sondern daß ich es nach Aufforderung eingeben kann?
Schon mal Danke für Antworten!
Ullrich Sander
Anzeige