Workbook.WriteReservedBy (Excel)

Returns the name of the user who currently has write permission for the workbook.

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