Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub SchutzEin()
   Dim iWks As Integer
   For iWks = 2 To 13
      Worksheets(iWks).Protect
   Next iWks
End Sub

Sub SchutzAus()
   Dim iWks As Integer
   For iWks = 2 To 13
      Worksheets(iWks).Unprotect
   Next iWks
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Kalender