Sub ColorActive()
SheetR = 0 'Reset counter
SheetC = ActiveWorkbook.Worksheets.Count 'See how many sheets to work on
For DdD = 1 To SheetC 'Work from Sheet 1 to ...
Worksheets(DdD).Activate 'Activate active sheet
ActiveSheet.Unprotect 'Unprotect - assuming no password
For Each IteM In ActiveSheet.UsedRange 'Color cells according to locked
If IteM.Locked = False Then 'If not locked
IteM.Font.ColorIndex = 32 'Blue for unlocked
SheetR = SheetR + 1 'Add to cells fixed count
ElseIf IteM.Locked = True Then 'If IS locked ...
IteM.Font.ColorIndex = xlAutomatic 'Set color to default
End If
Next 'Loop next cell
ActiveSheet.Protect 'Re-protect
Next
MsgBox SheetR & " cells were colored Blue if 'unlocked'", 64 'Done message
End Sub
Um in Excel gesperrte Zellen anzuzeigen, kannst du die folgende Schritt-für-Schritt-Anleitung nutzen:
=Zelle("Schutz", A1)=1(ersetze A1 durch die erste Zelle Deiner Auswahl).
Jetzt solltest Du alle geschützten Zellen in Deiner Auswahl farblich hervorgehoben sehen.
Problem: Die Zellen werden nicht korrekt angezeigt.
Lösung: Stelle sicher, dass Du die Formel korrekt eingegeben hast und dass die Zellen tatsächlich geschützt sind.
Problem: Die bedingte Formatierung wird nicht angewendet.
Lösung: Überprüfe, ob Du die richtige Zelle als Bezugspunkt in der Formel angegeben hast.
Eine weitere Möglichkeit, geschützte Zellen anzuzeigen, ist der Einsatz von VBA (Visual Basic for Applications). Hier ist ein Beispielcode:
Sub ColorActive()
Dim IteM As Variant, SheetR As Integer, DdD As Integer, SheetC As Integer
SheetR = 0
SheetC = ActiveWorkbook.Worksheets.Count
For DdD = 1 To SheetC
Worksheets(DdD).Activate
ActiveSheet.Unprotect
For Each IteM In ActiveSheet.UsedRange
If IteM.Locked = False Then
IteM.Font.ColorIndex = 32 ' Blau für entsperrte Zellen
SheetR = SheetR + 1
Else
IteM.Font.ColorIndex = xlAutomatic ' Standardfarbe für gesperrte Zellen
End If
Next
ActiveSheet.Protect
Next
MsgBox SheetR & " Zellen wurden blau gefärbt, wenn sie 'entsperrt' sind", vbInformation
End SubDieser Code färbt die entsperrten Zellen blau und zeigt eine Nachricht an, wie viele Zellen gefärbt wurden.
Ein praktisches Beispiel für die Verwendung der bedingten Formatierung ist, wenn Du einen großen Datensatz hast und schnell sehen möchtest, welche Zellen geschützt sind. Wenn Du die oben genannten Schritte anwendest, kannst Du sofort die gesperrten Zellen erkennen und besser mit den Daten arbeiten.
1. Wie kann ich geschützte Zellen in einer großen Tabelle anzeigen?
Verwende die bedingte Formatierung mit der Zelle()-Funktion, um geschützte Zellen schnell zu identifizieren.
2. Funktioniert das auch in neueren Excel-Versionen?
Ja, die Methoden zur Anzeige geschützter Zellen funktionieren in den meisten aktuellen Excel-Versionen, einschließlich Excel 2016, 2019 und Microsoft 365.