Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Microsoft Office Ex...
 
Notifications
Clear all

Microsoft Office Excel parou de funcionar

 
2024 - VBA & Macros
Post Recente por MPrudencio 9 anos atrás
12 Posts
2 Usuários
0 Reactions
2,635 Visualizações
RSS
 tonilanis
(@tonilanis)
Posts: 32
Eminent Member
Topic starter
 

Tento usar a macro abaixo que sempre que acionado um botão fechar deveria fazer uma cópia de backup, salvar, fechar a pasta ativa etc., conforme está na macro, porém, sempre que este botão é acionado o excel para de funcionar.
Qual o problema? Esta nesta macro? Alguém pode de me ajudar?

Public Sub CriarBackup()
On Error GoTo Erro
'Altere a constante abaixo para que ela aponte
'para o seu arquivo de backup
Const SILMARA_BACKUP As String = "D:Mundo_ImaginaçãoSistemasBackUPSSILMARA_BACKUP.xlsm"
If (Dir(SILMARA_BACKUP) <> "") Then
Kill SILMARA_BACKUP
End If
ThisWorkbook.SaveCopyAs Filename:=SILMARA_BACKUP
ActiveWorkbook.Save

ActiveWorkbook.Close
Application.DisplayFullScreen = False
Application.Quit

Fim:

Exit Sub
Erro:
MsgBox "Erro ao criar backup:" & vbCrLf & _
Err.Description, vbOKOnly + vbCritical, "Atenção"
Err.Clear
Resume Fim

End Sub

 
Postado : 18/01/2016 9:50 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Ja tentou depurar o codigo???

Para ver em que linha ele "trava"?

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 : 18/01/2016 10:15 am
 tonilanis
(@tonilanis)
Posts: 32
Eminent Member
Topic starter
 

Olá MPrudêncio.

Retirei do código "ActiveWorkbook.Close" e está fechando embora demore um pouco.
Testei retirando "Application.Quit" para ver o que aconteceria e neste caso ao acionar o botão para fechar a pasta ativa, ocorre o erro.
Pra mim o ideal é que eu fechasse a pasta ativa sem fechar o excel, que pode estar com outra pasta aberta simultaneamente e que eu ainda desejaria continuar usando.
Alguma ideia?

 
Postado : 18/01/2016 12:21 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Nenhuma vc nao respondeu o que perguntei acima...

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 : 18/01/2016 12:45 pm
 tonilanis
(@tonilanis)
Posts: 32
Eminent Member
Topic starter
 

Notei na depuração que retirando "ActiveWorkbook.Close" não travou. Foi isso.

De qualquer forma, grato pela resposta.

 
Postado : 18/01/2016 3:52 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Isso nao é motivo para travar qual o tamanho desse arquivo????

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 : 18/01/2016 5:48 pm
 tonilanis
(@tonilanis)
Posts: 32
Eminent Member
Topic starter
 

Tem 6,93mb será acrescentada uma outra planilha pra limitar o acesso de usuários e administrador.

 
Postado : 18/01/2016 6:08 pm
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Continuo dizendo nao é motivo pra travar...

Qdo vc fecha o arquivo manualmente demora tb???

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 : 18/01/2016 6:39 pm
 tonilanis
(@tonilanis)
Posts: 32
Eminent Member
Topic starter
 

Fechando manualmente considero normal.

 
Postado : 19/01/2016 8:14 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Pode disponibilizar o arquivo com dados de exemplo...

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 : 19/01/2016 8:19 am
 tonilanis
(@tonilanis)
Posts: 32
Eminent Member
Topic starter
 

Boa Tarde Prudêncio,
Anexei o arquivo no qual que estou trabalhando com todas as planilhas e dados de exemplo. Estou checando as funcionalidades para entrar na finalização que inclui ainda (em nível de informação) o acréscimo de tela de login com cadastro de usuário com níveis de acesso restrito qdo não se tratar de administrador

 
Postado : 19/01/2016 9:40 am
 MPrudencio
(@mprudencio)
Posts: 2749
Famed Member
 

Pra começar poderia diminuir a quantidade de planilhas, por exemplo a planilhas balanços podem ser unidas sem nenhum problema, a planilha caixa vale a mesma regra da pra juntar tudo.

Mesmo assim todos os testes que fiz aqui, inclusive alterei o codigo para

activeworkbook.close, para fechar somente o arquivo e nao tive problemas em fechar o arquivo

Faça uma limpeza em sua maquina, limpando temporarios e apagando cookies de internet, outras manutenções como desfragmentar discos e limpezas com programas como CCleaner podem ajudar no desempenho..

Aqui esta funcionando normalmente.

Como eu disse nao era para travar.

Aqui nao deu problema nenhum incluive alterei o codigo para salvar no meu pc e nao deu nenhum problema de travamento.

Sinceramente nao tenho ideia do que esta errado.

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 : 19/01/2016 11:29 am
Forum Jump:
  Tópico Anterior
Próximo Tópico