Notifications
Clear all

Comando Salvar e Fechar planilha

4 Posts
2 Usuários
0 Reactions
891 Visualizações
(@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

 
Postado : 02/11/2016 10:14 am
(@mprudencio)
Posts: 0
New Member
 

Use esse código no botao

Unload me

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

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

 
Postado : 03/11/2016 4:59 am
(@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

 
Postado : 03/11/2016 6:00 am