For hidden cells, I don't think you can do anything besides look and not see
them <g.

But for locked cells, you can use format|conditional formatting (if you're not
using it for something else).

With the range you're concerned about selected, you can use a formula like:
=CELL("protect",A1)
(Change A1 to the activecell)




Merlin wrote:

--

Dave Peterson

When I look for hidden rows/columns, I look at the worksheet row and column
headers looking for skipped numbers/letters.

If the rows have been hidden by a filter, you can see that the row numbering (in
the row headers) in that filtered range now has a blue font.

You could run a macro that counts the visible/hidden rows/columns:

Option Explicit
Sub testme()

Dim wks As Worksheet
Dim visCols As Long
Dim visRows As Long

Set wks = ActiveSheet

With wks
visCols = 0
visRows = 0
On Error Resume Next
visCols = Intersect(.Cells.SpecialCells(xlCellTypeVisible) _
.EntireColumn, .Rows(1)).Cells.Count
visRows = Intersect(.Cells.SpecialCells(xlCellTypeVisible) _
.EntireRow, .Columns(1)).Cells.Count
On Error GoTo 0
If visCols < .Columns.Count _
Or visRows < .Rows.Count Then
MsgBox "Visible Rows: " & visRows & vbLf & _
"Hidden Rows: " & .Rows.Count - visRows & vbLf & vbLf & _
"Visible Col: " & visCols & vbLf & _
"Hidden Cols: " & .Columns.Count - visCols
Else
MsgBox "No hidden rows/columns"
End If
End With

End Sub

If you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm


Dave Peterson wrote:

For hidden cells, I don't think you can do anything besides look and not see
them <g.

But for locked cells, you can use format|conditional formatting (if you're not
using it for something else).

With the range you're concerned about selected, you can use a formula like:
=CELL("protect",A1)
(Change A1 to the activecell)

Merlin wrote:

--

Dave Peterson

--

Dave Peterson