Hi,
Try this. the message boxes are just for demonstration
Sub sonic()
If ActiveSheet.ProtectContents And ActiveCell.Locked Then
MsgBox "Locked"
Else
MsgBox "Unlocked"
End If
End Sub
Mike
"XP" wrote:
> Using Office 2007 with Win XP;
>
> I need to determine if the active cell is currently in an editable state. I
> guess that really translates into whether or not it is locked AND sheet
> protection is turned on? Is this all that needs to be tested?
>
> Does anyone have efficient example code that might return true if
> editable/false if not? If so, could you please post?
>
> Thanks much in advance.
|