Bloquear (proteger) fila y pintarse de color al llenarse 3 datos de la misma
Tengo una hoja desprotegida, quisiera que al ponerse 3 datos de una misma fila me las marcara como bloqueadas para que al momento de protegerlas este no se pueda cambiar los datos y como adición pintarse la fila
Esta acción para toda la hoja
Ejemplo:
Si estoy en mi rango de A:L
Fila:
10
Si lleno los datos de B C Y F este me bloqueara las fila y protegiera y luego las pintase hasta el rango antes mencionado.
1 respuesta
Respuesta de Dante Amor
2
Te anexo la macro
Private Sub Worksheet_Change(ByVal Target As Range)
'Por.Dante Amor
If Target.Count > 3 Then Exit Sub
If Not Intersect(Target, Range("A:L")) Is Nothing Then
f = Target.Row
If Cells(f, "B") <> "" And _
Cells(f, "C") <> "" And _
Cells(f, "F") <> "" Then
ActiveSheet.Unprotect "abc"
With Range("A" & f & ":L" & f)
.Locked = True
.Interior.ColorIndex = 6
End With
ActiveSheet.Protect "abc"
End If
End If
End Sub.
'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias
.
Avísame cualquier duda
.
