How select unlocked cells only

[Metallo]

Hi,

I need to select the unlocked cells in an excel sheet that I have
protected.
The scope is to format those cells with a different colour to make
easier for the enduser to spot them.

I have found the following macro in the newsgroup:

Sub FindUnlocked()
Dim c As Range
Dim sel As String
Dim sel2 As String
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then
sel = sel & "," & c.Address
End If
Next
sel2 = Right(sel, Len(sel) - 1)
Range(sel2).Select
End Sub

This is supposed to do the job but when I run it, I get the following
error:

Run-time error '1004':
Method 'range' of object'_Global' failed

Do you know what it means and how to solve it?
I use Excel 2000

Thank you
Alex

 

[Frank Kabel]

Hi
why not use something like
Sub FindUnlocked()
Dim c As Range
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then
c.interior.colorindex=3
End If
Next
End Sub

 

[Norman Jones]

Hi Alex,

As an alternative approach, you could use conditional formatting and set the
Formula Is condition to:

=CELL("protect",A1)

 

[Doria/Warris]

Hi,

Thank you guys for your solutions, I'm going to try both and see which one
will work best.

Cheers
Alex