Viewing Protected Cells en mass

[Mart]

Is there an easy way to view/highlight all protected cells on a sheet at once ?

I have 12 sheets and I want to check all the right cells are protected in
each.

thanks

 

[Ivyleaf]

Hi,

I don't know of any built in way to do this, but the following macro
should do it:

Sub test()
Dim ActiveRng As Range

For Each cell In ActiveSheet.UsedRange
If Not cell.Locked Then
If ActiveRng Is Nothing Then
Set ActiveRng = cell
Else
Set ActiveRng = Union(ActiveRng, cell)
End If
End If
Next
If Not ActiveRng Is Nothing Then ActiveRng.Select
End Sub


Cheers,
Ivan.