如果colorindex = 0，VBA解鎖一個範圍內的單元格

Question

我想解鎖給定範圍內的單元格，如果它們沒有背景顏色的話。

Sub macunlock() 
Dim rng1 As Range 
Set rng1 = Range("A1:C1") 
For Each cell In rng1 
If cell.Interior.ColorIndex = 0 Then cell.Locked = False 
Next cell 
End Sub 

但是，指定的單元格不解鎖。

Answer 1

因爲，空白格式-4142而不是0

改成這樣：

If cell.Interior.ColorIndex = -4142 Then cell.Locked = False 

可靠的方法：

Sub macunlock() 
    Dim rng1 As Range 
    Set rng1 = Range("A1:C1") 
    For Each cell In rng1 
     If cell.Interior.ColorIndex = XlColorIndex.xlColorIndexNone Then 
      cell.Locked = False 
     End If 
    Next cell 
End Sub