Macro para proteger celdas con formulas

Con este código lo que conseguirás es proteger todas las celdas que tengan formulas en una hoja de calculo

Código de la macro

Sub ProtegerCeldasConFormulas()
With ActiveSheet
.Unprotect
.Cells.Locked = False
.Cells.SpecialCells(xlCellTypeFormulas).Locked = True
.Protect AllowDeletingRows:=True
End With
End Sub

Como copiar y pegar el código

Como insertar una macro en la cinta de opciones personalizada