mehrere Blätter auf einmal schützen
01.10.2015 17:51:27
Sven
ich kapier´s nicht.
Ich möchte in meiner Arbeitsmappe alle Blätter auf einmal mit Blattschutz versehen und auch wieder aufheben.
Ich habe diesen gefunden:
Option Explicit
Dim WsTabelle As Worksheet
Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub
Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub
Aber ich kann ihn einfach keiner Schatfläche zuordnen.
Kann mir jemand mit einem Beispiel weiter helfen?
Vielen Dank
Sven