Como evitar actualizacion de libros

hola, Alberto !

Tengo dos libros: Libro1 y Libro2, el libro1 tiene celdas relacionadas con el libro2
Pregunta: Como puedo abrir desde una Macro el libro1 y evitar que este pida la actualizaacion de los vinculos con el libro2.

[hasta donde se] para 'brincar' el aviso de 'vinculos externos'... se necesita abrir el libro que tiene los vinculos ...
-> 'desde' otro libro y estbleciendo la propiedad UpdateLinks en 0 [cero] +/- como en el siguiente ejemplo:
-> [p.e. en el Libro3] -?-
1) abre el libro con vinculos,
2) OPCIONAL... 'ejecuta' las macros de apertura [NO hay 'otra' forma, si lo abres con UpdatelInks:=0]
3) se auto-cierra [dejando 'activo' el libro 'recien' abierto -el de los vinculos-]
en el modulo de codigo del 'otro' libro ['ThisWorkbook'] ==Private Sub Workbook_Open()
Workbooks.Open ThisWorkbook.Path & "\Libro1.xls", UpDateLinks:=0
Workbooks("Libro.xls").RunAutoMacros xlAutoOpen
ThisWorkbook.Close False
End Sub

saludos,
hector.

Hola Hector...

Te recuerdas de la Respuesta para.

ahora la complicamos un poco mas... los articulos estan relacionados con una cantidad Ej:
LIBRO 1: A2="AZUCAR",B2="2",A3="HARINA",B3="1", A4= "SAL",B4="3" A5="PAN",B5="2",A6="AGUA",B6="1"
LIBRO 2: A2="AZUCAR",B2="1" A3="AGUA",B3="2"
LIBRO 3: A2="SAL",B2="1",A3="PAN", B3= "2" A4="SAL" , B4="1"
... que LISTE LOS ARTICULOS UNICOS Y ADEMAS QUE INDIQUE LA CANTIDAD ACUMULADAD DE CADA ARTICULO

==
Sub ListarArticulosUnicos()
Application.ScreenUpdating = False
Dim BuscarDonde As String, Sig As Integer, Celda As Range, Articulo
Dim RangoBuscar As String, Unico As Range, Fila As Integer
Dim Articulos As New Scripting.Dictionary
' en la siguiente linea ESPECIFICA el directorio donde quieres 'buscarlos' '
BuscarDonde = "c:uta y\sub-carpeta donde estan\los archivos\" ' NO olvides
al final el ->\<- '
With Application.FileSearch
.NewSearch
.LookIn = BuscarDonde
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks
If .Execute() > 0 Then
For Sig = 1 To .FoundFiles.Count
Workbooks.Open .FoundFiles(Sig)
Worksheets(1).Activate

Bien
Analice tu Respuesta y SOLO tuve que agregar en la linea
"Workbooks.Open .FoundFiles(Sig)" , UpDateLinks:=0
Y funciono Perfecto

Es increible que una simple condicion te evite la molestia de la
Actualizacion

Gacias
Saludos.
Alberto Gonzalez..