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,701 Visualizações
RSS
 Cisneiro
(@cisneiro)
Posts: 0
New 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)
Posts: 0
New Member
 

Posta pelo menos o código do Before_Close

 
Postado : 29/05/2018 12:50 pm
 Cisneiro
(@cisneiro)
Posts: 0
New 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: 0
New 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: 0
New Member
 

Troque isso:
ThisWorkbook.Application.Quit

por isto:

Thisworkbook.close

 
Postado : 29/05/2018 1:11 pm
 Cisneiro
(@cisneiro)
Posts: 0
New 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: 0
New 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)
Posts: 0
New Member
 

Tente:

ThisWorkbook.Save
ThisWorkbook.Close
 
Postado : 29/05/2018 1:54 pm
 Cisneiro
(@cisneiro)
Posts: 0
New 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)
Posts: 0
New Member
 

A ação de fechar é essa:

ThisWorkbook.Close

Deve haver algum outro código abrindo ela novamente.

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