I know that I can lock cells and hide their formulas.

Selection.Locked = True
Selection.FormulaHidden = True

I also know that none of this kicks in unless the sheet
itself is protected.

ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True

How do I tell if a cell is protected? What property am I
tesing for? Is it first the sheet and then the cell?

THanks