Caros, boa tarde.
Me ajudem por favor.
Criei um arquivo com formulário. Quando o arquivo é aberto eu oculto o formulário através do comando "Application.Visible = False".
Depois mando abrir o formulário com "userform1.show.
O que desejo é que o usuário, ao clicar no "x" de fechar o formulário aconteça o seguinte:
Feche o formulário e reexiba o MS Excel.
Fiz o seguinte comando:
Private Sub UserForm_Terminate()
ActiveWorkbook.Save
Application.Visible = True
ThisWorkbook.Close
End Sub
Da até certo mas tem um problema. Ao clicar no formulário o excel mostra a mensagem que tá no anexo1.jpg
A mensagem é acompanhada de dois botões "OK" e "Cancelar".
Se o usuário clicar em Ok beleza. Ele fehca o form, fecha o arquivo e reexibe o excel.
Se o usuário clicar em "Cancelar" aí aparece a tela de erro anexo2.jpg
Aí, o aplicativo não é reexibido. O problema disto ocorrer é que os arquivos xls que estiverem abertos ficam invisíveis e o usuário vai achar que fecharam ou coisa assim.
Sabem como posso resolver isto ?
O que quero é que ao clicar no fehcar do form e ele feche o form e o arquivo e reexiba o excel.
Se tiver como fazer isto sem aparecer a mensagem anexo1.jpg me digam por favor como.
Muito obrigado.
valeu !
Postado : 19/07/2011 9:11 am