View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
[email protected] blkoehler@gmail.com is offline
external usenet poster
 
Posts: 1
Default 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