Creo que es bastante simple, pero estoy por aprender y me interesa comprenderlo todo

Private Sub Worksheet_Change(ByVal Target As Range)

[B]    If Target.Count > 1 Then Exit Sub[/B]

    If Target.Row < 6 Then Exit Sub

    If Target.Column = 19 Or Target.Column = 26 Then

        If Target <> "si" Then Exit Sub

        Mensaje = "Seguro desea bloquear la fila,.... Esta accion no le permitira editarla de    nuevo?" ' Define el mensaje.

        Estilo = vbYesNo + vbCritical + vbDefaultButton2

        Título = "Cuidado!!!"

        Respuesta = MsgBox(Mensaje, Estilo, Título)

        If Respuesta = vbYes Then

            ActiveSheet.Unprotect "123asd"

            If Target.Column = 19 Then Range("A" & Target.Row & ":S" & Target.Row).Locked = True

            If Target.Column = 26 Then Range("T" & Target.Row & ":Z" & Target.Row).Locked = True

            ActiveSheet.Protect "123asd"

        End If

    End If

End Sub



[/CODE]

El anterior código me sirve para bloquear tramos de una fila mediante la palabra "si" --- tramos que van desde la columna 1 hasta la 19 y de la 20 a la 26 a partir de la filas < 6; esta parte "[b]If Target.Count > 1 Then Exit Sub[/b]" de este código no se para que sirve, que función cumpla ---------------- Me gustaría que me indiques que hace, puesto que lo quito y no pasa nada y si lo dejo me corre igual la macro -------- desde ya gracias por leer esto y mil gracias por la explicación que me podrías brindar

dejo adjunto un archivo donde lo he implementado

F-001-Control Calidad.rar

Hola.

En la ayuda excel viene esto sobe la propiedad Count:

Devuelve un valor de tipo Long que representa el número de objetos de la colección.

Intenta seleccionar un rango e introducir un valor veras como el evento no se dispara.

Un saludo.

Toldeman gracias por tu respuesta, ... intentare lo que me dices ---------------Un saludo y muchas Gracias :rapture: