Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Macro fecha todas a...
 
Notifications
Clear all

Macro fecha todas as pastas abertas

 
2024 - VBA & Macros
4 Posts
2 Usuários
0 Reactions
671 Visualizações
RSS
 dimorais
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Bom dia
A macro abaixo fecha todas as pastas abertas e precisava que fechasse somente a pasta onde a mesma esta salva.

Public bye As Boolean
Sub Salvar_Sair()
Sheets("Simulador").Select
Ocultar
ActiveWorkbook.Save
Application.Quit
If Cancel = 0 Then
bye = True
End If
End Sub
Private Sub Ocultar()
End Sub

Grato

 
Postado : 07/02/2014 9:37 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Creio que o problema reside na linha--> Application.quit --> Comando que fecha o aplicativo Excel. Outra coisa, a instrução If... depois do comando quit ou close parece-me desnecessaria.
Experimente assim:

Sub Salvar_Sair()
Sheets("Simulador").Select
Ocultar
ActiveWorkbook.Close True
End Sub

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

 
Postado : 07/02/2014 10:16 am
 dimorais
(@dimorais)
Posts: 431
Reputable Member
Topic starter
 

Valeu Reinaldo muito bom

 
Postado : 07/02/2014 1:03 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.

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

 
Postado : 07/02/2014 1:06 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico