Wie schützt oder sperrt man Zellwerte basierend auf ihrer Hintergrundfarbe?
Angenommen, ich habe ein großes Arbeitsblatt, und mehrere Zellen sind mit unterschiedlichen Hintergrundfarben gefüllt. Nun möchte ich bestimmte Zellen basierend auf ihrer Füllfarbe sperren oder schützen – beispielsweise alle Zellen mit rotem Hintergrund. Gibt es effiziente Methoden, um diese Aufgabe in Excel zu bewältigen?
Schützen oder Sperren von Zellwerten basierend auf Hintergrundfarbe mithilfe von VBA-Code
Schützen oder Sperren von Zellwerten basierend auf Hintergrundfarbe mithilfe von VBA-Code
Beispielsweise möchten Sie alle roten Zellen sperren und schützen, um zu verhindern, dass andere Benutzer deren Werte ändern. Der folgende VBA-Code erledigt diese Aufgabe für Sie. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modul-Fenster ein.
VBA-Code: Schützen oder Sperren von Zellwerten basierend auf Farbe:
Sub lockcellsbycolor()
'Updateby Extendoffice
Dim colorIndex As Integer
colorIndex = 3
Dim xRg As Range
Application.ScreenUpdating = False
For Each xRg In ActiveSheet.UsedRange.Cells
Dim color As Long
color = xRg.Interior.colorIndex
If (color = colorIndex) Then
xRg.Locked = True
Else
xRg.Locked = False
End If
Next xRg
Application.ScreenUpdating = True
MsgBox "All specified color cells have been locked!", vbInformation, "Kutools for Excel"
End Sub
Hinweis: Im obigen Code gibt die Zahl 3 im Skript colorIndex = 3 die roten Zellen an, die gesperrt werden sollen. Sie können diesen Wert in einen anderen Farbcode ändern, den Sie sperren möchten.
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Dadurch werden nur die roten Zellen gesperrt, während alle anderen Zellen im genutzten Bereich des aktuellen Arbeitsblatts entsperrt bleiben. Siehe Screenshot:
4. Wenn Sie verhindern möchten, dass andere Benutzer Änderungen vornehmen, müssen Sie lediglich die Funktion Arbeitsblatt schützen verwenden, um dieses Arbeitsblatt zu schützen.
Tipps: Um die entsprechende Farbcode-Nummer zu ermitteln, können Sie die folgende benutzerdefinierte Funktion verwenden:
Function GetColor(x As Range) As Integer
GetColor = x.Interior.ColorIndex
End Function
Entfesseln Sie die Magie von Excel mit KUTOOLS AI
- Intelligente Ausführung: Führen Sie Zelloperationen durch, analysieren Sie Daten und erstellen Sie Diagramme – alles ganz einfach per Sprachbefehl.
- Benutzerdefinierte Formeln: Erstellen Sie maßgeschneiderte Formeln, um Ihre Arbeitsabläufe optimal zu optimieren.
- VBA-Programmierung: Schreiben und implementieren Sie VBA-Code ganz mühelos.
- Formelinterpretation: Verstehen Sie komplexe Formeln spielend leicht.
- Textübersetzung: Überwinden Sie Sprachbarrieren direkt in Ihren Tabellenkalkulationen.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins