Supportnet / Forum / Tabellenkalkulation
Blattschutz aufheben
Frage
Hallooooo,
ich mal wieder...
Gibt es eine Möglichkeit, in einer Datei mit ca. 15 geschützten Tabellenblätter den Schutz mit einem Befehl/Makro(???) aufzuheben?
Habs über markieren und Extras versucht; klappt aber nicht.
Habt ihr noch ne Idee?
Grüße
Diskshut
Antwort 1 von Coolpix
hallo Diskshut,
mit dem ersten der u.a. Makros kannst du den Blattschutz aufheben und mit dem 2. wieder setzen.
Feedback fänd ich klasse
Greetings ;-)
mit dem ersten der u.a. Makros kannst du den Blattschutz aufheben und mit dem 2. wieder setzen.
Sub SchutzWeg()
Dim Blatt As Long
For Blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(Blatt).Unprotect Password:="DeinPasswort"
Next Blatt
End Sub
Sub SchutzNeu()
Dim Blatt As Long
For Blatt = 1 To ActiveWorkbook.Sheets.Count
ActiveWorkbook.Sheets(Blatt).Protect Password:="DeinPasswort", DrawingObjects:=True, Contents:=True, Scenarios:=True
ActiveSheet.EnableSelection = xlUnlockedCells
Next Blatt
End Sub
Feedback fänd ich klasse
Greetings ;-)
Antwort 2 von Diskshut
Hurraaaa..
vielen lieben Dank.
Funktioniert super...
vielen lieben Dank.
Funktioniert super...