返回当前对指定工作簿有写入权的用户的名称。String 类型,只读。
如果当前工作簿是写保护的,本示例将显示一则消息,其中包含将该工作簿以写保护方式保存的用户的名称。
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