Find Protected Cells

[ExcelMonkey]

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

 

[Bob Phillips]

Surely, it is both, irrespective of order.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[ExcelMonkey]

How do you wrap an If around the .Protect property for the
active sheet given that it has three other conditions
(DrawingObjects:=True, Contents:=True, Scenarios:=True)?
I only care about the cells/formulas.


If ActiveSheet.Protect Contents:=True Then
'code here
End if

 

[ExcelMonkey]

This seems to be working:

Public Function CellHasProtection(rng As Range)
If rng.Parent.Protect = True Then
If rng.Locked = True Or rng.FormulaHidden = True Then
CellHasProtection = True
End If
End If
End Function

thanks

 

[Bob Phillips]

If you want to allow for any being set use OR

With ActiveSheet
If .ProtectContents OR .ProtectDrawingObjects OR _
etc.

--

HTH

RP
(remove nothere from the email address if mailing direct)