Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Fechar apenas a pas...
 
Notifications
Clear all

Fechar apenas a pasta de trabalho ativa e não todas.

 
2024 - VBA & Macros
Post Recente por xlarruda 6 anos atrás
10 Posts
3 Usuários
0 Reactions
1,708 Visualizações
RSS
 Cisneiro
(@cisneiro)
Posts: 75
Trusted Member
Topic starter
 

Galera boa tarde, tenho uma planilha onde coloquei um código para criar um backup automaticamente antes de fechar a planilha, isso como um evento "beforeClose".

e no menu principal coloquei um botão que ao ser clicado , o excel salva e depois fecha o arquivo. funciona , porém todas as pastas de trabalho que estão abertas são fechadas também. Não sei se estou errando no código ou isso é bug do excel. por favor se alguém puder ajudar agradeço. esse seria o ultimo ajuste para o programa funcionar. obrigado

não consegui anexar o arquivo pois é maior do que 50kb.

 
Postado : 29/05/2018 12:49 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Posta pelo menos o código do Before_Close

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/05/2018 12:50 pm
 Cisneiro
(@cisneiro)
Posts: 75
Trusted Member
Topic starter
 

Private Sub Workbook_BeforeClose(Cancel As Boolean)

ThisWorkbook.SaveCopyAs "C:UsersLuanDocumentsPlanilhas VídeosCOPIABackup" & "_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & "_" & Hour(Now) & "h" & Minute(Now) & "m" & Second(Time) & "s" & ".xlsm"

MsgBox "Backup criado com sucesso!", vbInformation, "BACKUP"

End Sub

 
Postado : 29/05/2018 12:54 pm
 Cisneiro
(@cisneiro)
Posts: 75
Trusted Member
Topic starter
 

e o código pra salvar e fechar coloquei esse:

ActiveWorkbook.Save
ThisWorkbook.Application.Quit

 
Postado : 29/05/2018 12:57 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Troque isso:
ThisWorkbook.Application.Quit

por isto:

Thisworkbook.close

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 : 29/05/2018 1:11 pm
 Cisneiro
(@cisneiro)
Posts: 75
Trusted Member
Topic starter
 

Não funciona Marcelo, agora nem o backup está fazendo e a planilha não fecha, a unica coisa que funciona é a msgbox.

ela tipo fecha e volta.

só cria o backup quando fecho pelo X vermelho do canto superior direito da tela.

 
Postado : 29/05/2018 1:21 pm
 Cisneiro
(@cisneiro)
Posts: 75
Trusted Member
Topic starter
 

Marcelo teria como você testar em uma planilha em branco no seu excel, de repente ta acontecendo só no meu computador isso.

 
Postado : 29/05/2018 1:28 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

Tente:

ThisWorkbook.Save
ThisWorkbook.Close

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/05/2018 1:54 pm
 Cisneiro
(@cisneiro)
Posts: 75
Trusted Member
Topic starter
 

ela fecha e reabre de novo, mas agora fez o backup. pelo fechar no X vermelho funciona. qual seria o código quando eu aperto no X vermelho?

tipo, a ação de fechar uma planilha pelo X vermelho é equivalente a qual código VBA, por ai eu coloco esse código no botão.

 
Postado : 29/05/2018 2:09 pm
xlarruda
 xlarruda
(@xlarruda)
Posts: 732
Honorable Member
 

A ação de fechar é essa:

ThisWorkbook.Close

Deve haver algum outro código abrindo ela novamente.

___________________________________________________________________________________________
Se a resposta atendeu sua dúvida, por favor, clique no Gostei e marque o Tópico como [Resolvido].

Att.

André Arruda

 
Postado : 29/05/2018 2:26 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico