VBA: UpdateLink - Actualizar vínculos en Excel.

Son muchas las veces que me consultan sobre la forma de Actualizar vínculos externos en nuestras hojas de Excel. Sabemos que disponemos de la herramienta de Edición de vínculos (ver), desde la cual podemos actualizar nuestros valores siempre que lo necesitemos.
Esta herramienta está pensada para aplicarla en aquellos casos que tenemos vínculos con otros libros de trabajo (en nuestro PC o en red) y que se encuentran cerrados, puesto que si estuvieran abiertos no se haría necesario forzar esa actualización.
Así que centrémonos, tenemos al menos dos libros de trabajo diferentes, en uno de ellos el origen de datos (VinculosOrigen.xlsx) y en otro el destino (VinculosDestino.xlsx), como vemos en la siguiente imagen:

Si cerramos el libro VinculosDestino.xlsx y cambiamos nuestra celda de referencia, y cerramos y guardamos este libro origen. La siguiente vez que abramos el libro destino VinculosOrigen.xlsx, aparecerá por defecto un mensaje adviertiendo de la existencia de vínculos, y preguntando si es nuestro deseo actualizarlos:

La celda vinculada no se actualizará hasta que Habilitemos esta opción. Es posible evitar esta pregunta, y que el libro automáticamente actualice al abrir los vínculos existentes. Para ello iremos a la ficha Datos > Conexiones > Editar vínculos, se abrirá una ventana diálogo, y en esta presionaremos el botón Pregunta inicial, y entre las tres opciones desplegadas, elegiríamos la de No mostrar la alerta y actualizar vínculos:

Pero esto sólo surtiría efecto al abrir el fichero 'destino', y no cada vez que hubiera un cambio en el origen (algún otro usuario en red podría estar trabajando sobre él).

Llegamos entonces a la cuestión clave, qué ocurre si siempre quiero tener la certeza de trabajar con los últimos datos actualizados... y la respuesta es trabajar con una macro con un evento _Change (o _SelectionChange) en la hoja o el libro completo y el método UpdateLink.
Tenemos un par de opciones por delante, una es forzar una actualización de valores sobre un vínculo en concreto o bien la actualización de todos los vínculos existentes con cualquier libro.
Veamos el primer caso: Actualizar todos los vínculos del libro de trabajo. Para ello, insertamos el siguiente código VBA en la hoja donde exista el vínculo en la hoja concreta del VinculosDestino.xlsx:

Private Sub Worksheet_Change(ByVal Target As Range)
'actualizamos todos los vínculos existentes en el libro
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
End Sub

Con este código, con la macro de Excel, conseguimos que cada vez que se cambie o actúe sobre una celda de la hoja seleccionada (donde hemos incorporado el código) se Actualicen los valores de cualquier vínculo.

Para el segundo caso: Actualizar los vínculos concretos sobre una hoja. Para ello, insertamos el siguiente código VBA en la hoja donde exista el vínculo en la hoja concreta del VinculosDestino.xlsx:

Private Sub Worksheet_Change(ByVal Target As Range)
'actualizamos sólo el vínculo que nos interesa
ActiveWorkbook.UpdateLink Name:="E:\excelforo\VinculosOrigen.xlsx", Type:=xlExcelLinks
End Sub

Con este otro código únicamente actualizamos ese vínculo, los demás -si existieran-quedarían pendientes.

Por supuesto, cualquiera de estas acciones, ya sean las macros o la configuración de los vínculos a través de la herramienta Edición vínculos se realizaría en el fichero de destino...
Y mucho OJO con esto, ya que las actualizaciones requieren mucha memoria y podría paralizar tu trabajo normal...