Blattschutz über Makro setzen und löschen
30.04.2005 21:31:45
Wolfgang
Ich habe mal wieder ein Problem und hoffe Ihr könnt mir auch dieses mal wieder helfen.
Ich habe eine Arbeitsmappe mit 100 Tabellenblättern und möchte diese über ein Makro schützen und mit Kennwort versehen.
Gleichzeitig möchte ich mit diesem Makro, das der Anwender nur "nicht gesperrte Zellen auswählen" kann.
Bis jetzt habe das unten stehende Makro in Excel 97 bzw. 2000 benutzt um den Blattschutz zu setzen bzw. zu löschen.
Leider klappt das Makro nicht bzw. nicht immer.
Was muss ich an dem Makro ändern, das ich den Blattschutz und nur "nicht gesperrte Zellen auswählen" für Excel XP ausführen kann.
Sub BlattSchutzSetzen()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Protect Password:="Mein Passwort"
Next wks
End Sub
Sub BlattSchutzLöschen()
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.Unprotect Password:="Mein Passwort"
Next wks
End Sub
Jetzt schon mal vielen Dank im voraus.
Gruß aus Duisburg, Wolfgang