Find Protected Cells

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)


"ExcelMonkey" <[email protected]> wrote in message
news:[email protected]...
> 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
>
>

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








>-----Original Message-----
>Surely, it is both, irrespective of order.
>
>--
>
>HTH
>
>RP
>(remove nothere from the email address if mailing direct)
>
>
>"ExcelMonkey" <[email protected]> wrote
in message
>news:[email protected]...
>> 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
>>
>>
>
>
>.
>

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
>-----Original Message-----
>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
>
>
>
>
>
>
>
>
>>-----Original Message-----
>>Surely, it is both, irrespective of order.
>>
>>--
>>
>>HTH
>>
>>RP
>>(remove nothere from the email address if mailing direct)
>>
>>
>>"ExcelMonkey" <[email protected]>
wrote
>in message
>>news:[email protected]...
>>> 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
>>>
>>>
>>
>>
>>.
>>
>.
>

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)


"ExcelMonkey" <[email protected]> wrote in message
news:[email protected]...
> 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
>
>
>
>
>
>
>
>
> >-----Original Message-----
> >Surely, it is both, irrespective of order.
> >
> >--
> >
> >HTH
> >
> >RP
> >(remove nothere from the email address if mailing direct)
> >
> >
> >"ExcelMonkey" <[email protected]> wrote
> in message
> >news:[email protected]...
> >> 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
> >>
> >>
> >
> >
> >.
> >