Método Permission.RemoveAll (Office)
Remove todos os objetos UserPermission da coleção Permissão do documento ativo.
Sintaxe
expressão. Removeall
Expressão Uma variável que representa um objeto Permission .
Comentários
O método RemoveAll remove todas as UserPermissions que foram adicionadas à coleção Permission e desabilita restrições no documento ativo. Depois de chamar o método RemoveAll , a propriedade Habilitada do objeto Permission retorna False e a propriedade Count retorna 0 (zero).
Exemplo
O exemplo a seguir usa o método RemoveAll para remover todas as permissões de usuário e desativar restrições no documento ativo.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.