MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    VBA - Internet Explorer - Erro 70 - Permissão Negada

    avatar
    Ricardo Monteiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 27/11/2017

    VBA - Internet Explorer - Erro 70 - Permissão Negada Empty VBA - Internet Explorer - Erro 70 - Permissão Negada

    Mensagem  Ricardo Monteiro 18/4/2018, 18:20

    Configurações:
    Win7 32 bits
    Office: 2007 sp3

    Bom dia, estou fazendo um aplicativo que acesse um site no Internet Explorer e faça login. O Código é o seguinte:
    Private Sub Comando0_Click()
    '---------------------------------------------------------------------
    'DECLARAÇÃO DE VARIÁVEIS
       Dim ie As New InternetExplorer
       Dim matricula As String, senha As String
    '---------------------------------------------------------------------
    'Inicia as variáveis
       matricula = InputBox("Insira sua matricula", "Matricula")
       senha = InputBox("Insira sua senha", "Senha")
    '---------------------------------------------------------------------
    'INICIA O INTERNET EXPLORER NAVEGA PARA A PÁGINA ESPECIFICADA E FAZ LOGIN
       With ie
           .Silent = True
           .Navigate "https://sei.df.gov.br/"
           .Visible = True
           Do Until .ReadyState = READYSTATE_COMPLETE
           Loop
           With .Document
               .all("txtUsuario").Value = matricula
               .all("pwdSenha").Value = senha
               .all("selOrgao").Value = 23
               .all("sbmLogin").Click
           End With
           Do Until .ReadyState = READYSTATE_COMPLETE
           Loop
       End With
    End Sub

    Ao chegar em ie.document.all("txtUsuario").value = matricula, o Access aponta o erro 70 - Permissão negada. No entanto, o mesmo código rodando a partir do Excel 2007 do mesmo computador funciona. As referências à biblioteca MS Internet Controls estão ativas em ambos. Já ativei e desativei as referências, já criei um novo banco de dados e o erro continua. Alguém sabe como resolver?
    avatar
    cpampas
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 27/10/2013

    VBA - Internet Explorer - Erro 70 - Permissão Negada Empty Re: VBA - Internet Explorer - Erro 70 - Permissão Negada

    Mensagem  cpampas 19/4/2018, 10:37

    Ola,

    Testei o seu codigo e comigo funciona, e nao da o erro que voce menciona
    Simplesmente diz " usuario ou senha invalido", o que parece dizer que esta a funcionar corretamente

    Algum outro problema esta a acontecer, mas parece ter algo a ver uma segurança do windows sendo ativada, mas tem na net varias soluçoes para o problema
    avatar
    Ricardo Monteiro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 50
    Registrado : 27/11/2017

    VBA - Internet Explorer - Erro 70 - Permissão Negada Empty Re: VBA - Internet Explorer - Erro 70 - Permissão Negada

    Mensagem  Ricardo Monteiro 19/4/2018, 22:15

    Pois é, tentei um monte de coisas e nada funcionou. Não acho que seja no windows porque o mesmo código executado no mesmo computador, mas pelo excel em vez de pelo access, funciona. Acho que é alguma configuração do access, mas não tem ideia de qual.

    Conteúdo patrocinado


    VBA - Internet Explorer - Erro 70 - Permissão Negada Empty Re: VBA - Internet Explorer - Erro 70 - Permissão Negada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 09:50