Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Remove todos os objetos UserPermission da Coleção de permissões do documento ativo.
Sintaxe
expressão. RemoverTodos
expressão Uma variável que representa um objeto Permissão .
Comentários
O método RemoveAll remove todas as UserPermissions que foram adicionadas à Coleção de permissões e desativa as restrições no documento ativo. Depois de chamar o método RemoveAll , a propriedade Ativado do objeto Permissão devolve Falso e a propriedade Contar devolve 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.