Macro to Auto save a backup copy in a seperate location OR save file with a pop up

I am not GREAT at Macros, so I will try and explain what I need the best I can.

We have a workbook that has a macro already with a Live Clock that calculates the job times etc. It is on a Server for remote access and used by many people 1 at a time. I look in the file at the data to send intervention emails regarding the times etc. The problem, is that the user does not SAVE the file but every couple of hours so I am not seeing live data. We cannot force a save without a pop up of sometimes, which would be the best bet, but I am unsure how to do that.

Another option is to Autosave a backup file every so many minutes that I could view remotely and use to send the intervention emails without disturbing their copy. Any ideas?

Thank you for your help! I got this to work but it took away the live clock macro. I guess I need to learn how to do it without taking that one away. I appreciate your reply! thanks again!

the book itself has a mess of macros.. it is 3270 KB so it will not let me attach it to show you.

in Workbook I have :
Private Sub Workbook_Open()



Recalc



End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)

Disable

End Sub

Module 1 is:
Dim SchedRecalc As Date

Sub Recalc()

With Sheet36.Range("B1")


.Value = Format(Time, "hh:mm:ss AM/PM")

End With

Call SetTime

End Sub

Sub SetTime()

SchedRecalc = Now + TimeValue("00:00:30")

Application.OnTime SchedRecalc, "Recalc"

End Sub

Sub Disable()

On Error Resume Next

Application.OnTime EarliestTime:=SchedRecalc, Procedure:="Recalc", Schedule:=False

End Sub

Then each sheet has its own: (there is 31 tabs, 1 for each day of the month)

'==========================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim str As String
Dim cboTemp As OLEObject
Dim ws As Worksheet
Set ws = ActiveSheet

Set cboTemp = ws.OLEObjects("TempCombo")
On Error Resume Next
With cboTemp
'clear and hide the combo box
.ListFillRange = ""
.LinkedCell = ""
.Visible = False
End With
On Error GoTo errHandler
If Target.Validation.Type = 3 Then
'if the cell contains a data validation list
Cancel = True
Application.EnableEvents = False
'get the data validation formula
str = Target.Validation.Formula1
str = Right(str, Len(str) - 1)
With cboTemp
'show the combobox with the list
.Visible = True
.Left = Target.Left
.Top = Target.Top
.Width = Target.Width + 5
.Height = Target.Height + 5
.ListFillRange = str
.LinkedCell = Target.Address
End With
cboTemp.Activate
'open the drop down list automatically
Me.TempCombo.DropDown

End If

errHandler:
Application.EnableEvents = True
Exit Sub

Thank you So much for your help Bernie! That worked perfect.