Thread
:
Updating Shared Workbook
View Single Post
#
2
Posted to microsoft.public.excel.misc
[email protected]
external usenet poster
Posts: 1
Updating Shared Workbook
You can use VBA code to set your own timer. The following code will
save every 5 minutes:
Dim NextTime As Date
Sub Auto_Open()
NextTime = Now + TimeValue("0:05:00") ' in 5 minutes
Application.OnTime NextTime, "SaveMe"
End Sub
Sub SaveMe()
ThisWorkbook.Save
NextTime = Now + TimeValue("0:05:00") ' in 5 minutes
Application.OnTime NextTime, "SaveMe"
End Sub
Sub Auto_Close()
If NextTime<0 Then
Application.OnTime NextTime, "SaveMe", schedule:=False
NextTime = 0
End If
End Sub
Hope this helps.
Brandon Koehler
Analytical Consultant
Chris wrote:
OK... I got a shared workbook that 3 different people update every 30 minutes
or so... My question is: I set the actual shared workbook/advanced properties
to automatically update every 5 minutes but every time someone opens the
workbook, they have to manually go into the Tools/SharedWorkbook/Advanced and
change the setting. Is there a way to do this automatically so that anyone
who opens this particular workbook, the Tools/SharedWorkbook/Advanced will
automatically changed to Update every 5 minutes?
--
----------
Chris
Reply With Quote
[email protected]
View Public Profile
Find all posts by
[email protected]