¿Habrá manera de unir los códigos de dos macros en una?

Bunas tardes.

Actualmente uso utilizo esta macro

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E12:H12")) Is Nothing Then
        ActiveSheet.Unprotect "abc"
        Range("E12:H12").Locked = True
        Target.Locked = False
        ActiveSheet.Protect "abc"
    End If
End Sub

Pero el problema es que no solo quiero utilizarla para las celdas E12:H12 quisiera también utilizarla para las celdas E13:H13, ¿De qué manera puedo unir las dos macros? Agradecería mucho su respuesta.

Saludos!

1 Respuesta

Respuesta
1

Así quedaría la macro

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E12:H13")) Is Nothing Then
        ActiveSheet.Unprotect "abc"
        Range("E12:H12").Locked = True
        Target.Locked = False
        ActiveSheet.Protect "abc"
    End If
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

Faltó el rango del bloqueo

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("E12:H13")) Is Nothing Then
        ActiveSheet.Unprotect "abc"
        Range("E" & Target.Row & ":H" & Target.Row).Locked = True
        Target.Locked = False
        ActiveSheet.Protect "abc"
    End If
End Sub

Saludos.Dante Amor

Recuerda valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas