Al compartir un archivo podemos consultar que usuarios tienen el libro Excel abierto.
- CREAR MACRO
Con Excel abierto.
Pulsar la tecla Alt y mantener pulsada
Pulsar la tecla F11. Mostrará el editor de Visual Basic.Ir a: Barra de Menú
Insertar 
Módulo. Mostrará la ventana del módulo donde escribimos la macro.
Escribir el código de la macro.
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
Ejecutar la macro
Verificar como muestra un mensaje con la información de los usuarios con el libro abierto.
- 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
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.
Excel Experto VBA - Macros