Zelleninhalt mit bestimmter Schriftfarbe verbergen
22.07.2013 09:00:55
Parick
Ich habe folgenden Code gefunden und habe versucht ihn umzuschreiben, jedoch ohne Erfolg:
Private Sub CommandButton1_Click()
With ActiveCell
.Parent.Unprotect Password:="test"
If .Locked = True Then
If InputBox("Bitte Passwort eingeben", "Passwort") = "test" Then
.Locked = False
.FormulaHidden = False
.Font.ColorIndex = xlAutomatic
End If
Else
.Font.ColorIndex = 2
.Interior.Pattern = xlNone
.Locked = True
.FormulaHidden = True
End If
.Parent.Protect Password:="test"
End With
End Sub
Was ich anders haben möchte:
Ich würde gerne den Inhalt aller Zellen mit einer bestimmten Schriftfarbe per Button verbergen. Dieser Code macht das nur für eine einzelne Zelle und beachtet die Schriftfarbe nicht.
Kann mir jemand helfen?
Gruß
Patrick