Saving an Excel File

[Greg123]

We have a spreadsheet on a common computer that many users input data on throughout the day. Occassionally, the spreadsheet will be left open (but not saved) at the end of the day. We have a script that moves todays file every evening into a completed folder and copies a blank file for use the next day. The script works great. However, if the last person to input data for the day does not save the file, when the script runs that evening it will copy the file but only have the data up to the last time it was saved. I have enabled autosave in Excel and set it to save every 5 minutes, but this is not actually saving the file (I believe it only makes it available for auto-recovery). Is there a way I can get the file (through excel or through a scheduled task/script) to hard save any open files to eliminate this problem?

 

[Yongle]

VBA below saves and closes workbook automatically at 7pm (if still open)
- adapt to suit your own requirements

place in ThisWorkbook module

Private Sub Workbook_Open()
    Application.OnTime TimeValue("19:00:00"), "SaveAndClose"
End Sub

place in standard module

Sub SaveAndClose()
    With ThisWorkbook
        .Save
        .Close False
    End With
End Sub