Find Protected Cells

  • Thread starter Thread starter ExcelMonkey
  • Start date Start date
E

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
 
Surely, it is both, irrespective of order.

--

HTH

RP
(remove nothere from the email address if mailing direct)
 
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
 
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
 
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)
 
Back
Top