[Resolvido]Como verificar um aplicativo aberto em foco?

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!

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

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.

Alguma sugestão?

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

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?

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

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.

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.

Deu certo, era exatamente o que eu queria!! Muito obrigado criquio!!!
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!

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

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.