Workbook.WriteReservedBy (Excel)

Devuelve el nombre del usuario que actualmente tiene permiso de escritura en el libro. String de solo lectura.

With ActiveWorkbook 
 If .WriteReserved = True Then 
 MsgBox "Please contact " & .WriteReservedBy & Chr(13) & _ 
 " if you need to insert data in this workbook." 
 End If 
End With