Workbook.WriteReservedBy (Excel)

Gibt den Namen des Benutzers zurück, der momentan Schreiberlaubnis für die Arbeitsmappe besitzt.

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