Thema: Blattschutz mit und ohne Passwort aufheben und setzen

StandardModule: Modul1

Sub ProtectA()
   ActiveSheet.Protect
End Sub

Sub ProtectB()
   ActiveSheet.Unprotect
End Sub

Sub ProtectC()
   Dim wks As Worksheet
   For Each wks In Worksheets
      wks.Protect
   Next wks
End Sub

Sub ProtectD()
   Dim wks As Worksheet
   For Each wks In Worksheets
      ActiveSheet.Unprotect
   Next wks
End Sub

Sub ProtectE()
   ActiveSheet.Protect "HWH"
End Sub

Sub ProtectF()
   ActiveSheet.Unprotect "HWH"
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Blattschutz