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

    [Resolvido]Como verificar um aplicativo aberto em foco?

    avatar
    Convidad
    Convidado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Como verificar um aplicativo aberto em foco?

    Mensagem  Convidad 19/6/2012, 17:37

    Olá amigos, gostaria de saber se é possivel
    a partir do VBA verificar se um determinado aplicativo está
    aberto e se o mesmo está em foco/ativo.

    Pois preciso enviar uns SendKeys para o Excel do meu aplicativo
    em Access. Mas ele só deve enviar os sendkeys caso o Excel esteja
    aberto e ativo, para evitar de enviar para o bloco de bloco de notas
    ou para o Word, por exemplo. Não basta apenas aberto, terá que está ativo, pois no time de um form eu ponho os SendKeys, e caso a janela do Excel esteja ativa, ele envie
    as teclas.

    Grato pela ajuda!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  criquio 19/6/2012, 17:49

    E se colocasse para abrir o Excel antes de enviar as teclas?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Convidad 19/6/2012, 18:02

    Mas nesse caso, o usuário poderia também abrir o bloco de
    notas para ver o que estava sendo enviado, e ele não deve saber
    pois a planilha é protegida.
    avatar
    Convidad
    Convidado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Convidad 20/6/2012, 20:35

    Alguma sugestão?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8498
    Registrado : 05/11/2009

    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Alexandre Neves 20/6/2012, 21:48

    Boa noite, Marcos

    No seu caso, o Excel deve ter sido aberto por código dentro do Access, pois de outra forma o foco não está no Excel
    avatar
    Convidad
    Convidado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Convidad 20/6/2012, 23:57

    Obrigado, mas caso eu use o sendkyes e abrir o bloco de notas, as teclas serão
    enviadas para o bloco de notas, pois mesmo está ativo na a´ria de trabalho.
    O que preciso é que o sendkeys só envie as teclas caso a planilha esteja ativada na
    ária de trabalho. Alguma sugestão?
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  criquio 21/6/2012, 00:37

    O que você precisa que seja feito na planilha? Talvez fosse melhor utilizar um objeto Excel no lugar do SendKeys, dependendo da necessidade.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Convidad 21/6/2012, 02:39

    Vou tentar passa minha situação real aqui mestre criquio:
    Essa planilha efetua umas somas e mostra um gráfico de Gantt sobre a produtividade da empresa
    em relação aos funcionários. O problema
    é que não posso revelar a senha da planilha para os usuários, pois ela vem
    de uma empresa externa de contabilidade todos os dias. E sempre vem com um nome diferente. O usuário
    apenas deve verificar e alimentar um sistema online. O meu sistema em Access é um
    auxiliar, que ajuda em algumas tarefas. Mas tenho que todos os dias abrir a planilha
    nas 16 estações de trabalho. Isso me faz perder muito tempo.

    Caso o que estou pretendendo nesse tópico, for possível, fica fácil e eu automatizo
    a abertura da planilha pelo meu aplicativo em Access.

    Abrir a planilha pelo Access eu já sei e enviar as teclas também. Já fiz uns testes e
    funciona legal. Mas na hora que do meu Aplicativo em Access eu aperto o botão para
    abrir a planilha, e eu abrir o bloco de notas, a senha é enviada e fica no bloco de notas.
    Por isso eu gostaria de saber se tinha como saber qual aplicativo além de aberto, está
    ativo na ária de trabalho.
    (Tenho que ter muito cuidado com essa planilha, pois absolutamente ninguém poderá ter essa
    senha que é sobre meus cuidados).

    Grato pelo interesse.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  criquio 21/6/2012, 03:38

    Ainda não ficou claro o que realmente precisa ser feito na planilha do Excel. Essa SendKeys é só para mandar a senha para o arquivo? Eu preparei aqui um modelo que cria um objeto Excel, abre uma planilha com senha, insere um texto nas células A1 e A2, salva o arquivo e fecha o objeto. Veja se dá para adaptar:

    Código:
    Dim dExcel As Object
     
        Set dExcel = CreateObject("Excel.Application")

        dExcel.Visible = False

            dExcel.Workbooks.Open FileName:="C:\Pasta1.xlsx", Password:="123456"
            dExcel.Worksheets("Plan1").Activate

            dExcel.ActiveSheet.Range("A1").Select
            dExcel.ActiveCell.Value = "Texto para célula A1"
           
            dExcel.ActiveSheet.Range("A2").Select
            dExcel.ActiveCell.Value = "Texto para célula A2"
           
            dExcel.ActiveWorkbook.Save
            dExcel.ActiveWorkbook.Close
            dExcel.Quit

        Set dExcel = Nothing
    A linha dExcel.Visible = False faz com que tudo seja feito ocultamente, sem exibir a janela do Excel. Caso queira que a janela abra, passa False para True. Caso queira que o Excel permaneça aberto, retire a linha dExcel.Quit e caso queira que ele permaneça aberto com a planilha tambem aberta, retire tambem a linha dExcel.ActiveWorkBook.Close.

    Tente adaptar ao seu propósito.


    Última edição por criquio em 21/6/2012, 12:46, editado 1 vez(es)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Convidad 21/6/2012, 04:47

    Deu certo, era exatamente o que eu queria!! Muito obrigado criquio!!! cheers
    Errei o obrigado, pois foi a mensagem 9 que você postou o código que resolveu
    meu problema!

    Só mais uma dúvida (caso não precise de tantas mudanças):
    E se eu quisece apenas abrir outro arquivo Access protegido por
    senha, seria o mesmo procedimento?

    Muito grato por ter resolvido a questão!
    avatar
    Convidad
    Convidado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Convidad 21/6/2012, 12:23

    Obrigado criquio e demais, vocês são muito bons!
    (Vou abrir um outro tópico para seber dessa função
    em access.) Smile
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  criquio 21/6/2012, 12:48

    Grato pelo retorno. O fórum agradece.

    OBS.: Editei o código do post anterior. Não sei porque cargas d´água eu tinha repetido a linha que coloca o Excel oculto.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Como verificar um aplicativo aberto em foco? Empty Re: [Resolvido]Como verificar um aplicativo aberto em foco?

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 14:53