Consulta urgente!

05/11/2007 - 17:57 por Doors | Informe spam
Saludos,

Amigos 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

Este codigo lo que hace es que en el momento en que se digita algun codigo,
se desprotege un documento que esta en un servidor, actualiza los vinculos y
depues se vuelve a proteger, pero cuando lo protege se seleccionan las
celdas que estan bloqueadas y por supuesto muestra la ubicación del archivo,
existe alguna forma de poder evitar dicha visualización?, es decir que en el
momento de protegerlo me lo proteja pero sin poder seleccionar las celdas
bloqueadas.

Muchas gracias por su amable colaboración!!!
 

Leer las respuestas

#1 Héctor Miguel
06/11/2007 - 01:19 | Informe spam
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.

Preguntas similares