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" wrote:

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.

"Sheeloo" wrote:

Try
If ActiveCell.Locked = True Then
MsgBox ("You can't change the contents of this Cell. It is locked &
protected.")
End If
--
Pl click the ''''Yes'''' button
(if you see it - don''''t worry if you don''''t),
if this answer was helpful.



"FARAZ QURESHI" wrote:

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.