13.07.2015, 08:07
Hallo zusammen,
ich möchte gerne alle Zellen in der Mappe mittels VBA sperren, außer die Zellen die orange (44) und grau (15) sind.
Ich habe folgenden Code gefunden, der auch super funktioniert jedoch habe ich null VBA Kenntnisse und ich weiß nicht wie ich die zweite Farbe sperre. Kann mir einer helfen? Vielen Dank schon Mal vorab.
Sub ZellenJeNachFarbeSperren()
Dim Zelle As Range, Rng As Range, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Set Rng = ws.UsedRange
ws.Unprotect Password:="hallo"
For Each Zelle In Rng
If Zelle.Interior.ColorIndex = 44 Then '44 = orange
Zelle.Locked = False
Else
Zelle.Locked = True
End If
Next Zelle
Next ws
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="hallo"
ws.EnableSelection = xlUnlockedCells
Next ws
End Sub
ich möchte gerne alle Zellen in der Mappe mittels VBA sperren, außer die Zellen die orange (44) und grau (15) sind.
Ich habe folgenden Code gefunden, der auch super funktioniert jedoch habe ich null VBA Kenntnisse und ich weiß nicht wie ich die zweite Farbe sperre. Kann mir einer helfen? Vielen Dank schon Mal vorab.
Sub ZellenJeNachFarbeSperren()
Dim Zelle As Range, Rng As Range, ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
Set Rng = ws.UsedRange
ws.Unprotect Password:="hallo"
For Each Zelle In Rng
If Zelle.Interior.ColorIndex = 44 Then '44 = orange
Zelle.Locked = False
Else
Zelle.Locked = True
End If
Next Zelle
Next ws
For Each ws In ThisWorkbook.Worksheets
ws.Protect Password:="hallo"
ws.EnableSelection = xlUnlockedCells
Next ws
End Sub