Range.AllowEdit (Excel)

Returns a Boolean value that indicates if the range can be edited on a protected worksheet.

Dim booAllowEdit As Boolean
booAllowEdit = ActiveCell.AllowEdit