Excel VBA在计时器上关闭并重新打开同一工作簿

Question

我在主集线器计算机上运行Program.xlsm。我想使网络上的其他计算机能够查看主集线器正在不断更新的工作簿（只读）。该代码在Program.xlsm工作簿的开头运行。

Private Sub Workbook_Open()

sHostName = Environ$("computername")
Application.ScreenUpdating = False

If sHostName = "MAIN" Then
    'Run code on a timer that includes re-saving Program.xlsm with new data.
Else
    Application.Wait (Now + TimeValue("0:01:05"))
    Set w = ThisWorkbook
    Set w2 = Workbooks
    src = "Program.xlsm"
    Set wb1 = w2.Open(Filename:=src, UpdateLinks:=False, ReadOnly:=True)
    w.Close
End If

End Sub

我希望网络上的用户能够打开“ Program.xlsm”，该程序将等待65秒，然后打开Program.xlsm的第二个实例，然后关闭Program.xlsm的第一个实例，并且之后每65秒继续。但这似乎没有任何作用。

我想念什么？