How To Find If The ActiveCell Is Protected

[FARAZ QURESHI]

What would be the appropriate code for finding whether the active cell is
locked and protected?

Run-time error '438':
Object doesn't support this property or method

is being returned on the following piece:

If ActiveCell.Protected = True Then
MsgBox ("You can't change the contents of this Cell. It is locked &
protected.")

Help from you experts is sought!

Thanx in advance.

 

[Sheeloo]

Try
If ActiveCell.Locked = True Then
MsgBox ("You can't change the contents of this Cell. It is locked &
protected.")
End If

 

[Jacob Skaria]

Try Activecell.Locked

If this post helps click Yes

 

[FARAZ QURESHI]

Already tried! But Protection and locking is different. All the cells are
locked by default and the code won't proceed whether the sheet/cell is
protected or not.

 

[FARAZ QURESHI]

Protection and locking is different. All the cells are locked by default and
the code won't proceed whether the sheet/cell is protected or not.

 

[FARAZ QURESHI]

Found It!

Correct code would be:
If ActiveSheet.ProtectContents = True And ActiveCell.Locked = True Then
MsgBox ("Cell Is Locked & Worksheet Is Protected.")
End If

 

[FARAZ QURESHI]

Found It!

Correct code would be:
If ActiveSheet.ProtectContents = True And ActiveCell.Locked = True Then
MsgBox ("Cell Is Locked & Worksheet Is Protected.")
End If

 

[Sheeloo]

Thanks...

Found It!

Correct code would be:
If ActiveSheet.ProtectContents = True And ActiveCell.Locked = True Then
MsgBox ("Cell Is Locked & Worksheet Is Protected.")
End If