procedure TDM2.SaveFileExclusive(FFileName: string);
var
  Workbook: Variant;
  ExcelApp: TExcelApplication;
begin

  ExcelApp := TExcelApplication.Create(nil);
  try
    ExcelApp.ConnectKind := ckNewInstance;
    ExcelApp.Connect;
    ExcelApp.Interactive[lcid] := False;
    // работать здесь
    Workbook := ExcelApp.WorkBooks.Open(FFileName, // Filename: WideString;
      2, // UpdateLinks: OleVariant; 2 - never update
      False, // ReadOnly: OleVariant;
      EmptyParam, // Format: OleVariant;
      EmptyParam, // Password: OleVariant;
      EmptyParam, // WriteResPassword: OleVariant;
      EmptyParam, // IgnoreReadOnlyRecommended: OleVariant;
      EmptyParam, // Origin: OleVariant;
      EmptyParam, // Delimiter: OleVariant;
      EmptyParam, // Editable: OleVariant;
      EmptyParam, // Notify: OleVariant;
      EmptyParam, // Converter: OleVariant;
      False, // AddToMru: OleVariant;
      EmptyParam, // Local: OleVariant;
      EmptyParam, // CorruptLoad: OleVariant;
      lcid);

    // запрещаем работу пользователю с нашим экземпляром Excel'я
    ExcelApp.DisplayAlerts[lcid] := False;


//  вот здесь сохраняю файл с отключением общего доступа, почему-то общий доступ сохраняется
    Workbook.SaveAs(FFileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, xlExclusive, EmptyParam, EmptyParam, EmptyParam, EmptyParam, False);


    // Этот способ только для Excel версии XP и выше
    SetForegroundWindow(ExcelApp.Hwnd);
  finally
    // не забыть разрешить пользователю доступ к Excel'ю!
    ExcelApp.DisplayAlerts[lcid] := True;
    ExcelApp.UserControl := True;
    ExcelApp.Interactive[lcid] := True;

    ExcelApp.Quit;
    ExcelApp.Disconnect;
    ExcelApp.Application.Quit;
    FreeAndNil(ExcelApp);
  end;
 
end;