Метод Permission.RemoveAll (Office)
Удаляет все объекты UserPermission из коллекции Permission активного документа.
Синтаксис
expression. Removeall
Выражение Переменная, представляющая объект Permission .
Замечания
Метод RemoveAll удаляет все userPermissions , добавленные в коллекцию Разрешений , и отключает ограничения для активного документа. После вызова метода RemoveAll свойство Enabled объекта Permission возвращает значение False, а свойство Count возвращает значение 0 (ноль).
Пример
В следующем примере метод RemoveAll используется для удаления всех разрешений пользователей и для отключения ограничений для активного документа.
Dim irmPermission As Office.Permission
Set irmPermission = ActiveWorkbook.Permission
If irmPermission.Enabled Then
irmPermission.RemoveAll
MsgBox "All permissions removed." & vbCrLf & _
"Count: " & irmPermission.Count & vbCrLf & _
"Enabled: " & irmPermission.Enabled, _
vbInformation + vbOKOnly, "IRM Information"
Else
MsgBox "This document is not restricted.", _
vbInformation + vbOKOnly, "IRM Information"
End If
Set irmPermission = Nothing
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.