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