Protecting non contiguous cells

[Guest]

I am trying to protect all cells in a range with a value >0 so that users can
only input into the non blank cells in the range.

I've tried this

Sub test()

Range("A2:I10").Select
If Value = 0 Then
Cells.Locked = False
End If

End Sub

but it Unlocks all cells on the Worksheet so I'm obviously doing something
very wrong.

I'd be grateful for some help please

 

[JulieD]

Hi

try

sub test()
For Each c In Range("A2:I10")
If c.Value <> 0 Then
c.Locked = False
End If
Next
end sub

bit confused about which cells you want to protect - so let me know if the
above gives you what you want.

Cheers
JulieD

 

[Don Guillett]

try a loop
for each c in range("a2:i10"
if
next

 

[Guest]

Thanks a lot for the replies. Julie's solution modified to "If c.Value = 0
Then" works a treat. Thanks again

 

[JulieD]

you're welcome and thanks for the feedback

 

[Guest]

You might want to test empty cells with c.value ="".