Notifications
Clear all

Comando Salvar e Fechar planilha

4 Posts
2 Usuários
0 Reactions
907 Visualizações
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Boa tarde colegas.
Preciso empregar os comandos "Active.workbook.Save" e "Application.Quit" de forma que quando o formulário estiver aberto ao clicar no botão "cancelar" não salvar e nem fechar o excel, apenas fechar o formulário.

Apliquei os comandos no Módulo após "Next i" e funcionou sem problemas, só que, se eu precisar usar o botão "cancelar" fecha o excel e não é isso que quero.

Acredito que de alguma forma seria melhor colocar nesses comandos abaixo, só não sei como.

Public Function cancelIsPressed() As Boolean
cancelIsPressed = Cancelled

End Function

Private Sub CancelButton_Click()
Cancelled = True
lblStatus.Caption = "Cancelled By User. Please Wait."

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 02/11/2016 10:14 am
(@mprudencio)
Posts: 2749
Famed Member
 

Use esse código no botao

Unload me

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 02/11/2016 2:16 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia.
Ja tentei mas da erro em outra linha no módulo.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/11/2016 4:59 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Bom dia colegas.

Depois de muito pelejar, achei a solução. Vejam o que fiz:

No Módulo, após comando "Next i", acrescentei...

If diag.cancelIsPressed = False Then

ActiveWorkbook.Save
Application.Quit

End If

End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 03/11/2016 6:00 am