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