How select unlocked cells only
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
--
Regards
Frank Kabel
Frankfurt, Germany
Metallo wrote:
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
|