Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nur nichtfarbige Zellen schützen

Gruppe

Blattschutz

Problem

Alle Zellen mit farbigem Hintergrund sollen als Eingabezellen nicht geschützt, alle anderen geschützt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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