{"id":18090,"date":"2026-09-01T09:17:07","date_gmt":"2026-09-01T12:17:07","guid":{"rendered":"https:\/\/kb.elipse.com.br\/?p=18090"},"modified":"2026-09-01T09:38:39","modified_gmt":"2026-09-01T12:38:39","slug":"forcar-troca-de-senha-no-primeiro-login-com-o-metodo-loginuser","status":"publish","type":"post","link":"https:\/\/kb.elipse.com.br\/en\/forcar-troca-de-senha-no-primeiro-login-com-o-metodo-loginuser\/","title":{"rendered":"For\u00e7ar troca de senha no primeiro login com o m\u00e9todo LoginUser."},"content":{"rendered":"
\n
\n

Como identificar, pelo OpStatus<\/code> do LoginUser<\/code>, que o usu\u00e1rio precisa definir uma nova senha \u2014 e conduzir a troca em uma tela de login pr\u00f3pria.<\/p>\n<\/div>\n<\/div>\n

\n
\n

Introdu\u00e7\u00e3o<\/h2>\n

Para obrigar um usu\u00e1rio a definir a pr\u00f3pria senha no primeiro acesso, o Elipse E3 oferece a propriedade For\u00e7ar troca de senha<\/strong>, na aba Propriedades de Seguran\u00e7a do usu\u00e1rio. Em telas de login pr\u00f3prias \u2014 que usam LoginUser<\/code> no lugar da janela padr\u00e3o \u2014 cabe ao script detectar essa exig\u00eancia e conduzir a troca.<\/p>\n<\/section>\n

\n

1.<\/span> Habilitando a propriedade<\/h2>\n
    \n
  1. No E3 Studio, acesse o menu Arquivo<\/strong> e escolha Usu\u00e1rios<\/strong>.<\/li>\n
  2. Selecione o item Usu\u00e1rios<\/strong> e d\u00ea um duplo clique no usu\u00e1rio desejado.<\/li>\n
  3. Abra a aba Propriedades de Seguran\u00e7a<\/strong>.<\/li>\n
  4. Altere a op\u00e7\u00e3o For\u00e7ar troca de senha <\/strong>para Verdadeiro<\/strong>.<\/li>\n
  5. Confirme em OK<\/strong> e clique em Aplicar<\/strong>.<\/li>\n<\/ol>\n

    A propriedade vale apenas para usu\u00e1rios do Dom\u00ednio do Elipse E3 \u2014 contas com autentica\u00e7\u00e3o do Windows s\u00e3o gerenciadas pelo dom\u00ednio de rede.<\/p>\n

    \"\"Aba Propriedades de Seguran\u00e7a do usu\u00e1rio no E3 Studio, com a op\u00e7\u00e3o \u201cFor\u00e7ar troca de senha\u201d em Verdadeiro.<\/em><\/div>\n<\/section>\n
    \n

    2.<\/span> Detectando a exig\u00eancia no login<\/h2>\n

    LoginUser(Username, UserPassword, [OpStatus], [WarnDaysToExpire])<\/code> retorna um valor booleano e n\u00e3o exibe nenhuma mensagem. OpStatus<\/code> \u00e9 um par\u00e2metro de sa\u00edda<\/strong> \u2014 basta declarar uma vari\u00e1vel e pass\u00e1-la na chamada. Considere o login efetivo somente quando o retorno for True<\/code> e<\/strong> o OpStatus<\/code> for 0<\/code>.<\/p>\n

    Com a propriedade habilitada, o OpStatus<\/code> vem 4<\/code><\/strong> (a senha atual deve ser trocada). Outros valores frequentes: 2<\/code> credenciais inv\u00e1lidas, 8<\/code> senha expirada, 16<\/code> conta bloqueada e 32<\/code> conta desabilitada. A lista completa est\u00e1 na documenta\u00e7\u00e3o do LoginUser<\/code>.<\/p>\n<\/section>\n

    \n

    3.<\/span> Script da tela de login<\/h2>\n

    A tela tem tr\u00eas objetos: spUsuario<\/code> e spSenha<\/code> para as credenciais e spNovaSenha<\/code>, inicialmente invis\u00edvel, para a nova senha \u2014 \u00e9 a visibilidade desse campo que define a etapa. O c\u00f3digo vai no evento Click<\/code> do bot\u00e3o de confirma\u00e7\u00e3o (cole apenas o corpo; o E3 j\u00e1 fornece a linha de declara\u00e7\u00e3o do evento):<\/p>\n

    \n
    Dim<\/span> ok, st\r\n\r\nIf<\/span> Screen.Item(\"spNovaSenha\"<\/span>).Visible = False<\/span> Then<\/span>\r\n\r\n    ' --- Etapa 1: autenticacao ---<\/span>\r\n    ok = Application.LoginUser(Screen.Item(\"spUsuario\"<\/span>).Value, _\r\n                               Screen.Item(\"spSenha\"<\/span>).Value, st)\r\n    If<\/span> ok And<\/span> st = 0 Then Exit Sub<\/span>          ' login concluido<\/span>\r\n\r\n    If<\/span> st = 4 Or<\/span> st = 8 Then<\/span>                ' troca obrigatoria ou senha expirada<\/span>\r\n        MsgBox \"A senha deste usuario deve ser alterada.\"<\/span>, vbExclamation\r\n        Screen.Item(\"spNovaSenha\"<\/span>).Value = \"\"<\/span>\r\n        Screen.Item(\"spNovaSenha\"<\/span>).Visible = True<\/span>\r\n    Else<\/span>\r\n        MsgBox \"Falha no login (status \"<\/span> & st & \").\"<\/span>, vbCritical\r\n    End If<\/span>\r\nElse<\/span>\r\n    ' --- Etapa 2: troca da senha ---<\/span>\r\n    ok = Application.ChangeUserPassword(Screen.Item(\"spUsuario\"<\/span>).Value, _\r\n                                        Screen.Item(\"spSenha\"<\/span>).Value, _\r\n                                        Screen.Item(\"spNovaSenha\"<\/span>).Value, st)\r\n    If<\/span> ok And<\/span> st = 0 Then<\/span>\r\n        Screen.Item(\"spNovaSenha\"<\/span>).Visible = False<\/span>\r\n        Screen.Item(\"spSenha\"<\/span>).Value = \"\"<\/span>\r\n        Screen.Item(\"spNovaSenha\"<\/span>).Value = \"\"<\/span>\r\n        MsgBox \"Senha alterada com sucesso. Faca login novamente.\"<\/span>, vbInformation\r\n    Else<\/span>\r\n        MsgBox \"A nova senha foi recusada pela politica do Dominio \"<\/span> & _\r\n               \"(status \"<\/span> & st & \").\"<\/span>, vbCritical\r\n    End If<\/span>\r\n\r\nEnd If<\/span><\/pre>\n<\/div>\n
    ChangeUserPassword(Username, PasswordOld, PasswordNew, [OpStatus])<\/code> recebe a senha atual explicitamente, ent\u00e3o funciona sem uma sess\u00e3o autenticada \u2014 a situa\u00e7\u00e3o de quem foi barrado pela troca obrigat\u00f3ria. Teste sempre o retorno:<\/strong> se a nova senha violar a pol\u00edtica do Dom\u00ednio o m\u00e9todo falha, e sem essa verifica\u00e7\u00e3o o script anuncia um sucesso que n\u00e3o houve. O motivo da recusa vem no OpStatus<\/code>, em c\u00f3digos a partir de 0x001000<\/code>.<\/p>\n<\/section>\n
    \n
    4.<\/span> Observa\u00e7\u00f5es<\/h2>\n