Range.AllowEdit (Excel)

Retorna um valor Boolean que indica se o intervalo pode ser editado em uma planilha protegida.

Dim booAllowEdit As Boolean
booAllowEdit = ActiveCell.AllowEdit