MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Ricardo Monteiro em Qua Abr 18, 2018 1:20 pm

    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?

    cpampas
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

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

    Mensagem  cpampas em Qui Abr 19, 2018 5:37 am

    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

    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

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

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

    Mensagem  Ricardo Monteiro em Qui Abr 19, 2018 5:15 pm

    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.

      Data/hora atual: Sab Jul 21, 2018 9:46 am