Public VarSave As Integer

Sub Макрос1()
VarSave =  1 
ThisWorkbook.SaveAs ("MyName.xls")
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If VarSave <>  1  Then
    VarSave =  1 
    ThisWorkbook.SaveAs ("TheirName.xls")
    Cancel = True
  End If
End Sub

Public VarSave As Integer
Public TimeStart As Date
Sub Макрос1()
'этот макрос запускаем для установки VarSave = 1, т.е. было управляемое сохранение
VarSave =  1 
ThisWorkbook.SaveAs ("MyName.xls")
End Sub
Public Sub ForcedSave()
  dlgAnswer = Application.Dialogs(xlDialogSaveAs).Show("TheirName.xls")
  If Not dlgAnswer Then VarSave =  0 
End Sub

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  If VarSave <>  1  Then
    VarSave =  1 
    TimeStart = Now + TimeValue("00:00:03") ' через 3 сек
    Application.OnTime TimeStart, Procedure:="ForcedSave", Schedule:=True
    Cancel = True
  End If
End Sub