Hallo zusammen
Ich arbeite mit Excel XP.
Gibt es eine Möglichkeit, mit einem VB Skript den Blattschutz aller Blätter einer Arbeitsmappe in einemal aufzuheben, oder neu zu setzen. Falls ja, wie würde so ein Skript aussehen?
Vielen Dank und liebe Grüsse,
Janosh
Moin,
ich habe mir das als Makro einfach aufgezeichnet und angepaßt. Sieht so aus:
Sub Alle\_freigeben()
'
' Makro1 Makro
' Hebt Blattschutz auf
'
'
For i = 1 To 11
ActiveSheet.Unprotect
ActiveSheet.Next.Select
Next
ActiveSheet.Unprotect
End Sub
Das funktioniert, obwohl Reinhard das sicher viel eleganter lösen kann.
Gruß
Kubi
super, vielen Dank!
Grüsse,
Janosh