Blattsch aufheben per Makro bei Diagrammen
22.08.2003 18:30:21
Christian
Ich habe ein xls-file mit 10 Tabellen und 10 Diagrammen in 20 separaten Blättern.
Bei allen Blättern wird der Blattschutz mit Passwort und per Makro geschützt. Dies geschieht mit dem untenstehenden Makro. Die Aufhebung des Passwortes passiert ebenfalls mit Makro und analogem Code.
Sub SchutzSetzen()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Protect "passwort"
Next wks
End Sub
Das Problem ist jetzt, dass diese Makro den Schutz der Diagramme nicht setzt bzw. aufhebt, sondern ich muss dieses immer manuell machen, was ziemlich nervt.
Im Archiv habe ich leider nichts gefunden. Kann mir jemand weiterhelfen,
vielen vielen Dank im voraus
Chris
Anzeige