如果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