返回工作表上受保护区域的一个 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