Viewing of protected locked or unlocked cells

[jmisenar]

Is there a way to view an entire workshees to see which cells are locked and
unlocked?

 

[Kassie]

One way is to protect the sheet, and untick Select locked cells. Repeatedly
pressing <Tab> will then take you to the unlocked cells only.

--
HTH

Kassie

Replace xxx with hotmail

 

[Gord Dibben]

To color locked cells.

Sub Locked_Cells()
'Bob Flanagan source of code
Dim Cell As Range, tempR As Range, rangeToCheck As Range
'check each cell in the selection
For Each Cell In Intersect(Selection, ActiveSheet.UsedRange)
If Cell.Locked Then
If tempR Is Nothing Then
'initialize tempR with the first qualifying cell
Set tempR = Cell
Else
'add additional cells to tempR
Set tempR = Union(tempR, Cell)
End If
End If
Next Cell
'display message and stop if no cells found
If tempR Is Nothing Then
MsgBox "There are no Locked cells " & _
"in the selected range."
End
End If
'select qualifying cells
tempR.Interior.ColorIndex = 3
End Sub


Gord Dibben MS Excel MVP