Excel Makro – Blattschutz entfernen für alle Tabellenblätter per VBA

Windows 10 – Bios von RAID zu AHCI
31. Januar 2018
Office 365 – Download bricht ab durch Sophos UTM
30. Mai 2018

Aufheben:

Sub BlattschutzAufheben()
 For Each Blatt In ActiveWorkbook.Worksheets
  Blatt.Unprotect Password:="MeinPasswort"
 Next
End Sub

Setzen:

Sub BlattschutzSetzen()
 For Each Blatt In ActiveWorkbook.Worksheets
  Blatt.Protect Password:="MeinPasswort", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
 Next
End Sub

Mögliche Parameter:

https://msdn.microsoft.com/de-de/vba/excel-vba/articles/worksheet-protect-method-excel

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.