Deshabilitar mensaje de hipervinculo

hola, Doors !

... como hago para poner en el procedimiento Auto_Open... al momento de abrir un archivo... que contengo algun vinculo
no me muestre el mensaje de que existen origenes a otros libros... etc.
yo le puse la siguiente instruccion pero aun asi me muestra el mensaje
Private Sub Auto_Open
ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
End Sub

[hasta donde se]... si la instruccion la usas en el mismisimo libro que contiene los vinculos... no te va a funcionar :-((

si te sirve [o si recuerdas], te transcribo una consulta tuya ? [creo] de por el mes de abril de 2007...

saludos,
hector.

___ inicia transcripcion ___

hola, DOORS !

Hector, modifique una de las instrucciones que me diste y le puse asi
=SI(ESERROR(BUSCARV(B12;'[Base de datos.xls]Hoja1'!A:B;2;FALSO));"NUMERO DE EMPLEADO NO EXISTE [...]
Pero al momento de abrir el archivo me sale un mensaje de que el libro contiene vinculos a otros origenes de datos
y salen 2 botones de actualizar y no actualizar.
Habra alguna manera de eliminar este mensaje o que no salga?

[hasta donde se] para 'brincar' el aviso de 'vinculos externos'... se necesita abrir el libro que tiene los vinculos ...

a) 'desde' otro libro y estableciendo la propiedad UpdateLinks +/- como en la siguiente instruccion:
-> Workbooks.Open ThisWorkbook.Path & "\libro vinculado.xls", UpDateLinks:=0

b) los valores para 'UpdateLinks' pueden ser:
0 => NO actuaiza ninguno de los vinculos externos
1 => actualiza SOLO los vinculos externos a libros de excel [por omision]
2 => actualiza vinculos OLE/DDE
[consulta la ayuda de vba en relacion con otros tipos de vinculos] :))

c) si lo abres con UpdatelInks:=0 NO se ejecuta los eventos de 'auto-apertura' <= OJO
a menos que uses una instruccion 'expresa' [p.e.] luego de abrir dicho libro. ejemplo:
en el evento '_open' DE UN TERCER libro SOLO para abrir el 'Libro Principal' ==Private Sub Workbook_Open()
Workbooks.Open ThisWorkbook.Path & "\Libro Principal.xls", UpDateLinks:=0
Workbooks("Libro Principal.xls").RunAutoMacros xlAutoOpen
ThisWorkbook.Close False
End Sub

Hola Hector, tienes razon, ya me acorde, se me habia olvidado... que
mente.. : (
"Héctor Miguel" wrote:

hola, Doors !

> ... como hago para poner en el procedimiento Auto_Open... al momento de abrir un archivo... que contengo algun vinculo
> no me muestre el mensaje de que existen origenes a otros libros... etc.
> yo le puse la siguiente instruccion pero aun asi me muestra el mensaje
> Private Sub Auto_Open
> ActiveWorkbook.UpdateLinks = xlUpdateLinksNever
> End Sub

[hasta donde se]... si la instruccion la usas en el mismisimo libro que contiene los vinculos... no te va a funcionar :-((

si te sirve [o si recuerdas], te transcribo una consulta tuya ? [creo] de por el mes de abril de 2007...

saludos,
hector.

___ inicia transcripcion ___

hola, DOORS !

> Hector, modifique una de las instrucciones que me diste y le puse asi
> =SI(ESERROR(BUSCARV(B12;'[Base de datos.xls]Hoja1'!A:B;2;FALSO));"NUMERO DE EMPLEADO NO EXISTE [...]
> Pero al momento de abrir el archivo me sale un mensaje de que el libro contiene vinculos a otros origenes de datos
> y salen 2 botones de actualizar y no actualizar.
> Habra alguna manera de eliminar este mensaje o que no salga?

[hasta donde se] para 'brincar' el aviso de 'vinculos externos'... se necesita abrir el libro que tiene los vinculos ...

a) 'desde' otro libro y estableciendo la propiedad UpdateLinks +/- como en la siguiente instruccion:
-> Workbooks.Open ThisWorkbook.Path & "\libro vinculado.xls", UpDateLinks:=0

b) los valores para 'UpdateLinks' pueden ser:
0 => NO actuaiza ninguno de los vinculos externos
1 => actualiza SOLO los vinculos externos a libros de excel [por omision]
2 => actualiza vinculos OLE/DDE
[consulta la ayuda de vba en relacion con otros tipos de vinculos] :))

c) si lo abres con UpdatelInks:=0 NO se ejecuta los eventos de 'auto-apertura' <= OJO
a menos que uses una instruccion 'expresa' [p.e.] luego de abrir dicho libro. ejemplo:
en el evento '_open' DE UN TERCER libro SOLO para abrir el 'Libro Principal' ==> Private Sub Workbook_Open()
Workbooks.Open ThisWorkbook.Path & "\Libro Principal.xls", UpDateLinks:=0
Workbooks("Libro Principal.xls").RunAutoMacros xlAutoOpen
ThisWorkbook.Close False
End Sub