Workbook.WriteReservedBy (Excel)

Cette propriété renvoie le nom de l'utilisateur qui a actuellement l'autorisation d'écriture pour le classeur. Type de données String en lecture seule.

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