Макрос автосохранения работает по-разному на разных машинах

Private Sub Workbook_Open()
module1
End Sub
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
 Application.DisplayAlerts = False
    If Not ThisWorkbook.Saved Then ThisWorkbook.Save
    Application.DisplayAlerts = True
End Sub
 
Sub module1()
Application.OnTime Now + TimeValue("00:00:10"), "module2"
End Sub
 
 
Sub module2()
iFullName$ = "C:\Documents and Settings\User\Рабочий стол\ХЗУ,16,01,2012\данные по ниткам.xls"
iFileName$ = Dir(iFileName$)
 
 
If iFileName$ <> "" Then
   ThisWorkbook.Save
Else
   MsgBox "Указанная книга изволит отсутствовать", , ""
End If
module1
End Sub

Sub myMacro()
Application.OnTime Now() + TimeSerial(0, 0, 5), "myMacro"
Application.DisplayAlerts = False
On Error GoTo label_
ThisWorkbook.Save
label_:
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim wb As Workbook
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    For Each wb In Workbooks
        If wb.Name <> ThisWorkbook.Name Then
            wb.Close SaveChanges:=True
        End If
    Next wb
    Application.DisplayAlerts = True
    Application.EnableEvents = True
End Sub

Private WithEvents xlApp As Application
 
Private Sub Workbook_Open()
    Set xlApp = Application
End Sub
 
Private Sub xlApp_WorkbookBeforeClose(ByVal Wb As Workbook, Cancel As Boolean)
    xlApp.ScreenUpdating = False
    xlApp.DisplayAlerts = False
    xlApp.EnableEvents = False
    For Each Wb In xlApp.Workbooks
        Wb.Save 'Wb.Close True
    Next
    xlApp.Quit
End Sub