How to update open Workbooks open on other computers?

[extremecorvette]

How to update open Workbooks open on other computers?
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o> </o>
Have a workbook that is set up as the quality tracker for our company. I set up security so everyone is promoted to open it as read only and for the few that have the password they can open it and make changes.
<o> </o>
I’m having an issue with people leaving there tracker open for days and about every hour I’m making updates or adding parts to it so when people are trying to run production they are not able to find the parts on the tracker. 99% of the time I just tell them to close it out then reopen it since I have already added the part.
<o> </o>
Is there a way to have all the workbooks that are opened as read-only run a macro after 60min or top of every hour they update?

 

[Ralajer]

The following is some code that might help you get started as it doesn't necessarily works as you need it to.

The following will run code at a specific time in your case an hour after the workbook opens. It calls the ReloadMe Sub.

Private Sub Workbook_Open()
    '// Run Code only if in readOnly mode
    If ThisWorkbook.ReadOnly = True Then
        Application.OnTime Now + TimeValue("01:00:00") "ReloadMe"
    End If
End Sub

This code will work to reopen a read-only file if call directly but if called from the above it will display message that it can't run the macro.

Sub ReloadMe()
    Application.DisplayAlerts = False
    Workbooks.Open Filename:=ThisWorkbook.FullName, ReadOnly:=True
    Application.DisplayAlerts = True
End Sub

This works the first time but not on subsequent reopens.

Private Sub Workbook_Open()
    If ThisWorkbook.ReadOnly = True Then
        Application.Wait Now + TimeValue("01:00:00")
        Application.DisplayAlerts = False
        Workbooks.Open Filename:=ThisWorkbook.FullName, ReadOnly:=True
        Application.DisplayAlerts = True
    End If
End Sub

I haven't dealt with this type of issue so it might not be possible but I don't know either way. Will look into it some more a little later.