Private Sub ExportFormulas()
    iFormulas$ = ThisWorkbook.Path & "\Formulas.txt"
    If Table.ProtectContents = True Then
       MsgBox "Рабочий лист защищён", _
       vbCritical, "Ошибка пользователя !!!"
       Exit Sub
    End If
    On Error GoTo ErrHandler
    Dim iSource As Range, iCell As Range
    Set iSource = Table.UsedRange.SpecialCells(xlFormulas)
 
    Open iFormulas$ For Output As #1
         For Each iCell In iSource
             Write #1, iCell.Address, iCell.Formula
         Next
    Close #1
ErrHandler:
    If Err.Number <> 0 Then
       MsgBox Err.Description, vbCritical, Err.Number
    End If
End Sub
 
Private Sub ImportFormulas()
    iFormulas$ = ThisWorkbook.Path & "\Formulas.txt"
    If Dir(iFormulas$) = "" Then
       MsgBox "Архивный файл изволит отсутствовать", _
       vbCritical, "Ошибка пользователя !!!"
       Exit Sub
    End If
    If Table.ProtectContents = True Then
       MsgBox "Рабочий лист защищён", _
       vbCritical, "Ошибка пользователя !!!"
       Exit Sub
    End If
    With Application
         .EnableCancelKey = xlDisabled
         .ScreenUpdating = False
         .DisplayAlerts = False
         .EnableEvents = False
         .Calculation = xlManual
         Open iFormulas$ For Input As #1
              Do While Not EOF(1)
                 Input #1, iAddress$, iFormula$
                 Table.Range(iAddress$) = iFormula$
              Loop
         Close #1
         If MsgBox("Вы хотите сохранить изменения ?", _
         vbYesNo, "") = vbYes Then ThisWorkbook.Save
         .Calculation = xlAutomatic
         .EnableEvents = True
         .DisplayAlerts = True
         .ScreenUpdating = True
         .EnableCancelKey = xlInterrupt
    End With
End Sub