View which cells are locked?

  • Thread starter Thread starter sammy
  • Start date Start date
S

sammy

Hi All,

Is there any way to visually see which cells are locked and/or which cells
are unlocked?

TIA,
Sammy
 
This little macro will find locked cells within the used range:

Sub SeeLocked()
Set ll = Nothing
For Each r In ActiveSheet.UsedRange
If r.Locked = True Then
If ll Is Nothing Then
Set ll = r
Else
Set ll = Union(ll, r)
End If
End If
Next
If ll Is Nothing Then
MsgBox ("nothing locked")
Else
ll.Select
End If
End Sub
 
Back
Top