Abrir y cerrar libros en Red

No sé si habrá alguna función de la API de Windows que
averigüe si un fichero está abierto en otro equipo.
Supongo que sí, y si tengo un rato intentaré buscarla,
pero mientras tanto (o hasta que alguien te facilite otra
posibilidad mejor) puedes usar algo parecido a esto:

Workbooks.Open "UnidadDeRed:\NombreDelLibro"
If ActiveWorkbook.ReadOnly Then
MsgBox prompt:="El libro 'NombreDelLibro' se
encuentra abierto en otro equipo, por lo que se
cerrará.", Buttons:=vbOKOnly + vbInformation
ActiveWorkbook.Close
End If

Un saludo.


Fernando Arroyo
MS MVP - Excel

Buen día a todos

mediante código quiero preguntarles si existe la forma

de detectar si un

libro que está en red se encuentra abierto desde otro

equipo. Lo que quiero

es que otro libro copiado en varios equipos envíe datos

a este primero que

servirá de base de datos pero sin que genere errores al

encontrase abierto

al mismo tiempo por otro usuario.

Muchas gracias

Luis Medina




.