Private Declare PtrSafe Function CreateHardLink Lib "kernel32.dll" Alias "CreateHardLinkA" ( _
                        ByVal lpFileName As String, _
                        ByVal lpExistingFileName As String, _
               Optional ByVal lpSecurityAttributes As LongPtr) As Long
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
    With ThisWorkbook
        Stop
        If .Saved Then
            Cancel = True
        Else
            Dim HrdLnkPt$
            HrdLnkPt = .Path & "\BackUp\" & _
                Mid$(.Name, 1, Len(.Name) - 5) & Format$(Now, "_yyyymmdd_hhmmss") & ".xlsm"            

            If CreateHardLink(HrdLnkPt, .FullName) = 0 Then
                Debug.Print "неудачная попытка сохранения рез. копии" & vbCr & HrdLnkPt
            End If
        End If
    End With
End Sub

/**
    * Sets a value to the current cell or cell range.
    * @memberof ApiRange
    * @typeofeditors ["CSE"]
    * @param {string | bool | number | Array[] | Array[][]} data - The general value for the cell or cell range.
    * @return {boolean} - returns false if such a range does not exist.
    */
   ApiRange.prototype.SetValue = function (data) {
      if (!this.range)
         return false;

      let worksheet = this.range.worksheet;

      if (Array.isArray(data)) {
         let checkDepth = function (x) {
            return Array.isArray(x) ? 1 + Math.max.apply(this, x.map(checkDepth)) : 0;
         };
         let maxDepth = checkDepth(data);
         if (maxDepth <= 2) {
            if (this.range.isOneCell()) {
               data = maxDepth == 1 ? data[0] : data[0][0];
            } else {
               let bbox = this.range.bbox;
               let nRow = bbox.r2 - bbox.r1 + 1;
               let nCol = bbox.c2 - bbox.c1 + 1;
               for (let indC = 0; indC < nCol; indC++) {
                  for (let indR = 0; indR < nRow; indR++) {
                     let value = (maxDepth == 1 ? data[indC] : data[indR] ? data[indR][indC] : null);
                     if (value === undefined || value === null)
                        value = AscCommon.cErrorLocal["na"];

                     let cell = this.range.worksheet.getRange3((bbox.r1 + indR), (bbox.c1 + indC), (bbox.r1 + indR), (bbox.c1 + indC));
                     let merged = cell.hasMerged();
                     if (merged)
                        cell = this.range.worksheet.getRange3(merged.r1, merged.c1, merged.r1, merged.c1);

                     value = checkFormat(value.toString());
                     cell.setValue(value.toString());
                     if (value.type === AscCommonExcel.cElementType.number)
                        cell.setNumFormat(AscCommon.getShortDateFormat());
                  }
               }
               worksheet.workbook.handlers.trigger("cleanCellCache", worksheet.getId(), [this.range.bbox], true);
               worksheet.workbook.oApi.onWorksheetChange(this.range.bbox);
               return true;
            }
         }
      }
      data = checkFormat(data || 0);
      let range = this.range;
      let merged = range.hasMerged();
      if (merged)
         range = this.range.worksheet.getRange3(merged.r1, merged.c1, merged.r1, merged.c1);

      range.setValue(data.toString());
      if (data.type === AscCommonExcel.cElementType.number)
         range.setNumFormat(AscCommon.getShortDateFormat());

      worksheet.workbook.handlers.trigger("cleanCellCache", worksheet.getId(), [range.bbox], true);
      worksheet.workbook.oApi.onWorksheetChange(range.bbox);
      return true;
   };