Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: Modul1

Sub SetProtect()
   Dim rng As Range
   Cells.Locked = True
   For Each rng In ActiveSheet.UsedRange.Cells
      If Not rng.Interior.ColorIndex = 6 Then
         rng.Locked = False
      End If
   Next rng
   ActiveSheet.Protect
End Sub

    

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