Que usuarios tienen el libro Excel abierto

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2019Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010

Al compartir un archivo podemos consultar que usuarios tienen el libro Excel abierto.

Que usuarios tienen el libro Excel abierto
  • CREAR MACRO
  1. Con Excel abierto.

  2. Pulsar la tecla Alt y mantener pulsada / Pulsar la tecla F11. Mostrará el editor de Visual Basic.

  3. Ir a: Barra de Menú / Insertar / Módulo. Mostrará la ventana del módulo donde escribimos la macro.

    Explorador de Proyectos con módulo1 seleccionado
  4. Escribir el código de la macro...

  5. Guardar el libro con la extensión *.xlsm. Libro habilitado para macros.

 
  • MEDIANTE MENSAJE

Sub Usuario1()

Dim usuarios, abierto As String, i As Long

usuarios = ActiveWorkbook.UserStatus

For i = 1 To UBound(usuarios)
abierto = abierto & usuarios(i, 1) & Chr(9) & usuarios(i, 2) & Chr(9) & usuarios(i, 3) & vbCrLf
Next i

MsgBox abierto, vbInformation, "Usuarios en Archivo"

End Sub

  1. Ejecutar la macro / Verificar como muestra un mensaje con la información de los usuarios con el libro abierto.

Mensaje Excel con usuarios abiertos
 
  • MEDIANTE NUEVO LIBRO

Sub Usuario2()

usuarios = ActiveWorkbook.UserStatus

With Workbooks.Add.Sheets(1)

For Row = 1 To UBound(usuarios, 1)
.Cells(Row, 1) = usuarios(Row, 1)
.Cells(Row, 2) = usuarios(Row, 2)

Select Case usuarios(Row, 3)
Case 1
.Cells(Row, 3).Value = "Exclusivo"
Case 2
.Cells(Row, 3).Value = "Compartido"
End Select
Next

End With

End Sub

  1. Ejecutar la macro / Verificar como crea un nuevo libro donde muestra la información de los usuarios con el libro abierto en exclusivo o compartido.

Nuevo libro Excel con los usuarios abiertos
Nivel de dificultad: Experto VBA-Macros Excel Experto VBA - Macros

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.