Notifications
Clear all

Fechar planilha com hora determinada

3 Posts
2 Usuários
0 Reactions
982 Visualizações
 Frrz
(@frrz)
Posts: 16
Active Member
Topic starter
 

Caros, Bom dia.
Estou com uma necessidade que está me afligindo!!!
Pesquisei no fórum, porém não encontrei algo que atendesse.

Preciso de um código que faça as seguintes etapas:

* Todos os dias as 17:00hrs verifique se a plan1 está com filtro, se sim, retirar.
* Também as 17:00hrs salvar e fechar.

Pois tenho outra macro que consolida todas as planilhas que preciso a questão é que se algum delas estiver com filtro, a mesma copia só as informações filtradas.
Como preciso que as planilhas salvem todos os dias as 17hrs gostaria que esse código fizesse isso em cada planilha.

Conto com o apoio de vocês e agradeço desde já.

 
Postado : 20/02/2017 7:01 am
leandroxtr
(@leandroxtr)
Posts: 447
Reputable Member
 

Eu não sei como abrir a planilha depois do horário colocado para fechar, mas se não conseguir abrir, amanha de manha conseguirá, pois está habilitada para fechar após 12:06 kkk
abrass

Se te ajudou, não se esqueça de dar um like na resposta e marcar o tópico como finalizado.

Abraços!
Leandro Cordeiro

 
Postado : 20/02/2017 9:09 am
 Frrz
(@frrz)
Posts: 16
Active Member
Topic starter
 

Olá Amigo, leandoxtr!
Obrigado por responder

Eu consegui fazer o que queria durante esse tempo e estava em outro dilema, porque meu código estava fechando a aplicação inteira (Application) e não estava conseguindo fazer fechar apenas a pasta de trabalho e seu código me ajudou com o ThisWorkbook.Close

Deixo o código final que me ajudou para posteriores duvidas.

Private Sub Workbook_Open()

Application.OnTime TimeValue("17:00:00"), "Fechar_Excel"

End Sub
Sub Fechar_Excel()

'Avisa o usuário sobre o procedimento
MsgBox "Sua Planilha foi salva as 17:00hrs. Aguarde 5 minutos para fazer alterações"
Application.DisplayAlerts = False

'Desprotege Planilha
ActiveSheet.Unprotect "PASSWORD"

'Retira o Filtro e coloca o Filtro novamente
Selection.AutoFilter
Selection.AutoFilter

'Protege a Planilha novamente com as restrições necessárias
ActiveSheet.Protect "PASSWORD"
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingRows:=True, AllowFiltering:=True

'Salva as Alterações
ThisWorkbook.Save

'Fecha o Excel
ThisWorkbook.Close

End Sub
 
Postado : 20/02/2017 10:56 am