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

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

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.

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida