En este artículo, usaremos el evento de cambio de la hoja de trabajo para proteger las celdas que contienen fórmulas.

Los datos brutos consisten en datos de ventas de los empleados, que incluyen la bifurcación por mes y año.

ArrowRawData

Queremos conocer las ventas totales por mes, así como por año.

ArrowRawData2

Hemos utilizado la función de suma para calcular las ventas totales de forma mensual y anual. El evento de cambio de la hoja de trabajo se usa para proteger las celdas que contienen fórmulas. Cuando intentamos editar una celda que contiene una fórmula, obtendremos un mensaje emergente que dice que el valor de la celda no se puede cambiar.

Explicación del código

rng.HasFormula El método HasFormula devolverá True si una celda contiene una fórmula.

De lo contrario, devolverá False.

ActiveSheet.Protect El código anterior se utiliza para proteger una celda.

Nota: Una celda estará protegida solo si está bloqueada. Entonces, antes de proteger una celda, debe estar cerrada. ActiveSheet.Unprotect El código anterior se utiliza para desproteger una celda.

Siga el código a continuación

'Add below code in worksheet module

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim rng As Range

For Each rng In Target.Cells

If rng.HasFormula Then

ActiveSheet.Protect

Else

ActiveSheet.Unprotect

End If

Next rng

End Sub

Si te gustó este blog, compártelo con tus amigos en Facebook y Facebook.

Nos encantaría saber de usted, háganos saber cómo podemos mejorar nuestro trabajo y hacerlo mejor para usted. Escríbanos a [email protected]