1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18: 19: 20: 21:
Worksheet_Change secundario privado (blanco de ByVal como gama) En errHandler indicado del error Application.EnableEvents = falso Si Target.Column = 12 y Target.Count = 1 entonces Llamada UnProtect Si el "" <> de Target.Value entonces rema (Target.Row). Bloqueado = verdad La llamada protege Terminar si finished: Application.EnableEvents = verdad Salir el submarino errHandler: MsgBox Err.Number y “-” y Err.Description Curriculum vitae acabado Submarino del extremo