Workbook.WriteReservedBy (Excel)

Retorna o nome do usuário que possui atualmente permissão para gravação na pasta de trabalho. String somente leitura.

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