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!!!

Preguntas similare

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.
Respuesta Responder a este mensaje
#2 Doors
06/11/2007 - 14:12 | Informe spam
Hector como siempre MUCHAS GRACIAS
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1 : ) )

"Héctor Miguel" wrote:

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.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida