Select all locked cells

pulsar777 · Mar 15th 2016

Hi,
I'd like to locate and select all locked cells on a worksheet.
I found property

Code

Application.FindFormat.Locked = True

but I can't figure out next step.

skywriter · Mar 15th 2016

Re: Select all locked cells

Try this.

Code

Sub FindLockedCells()
Dim rngFound As Range, r As Range
    For Each r In ActiveSheet.UsedRange
        If r.Locked = True Then
            If rngFound Is Nothing Then
                Set rngFound = r
            Else
                Set rngFound = Union(rngFound, r)
            End If
        End If
    Next r
    If Not rngFound Is Nothing Then rngFound.Select
End Sub

Display More

pulsar777 · Mar 16th 2016

Re: Select all locked cells

Great the Union was the key. Thanks a lot skywriter !

skywriter · Mar 16th 2016

Re: Select all locked cells

My pleasure, thanks for the feedback. :cool:

Select all locked cells

Participate now!

Share