Добавить макросом Module и Function

[3BEPOBOY]

VictorM
а это безопасно? потом какой-нибудь вирус во все документы не пропишется?

[agregator]

Вот. что получилось

Sub Сохранить_В_Новой_Книге()
    Sheets("Лист1").Copy
    '   Экспорт Module1 из текущей книги
    Filename = ThisWorkbook.Path & "\tempmodxxx.bas"
    ThisWorkbook.VBProject.VBComponents("Module1") _
      .Export Filename
      
'   Замена Module1 в файле UserBook.xls
    Set VBP = ActiveWorkbook.VBProject
    On Error GoTo ErrHandle
    With VBP.VBComponents
'        .Remove VBP.VBComponents("Module1")
        .Import Filename
    End With
    
'   Удаление временного файла
    Kill Filename
    MsgBox "Модуль успешно заменен.", vbInformation
    
'   Пока это не вставил не счеталось. Интересно!?
    [D918].FormulaR1C1 = "=ВМЕОШ(1)"
    [D918].ClearContents
    
    Exit Sub

ErrHandle:
'   Ошибка?
        MsgBox "ОШИБКА. Невозможно заменить модуль.", _
          vbCritical

End Sub

Пока это не вставил не счеталось.
[D918].FormulaR1C1 = "=ВМЕОШ(1)"
[D918].ClearContents
Интересно, а есть другой способ заставить счетать пользовательскую функцию (Calculate-не сработало)

[VictorM]

а это безопасно?

Когда мы разрешаем работу макросов, мы уже подвергаем комп опасности.
На VBA пишутся очень даже нехорошие макросы (вирусы), приходилось видеть образцы в инете.
Так что, тут выбор у каждого свой.