UserAdministration([PosX], [PosY], [ShowMergeErrorsOnExit], [MergeDetails])

Este método abre uma caixa de diálogo que permite editar a lista de usuários do Servidor. As funções disponíveis são as seguintes:

•Mostrar a lista de todos os usuários

•Excluir usuários (não é possível excluir o usuário atual)

•Adicionar e editar usuários

•Editar as configurações de um usuário

•Alterar a senha de um usuário

•Alterar os demais dados de um usuário, tais como login e nome

Este método possui os seguintes parâmetros:

•PosX: Parâmetro opcional que indica a posição, em pixels, da caixa de diálogo em relação à margem esquerda da janela

•PosY: Parâmetro opcional que indica a posição, em pixels, da caixa de diálogo em relação à margem superior da janela

•ShowMergeErrorsOnExit: Parâmetro Booleano opcional que indica se deve ser mostrada uma janela com os erros durante a execução deste método. Caso este parâmetro seja omitido, nenhuma janela é mostrada ao final da execução

•MergeDetails: Parâmetro opcional de saída contendo uma String com os erros acontecidos durante a execução deste método

Caso os parâmetros PosX e PosY sejam omitidos, a respectiva coordenada da caixa de diálogo é centralizada na janela, e caso algum dos valores destes parâmetros posicionem a caixa de diálogo fora da área visível da janela, os valores são automaticamente ajustados para garantir que a caixa de diálogo esteja visível.

Este método retorna Verdadeiro se não houve nenhum problema na edição e Falso caso contrário. O código a seguir contém um exemplo de uso deste método.

Sub CommandButton_Click()
  'Variáveis para receber o resultado
  'e os erros de execução
  Dim retorno, erro
  retorno = Application.UserAdministration( , , False, erro)
  If Not retorno Then
    MsgBox "Erros na edição de usuários: " & erro
  End If
End Sub