返回一个 UserAccessList 集合后，便可用 Count 属性来确定访问受保护区域的用户数量。在下例中，Microsoft Excel 将访问第一个受保护区域的用户的数量通知给用户。本示例假定受保护的区域位于活动工作表上。

复制代码 代码如下:

Sub UseDeleteAll()

Dim wksSheet As Worksheet

Set wksSheet = Application.ActiveSheet

' Notify the user the number of users that can access the protected range.

MsgBox wksSheet.Protection.AllowEditRanges(1).Users.Count

End Sub