Que tal fechar a sua planilha caso esta fique aberta por tempo demais?
Private Sub Workbook_Open()Let CloseAs = CDbl(Now + 5 / 86400)SetClosingTimeEnd Sub
Coloque o código abaixo num novo módulo:
Public CloseAs As DoubleSub SetClosingTime()Application.OnTime CloseAs, "CloseWorkbook", , TrueEnd SubSub CloseWorkbook()With ThisWorkbook.Save.CloseEnd With' Remove the line below to close the application' Application.QuitEnd Sub
Nenhum comentário:
Postar um comentário