Private Sub Workbook_Open()
    If Not ActiveWorkbook.MultiUserEditing Then
        ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared
    End If
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    On Error Resume Next
    ActiveWorkbook.SaveAs Filename:=ActiveWorkbook.FullName, AccessMode:=xlShared
End Sub
Public Sub AutoRefresh()
    Application.EnableEvents = False
    On Error GoTo ErrorHandler
    
    ' Refresh all data connections
    ThisWorkbook.RefreshAll
    
    ' Save the workbook
    ThisWorkbook.Save
    
    ' Schedule the next refresh
    Application.OnTime Now + TimeValue("00:00:10"), "AutoRefresh"
    
    Application.EnableEvents = True
    Exit Sub
    
ErrorHandler:
    MsgBox "An error occurred: " & Err.Description
    Application.EnableEvents = True
End Sub

Public Sub StopAutoRefresh()
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:10"), "AutoRefresh", , False
End Sub