Controlar Abrir dos veces el Mismo Archivo
Como puedo controlar que un archivo en excel no pueda ser abierto más de una vez.
Saludos.
Saludos.
Respuesta
1
La siguiente funcion; como parámetro toma el nombre de archivo (incluido el path) y te devuelve verdadero o falso según sea el caso.
Function revisarLibroAbierto(nombreDelArchivo As String) As Boolean
Dim nombre As String, Libro As Workbook
On Error Resume Next
Set Libro = Workbooks(Dir(nombre))
On Error GoTo 0
revisarLibroAbierto = (Not Libro Is Nothing)
End Function
Function revisarLibroAbierto(nombreDelArchivo As String) As Boolean
Dim nombre As String, Libro As Workbook
On Error Resume Next
Set Libro = Workbooks(Dir(nombre))
On Error GoTo 0
revisarLibroAbierto = (Not Libro Is Nothing)
End Function