Обновление файла Excel

[Fordros]

Добрый день, форумчане!
Есть идея по обновлению файла, но как реализовать еще не придумал, может кто-то сталкивался и поможет советом или решением...
Работаю в сети где много точек, на которых по несколько пользователей, которые юзают "автоматизацию". При выявлении ошибок или каких-то недочетов или же при добавлении какого-то функционала я обычно высылаю файл (Автоматизация.xlsm) средствами почты (получателей около 300 чел) и файлы хоть обозначаю версией, для рядового юзера использовать последнюю версию является проблемой...
Думал включить проверку при открытии файла на номер версии и в случае несоответствия брать файлик (например лежит на серверном винте) и заменять текущий - новым, но вот как открытый файл заменить новым - хз?
Подскажите, пож-та, что можно придумать?

З.Ы. я не админ, поэтому установка стороннего ПО не является решением... =(

[doober]

Код в модуль книги,должно правильно сработать

Sub Замена()
    Dim wb1 As Workbook, wb2 As Workbook
    Dim Path As String, PathOrd As String
    Application.ScreenUpdating = False
    Set wb1 = ThisWorkbook
    Path = "Путь к файлу с новой версией"
    PathOrd = wb1.FullName
    On Error Resume Next
    Application.EnableCancelKey = xlDisabled
    Application.DisplayAlerts = False:
    wb1.ChangeFileAccess xlReadOnly
    Set wb2 = Workbooks.Open(Path)
    Kill PathOrd
    wb2.SaveAs (PathOrd)
    Application.DisplayAlerts = True
    ThisWorkbook.Close False
    Application.ScreenUpdating = True

End Sub

Private Sub Workbook_Open()
    If Проверка_Версии Then
        Замена
    End If
End Sub
Private Function Проверка_Версии() As Boolean
'Здесь ващ код

End Function

[Fordros]

doober, Вы как всегда, на уровне !!! =)
Спасибо!

[Radomir-m]

Ребята, подскажите, как сделать если обновить надо не всю книгу, а только
выборочные листы?

[Hugo121]

Ненужные листы удалить, открыть файл-образец, скопировать из него листы на место удалённых (с тем же именем), образец закрыть, книгу сохранить - всё это записывается рекордером.