Thema: Nur nichtfarbige Zellen schützen

Home

Gruppe

Allgemein

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

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

Blattschutz per Userform ein und ausschalten	Userform soll Blattschutz regeln
Autofilter trotz Blattschutz	Blattschutz mit Abfragefenster
Blattschutz in Makro integrieren	Blattschutz vs. Gruppierung
Blattschutzpasswort in Zelle?	Blattschutz mit falschem Passwort entfernt
Allgemeine Frage zur Fehlerbehandlung	allgemeine Fragen zu einer Datenbank
Autofilter mit Blattschutz	Blattschutz bei Diagrammen
Makro trotz Blattschutz	Blattschutz
Probleme mit Blattschutz bei Excelvorlage	Benutzerdefinierte Ansicht nach Blattschutz
Benutzerdefinierte Ansichten trotz Blattschutz	Blattschutz auch bei Formeln aufheben
Gesperrte zellen trotz Blattschutz überschrieben	Gruppierung bearbeiten trotz Blattschutz
Blattschutz und Makros	Tastenkombination freigeben trotz Blattschutz
allgemein	Checkbox - LinkedCell - Blattschutz
Gruppierung trotz Blattschutz	speichern von Blattschutz änderungen
Fehlermeldung wenn Blattschutz aktiv	Blattschutz macht was er will
Fehler wegen Blattschutzautomatik??	Kopieren in Blattschutz
Makro für Blattschutz	Makro für Blattschutz mit Passwort
Blattschutz mit Kennwort als Makro	Blattschutz mit Kennwort als Makro
Blattschutz	Makro ausführen mit Blattschutz auf Tabelle 2
Autofilter trotz Blattschutz	Verwendung von Makro trotz Blattschutz
mit VBA Blattschutz	Listen und Blattschutz
Freigegebene Arbeitsmappe, Ansichten & Blattschutz	option field - Blattschutz
Blattschutz an Bedingung knüpfen	Blattschutz mit Passwort
Blattschutz	blattschutz
Blattschutz	allgemein: VBA lernen?
Hide-Methode-Allgemeine Frage	Blattschutz