Users 属性

       

返回工作表上受保护区域的一个 UserAccessList 对象。

expression.Users

expression   必需。该表达式返回“应用于”列表中的对象之一。

示例

在本示例中,Microsoft Excel 显示允许访问活动工作表上第一个受保护区域的第一个用户的名称。本示例假定已选定一个区域进行保护,并且给定了一个访问该区域的特定用户。

Sub DisplayUserName()

    Dim wksSheet As Worksheet

    Set wksSheet = Application.ActiveSheet

    ' Display name of user with access to protected range.
    MsgBox wksSheet.Protection.AllowEditRanges(1).Users(1).Name

End Sub