Como faço para fechar o runner através de uma macro?

Question

Olá,

Precisamos fazer algo para obrigar o cliente executar uma rotina no sistema para o correto funcionamento do mesmo, então nossa idéia inicial foi incluir um evento na macro, mais precisamente no evento OnOpen da aplicação, para que se o cliente ainda não executou a rotina uma mensagem será apresentada informando da necessidade de fazer isso, e se ele optar por executar esta rotina, um formulário seria apresentado para isso, porém se o usuário optar por não executar a rotina a aplicação seria fechada automaticamente, e minha dúvida está em como fechar a aplicação, já tentei utilizar o Close e alguns outros exemplos que achei ser possível, porém nenhum funcionou.

É possível fechar a aplicação através de uma macro?

se for como faço isso?

Answer 1

Consegui resolver esse problema da seguinte maneira:

Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long

Public Sub Fechar
      Dim Comando As String

      Comando = "taskkill /F /PID " + CStr(GetCurrentProcessId())
      Shell(Comando)
End Sub

 

Answer 2

Matheus,

Tente utilizar o método "RestartSystem".

Comments

Não funcionou Gielow, ao executar esse comando o sistema apresenta uma mensagem dizendo que não foi possível reniciar o sistema.