Excel - Text unsichtbar machen, wenn ausgeblendet

Hallo,

ich habe eine Excel-Datei (Excel-Vers. 2021), in der verschiedene Zellen gesperrt und ausgeblendet sind, da sie Text enthalten, der nicht sichtbar sein soll. Der Blattschutz ist über ein Kennwort aktiviert.

Damit man den Text auch nicht geschrieben in der Zelle sieht, habe ich den Text einfach mit der Textfarbe weiß formatiert.
Da die Zellen dann auch ausgeblendet sind, sieht man ihn dann auch nicht oben in der Adressleiste.

Das funktioniert grds. sehr gut...

Nun würde ich gerne eine Funktion haben, die fertige Zeilen der Datei automatisch mit hellgrauer Hintergrundfarbe einfärbt.
Dabei ergibt sich dann jedoch das Problem, dass man dann auch in den gesperrten und ausgeblendeten Zellen die entsprechenden Einträge sehen kann, die ja mit der Textfarbe weiß formatiert sind.

Es würde auch nichts bringen, die Einträge jetzt mit hellgrauer Textfarbe einzufärben, damit man die Einträge nicht sehen kann. Die Zellen haben ja zunächst einen weißen Hintergrund. Und erst, nachdem sie fertig belegt sind, sollen sie einen hellgrauen Hintergrund haben.

Hat jemand von Euch eine Idee, wie ich das umsetzen kann?

1) Sobald die Zeile fertig ausgefüllt ist, werden die Zellen (A9 - E9 und G9 - K9) hellgrau hinterlegt
2) Die Einträge in den Zellen (H9 - K9) sollen unsichtbar sein... egal ob weißer oder hellgrauer Hintergrund

## das gilt dann auch für die Zeilen 10 bis 20 ##

Zur Info:

Es gibt bereits den folgenden VBA-Code, der bewirkt, dass die fertigen Zellen gesperrt werden und somit nicht mehr veränderbar sind. Vielleicht muss man diesen Code ja nur entsprechend erweitern, um mein Vorhaben umsetzen zu können...

Hier der Code (2 Teile):

1) "Diese Arbeitsmappe":


2) "Tabelle 1" (also erstes Tabellenblatt):


Grüße von
Yan

objCell.NumberFormat = ";;;"  

objCell.NumberFormat = ";;;"  

objCell.NumberFormat = ";;;"  

Sub BedingteFormatierungBeispiel()

'Bereich definieren  
Dim MeinBereich As Range
Set MeinBereich = Range("A1:A10")  

'Vorhandene bedingte Formatierung aus dem Bereich löschen  
MeinBereich.FormatConditions.Delete

'Bedingte Formatierung anwenden  
MeinBereich.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=100", Formula2:="=150"  
MeinBereich.FormatConditions(1).Interior.Color = RGB(255, 0, 0)
End Sub

For Each objCell In Range("Q9:Q20")  
            If IsDate(objCell.Value) Then objCell.EntireRow.Locked = True

Sub BedingteFormatierungHellgrau()

'Bereich definieren  
Dim BereichHellgrau As Range
Set BereichHellgrau = Range("A9:E10;G9:K20")2  

'Bedingte Formatierung anwenden  
BereichHellgrau.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, _
        Formula1:="=100", Formula2:="=150"  
BereichHellgrau.FormatConditions(1).Interior.Color = RGB(221, 221, 221)
End Sub

Formula1:=">0"  

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    Dim objCell As Range
    Dim loZ As Long
    With Worksheets("Eingaben")  
        For Each objCell In .Range("Q9:Q20")  
            If IsDate(objCell.Value) Then
                loZ = objCell.Row
                objCell.EntireRow.Locked = True
                objCell.Interior.Color = RGB(221, 221, 221)
                .Range(.Cells(loZ, 1), .Cells(loZ, 5)).Interior.Color = RGB(221, 221, 221)
                .Range(.Cells(loZ, 7), .Cells(loZ, 11)).Interior.Color = RGB(221, 221, 221)
            End If
        Next
    End With
End Sub