Range.Locked (Excel)

Devuelve o establece un valor Variant que indica si el objeto está bloqueado.

Esta propiedad devuelve True si el objeto está bloqueado, False si el objeto se puede modificar cuando la hoja está protegida o Null si el rango especificado contiene celdas bloqueadas y desbloqueadas.

ActiveCell.Locked = True