¿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 de Dante Amor
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 SubSaludos.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 SubSaludos.Dante Amor
Recuerda valorar la respuesta.
