gibt es eine Funktion, mit der man geschützte Zellen färben kann? Wenn nein, könnte mir jemand zeigen, wie man das mit VBA machen kann (wenn es denn geht)?
Vielen Dank!
LG
Sabine
Sub Makro_Bei_Schutz()
Worksheets("Tabelle1").Protect Password:="xxx", UserInterfaceOnly:=True
Range("A1:C10").Interior.ColorIndex = 3
End Sub
Diese Eigenschaft muss bei jedem öffnen neu gesetzt werden,
bevor ein Makro Änderungen durchführen darf.
Gruß Tino
Sub Test()
Dim rngSchutz As Range, Bereich As Range
With ActiveSheet
For Each Bereich In .UsedRange
If Not Bereich.Locked Then
If rngSchutz Is Nothing Then
Set rngSchutz = Bereich
Else
Set rngSchutz = Union(Bereich, rngSchutz)
End If
End If
Next Bereich
.Protect "xxx", True, True, , True
.UsedRange.Interior.ColorIndex = xlColorIndexNone
If Not rngSchutz Is Nothing Then
rngSchutz.Interior.ColorIndex = 3
End If
End With
End Sub
Gruß Tino