Consulta urgente!

... tengo el siguiente codigo en una hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect Password:="1111"
'ActiveWorkbook.Sheets("F-029").Unprotect 1111
ActiveWorkbook.UpdateLink Name:="\\192.168.2.8\pruebas\Catalogo.xls", Type:= _
xlExcelLinks

ActiveSheet.Protect Password:="1111"
ActiveWorkbook.Protect Password:="1111"
End sub

... pero cuando lo protege se seleccionan las celdas que estan bloqueadas y (...)

hola, Doors !

> ... tengo el siguiente codigo en una hoja:
> Private Sub Worksheet_Change(ByVal Target As Range)
> ActiveSheet.Unprotect Password:="1111"
> 'ActiveWorkbook.Sheets("F-029").Unprotect 1111
> ActiveWorkbook.UpdateLink Name:="\\192.168.2.8\pruebas\Catalogo.xls", Type:= _
> xlExcelLinks
>
> ActiveSheet.Protect Password:="1111"
> ActiveWorkbook.Protect Password:="1111"
> End sub
>
> ... pero cuando lo protege se seleccionan las celdas que estan bloqueadas y (...)

si piensas andar des/re/protegiendo la hoja o celdas, no te olvides de incluir esta instruccion:

ActiveSheet.EnableSelection = xlUnlockedCells

-> cada vez que la vuelvas a proteger, inmediatamente despues de aplicar la re/proteccion ;)

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.