Finding locked cells

[georgina]

I've got a large spreadsheet used by many people. I need to find all the
cells which are locked, and either return a list of these cells or
change the color of them (but this part I can do myself).

Is there a function which finds locked cells?
Thanks,
Georgina

 

[Tom Ogilvy]

Nothing better than looping

for each cell in usedrange
if cell.locked then
if rng = nothing then
set rng = cell
else
set rng = union(rng, cell)
end if
end if
Next
if not rng is nothing then
' do whatever
End if