VBA Excel - fechar programas externos

[mmomesso 0]

Meus caros,

 

criei para o meu trabalho um painel de pesquisa de satisfação, onde utilizo um monitor touch para as pessoas clicarem nos 4 botões.

 

Acontece que, eu trabalho em uma escola, onde os alunos são mais espertos do que a gente imagina, e como não havia bloqueio, eles fechavam e até alterava.

 

Então, o painel foi criado em VBA no excel, onde um Form cobre toda a tela, e tem um Menu com opções. para acessar o Menu eu inseri uma senha, então, ninguém consegue fechar e nem fazer nada a não ser votar nos 4 botões.

Como o monitor é touch, eu consigo abrir o teclado virtual através do Shellexecute, então não deixo teclado nem mouse disponível, porém, gostaria de uma ajuda para inserir um código VBA para fechar o teclado após o OK da senha.

 

 

O código que utilizo para abri o teclado virtual é esse


 

Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
    ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Sub sbx_abrir_teclado_virtual()
ShellExecute 0, "open", "osk.exe", "", "", 1
End Sub
 

 

abre numa boa, mas não consegui desenvolver um código para fechar o teclado.

 

 

se alguém souber como fazer,  agradeço a ajuda