Como detecto un libro abierto
Hola valedor:
Necesito una macro que detecte si un libro excel está abierto por otro usuario.
Que sintaxis me recomendás.
Gracias
Leo
Necesito una macro que detecte si un libro excel está abierto por otro usuario.
Que sintaxis me recomendás.
Gracias
Leo
Respuesta de valedor
1
Aquí tienes dos variantes, recuerda que un libro de Excel puede compratirse y si no esta compartido, entonces al tratar de abrir un libro que ya esta abierto, nos dice si lo queremos abrir como solo lectura, cuando abrimos un archivo compartido se puede saber quien lo tiene abierto, pero cuando no esta compartido, es un poco más complicado, prueba la siguiente macro y pruébalo con un libro que este abierto en dos equipos, primero sin compartir y después compartiendo el libro...
Public Sub AbrirArchivo()
Dim wb As Workbook
Dim Usuarios As Variant
Dim co1 As Integer
Set wb = Workbooks.Open("D:\Libro1.xls")
If wb.ReadOnly Then
MsgBox "El libro TAL VEZ este abierto por otro usuario"
ElseIf wb.MultiUserEditing Then
Usuarios = wb.UserStatus
For co1 = 1 To UBound(Usuarios, 1)
MsgBox Usuarios(co1, 1)
Next co1
End If
wb.Saved = True
wb.Close
Set wb = Nothing
End Sub
Public Sub AbrirArchivo()
Dim wb As Workbook
Dim Usuarios As Variant
Dim co1 As Integer
Set wb = Workbooks.Open("D:\Libro1.xls")
If wb.ReadOnly Then
MsgBox "El libro TAL VEZ este abierto por otro usuario"
ElseIf wb.MultiUserEditing Then
Usuarios = wb.UserStatus
For co1 = 1 To UBound(Usuarios, 1)
MsgBox Usuarios(co1, 1)
Next co1
End If
wb.Saved = True
wb.Close
Set wb = Nothing
End Sub
