WriteReservedBy 属性

       

返回当前对指定工作簿有写入权的用户的名称。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