DeleteAll 方法

删除所有与访问工作表上受保护的单元格相关的用户。

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

示例

本示例中，Microsoft Excel 删除了所有与访问活动工作表中第一个受保护的单元格相关的用户。本示例假定工作表不受保护。

Sub UseDeleteAll()

    Dim wksSheet As Worksheet

    Set wksSheet = Application.ActiveSheet

    ' Remove all users associated with access to the first protected range.
    wksSheet.Protection.AllowEditRanges(1).Users.DeleteAll

End Sub