Supportnet Computer
Planet of Tech

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.

 
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...