Macro para que solo un usuario pueda abrir un libro compartido en red

Estoy realizando un archivo y estoy atorado con este problema:

Tengo una base de datos que se va actualizando mediante un formulario, pero para no tener un archivo cada quien, se nos ocurrió, concentrar todo en uno compartido en red, para ello cuando inicia el archivo me pide llenar el formulario:

Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub

Si se ingresa con alguno de los 4 usuarios siguientes, me da acceso al archivo, hasta ahí todo bien

Private Sub CommandButton1_Click()

VALOR = TextBox1
Select Case VALOR
Case Is = "PACO"
Unload Me
Application.Visible = True
Application.WindowState = xlMaximized
Case Is = "AZA"
Unload Me
Application.Visible = True
Application.WindowState = xlMaximized

Case Is = "MUNDO"
Unload Me
Application.Visible = True
Application.WindowState = xlMaximized

Case Is = "CHARLIE"
Unload Me
Application.Visible = True
Application.WindowState = xlMaximized
Case Else

MsgBox "Usuario incorrecto", vbExclamation, "ATENCION"
End Select

End Sub

En donde estoy atorado, es si hay forma de que si Paco esta ocupando el archivo y alguien quiere abrirlo, le mande un mensaje "Archivo ocupado por Paco, intente más tarde", ¿no se si se pueda realizar esto?