Hello Darin
In your worksheets, by design, all cells are locked so may be it would be
wiser to look for those which are NOT locked?
In which case may be something like this should help:
(amend sheet name accordingly and you will also need an additional worksheet
named "Analysis")
Sub TestIt()
Dim NbUnLckd As Long
NbUnLckd = 0
For Each c In Worksheets("Sheet1").Range("A1").CurrentRegion
If c.Locked = False Then
NbUnLckd = NbUnLckd + 1
Worksheets("analysis").Cells(NbUnLckd, 1).Value = c.Address
End If
Next c
End Sub

HTH
Cordially
Pascal


"Darin Kramer" a écrit dans le message de
...


Hi guys,

I got a sheet with some cells protected, and others not, how can I see
which are the cells that are protected..? (on screen..)

Also is it possible to write some VB, that will give me a list of all
protect cells for a given sheet...?

Thanks!!

Regards

D

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!