Pessoal,
Eu utilizo o código abaixo para o encerramento do meu sistema.
O que acontece é que, utilizando-o, aparentemente dá tudo certo, ou seja, o projeto é ''fechado'' e os lançamentos/alterações são salvas, mas isso não é verdade, o Excel ainda fica processando. (vejam o print do gerenciador de tarefas do windows). Outra dificuldade que eu tenho é para abrir uma nova planilha do Excel, depois que eu abro e "fecho" esse sistema em questão.
'código para encerrar o sistema
Private Sub image6_Click()
Application.OnKey "{Escape}", ""
Dim response
Dim lastRow As Object
response = MsgBox("Deseja realmente sair do Sistema?", vbYesNo, "Atenção!")
Select Case response
Case 6
ThisWorkbook.Worksheets("bd").Select
"cadastra na célula [bz1] o número 2, fazendo com que, ao abrir o sistema novamente, digitemos o login e a senha e acesso.
Set lastRow = Worksheets("bd").Range("bz:bz").End(xlUp)
lastRow.Offset(0, 0).Value = "2"
Unload Me
'essa sheets é todo preta. Utilizo-a para aparecer enquanto o projeto é aberto.
ThisWorkbook.Worksheets("tela de boas vindas").Select
ActiveWorkbook.Save
ThisWorkbook.Close True
Application.Quit
Case 7
'caso não queira fechar, nada é feito.
End Select
End Sub
O que está encerrado?
Postado : 23/10/2014 4:57 am