How do I set a timeout for a file or folder on an Intranet Shared.

[Jason Morin]

Press Alt+F11, Insert > Module, and paste in the code
below:

Sub Autpen()
Application.OnTime Now + TimeValue("00:05:00"), "Closeit"
End Sub

Sub Closeit()
With ActiveWorkbook
.Save
.Close
End With
End Sub