Макросы для excel связи разорвать

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	Собственно говоря вопрос в чем при копировании листа разорвать ВСЕ связи на другие листы и книги -превратив данные в значения а формулы на листе все оставить как есть. Жмем кнопочку копия без связей  ..можно и спросить куда копировать как в стандартной копии листа. Если не сложно, спасибо Макрос точно был.

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	Сорри файл Прикрепленные файлы Форма.xls (35.5 КБ)

Бахтиёр Пользователь Сообщений: 1930 Регистрация: 15.01.2016 Excel 365	#3 23.06.2016 08:56:23 Код Sub rrr() Sheets("нужный_лист").Copy For Each x In ActiveSheet.UsedRange If x.Formula Like "*!*" Then x.Value = x.Value End If Next End Sub

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	Бахтиёр    спасибо, а сюда текущий  лист вписывать          «нужный_лист»

JeyCi Пользователь Сообщений: 3357 Регистрация: 27.11.2013

#5 23.06.2016 09:01:51 Цитата Микки написал: текущий  лист ActiveSheet.Copy ? вы имели ввиду? — «с текущего»?… если с другого .Copy — то его имя (того другого) p.s. вместо Бахтиёр   Изменено: JeyCi — 23.06.2016 09:04:33 чтобы не гадать на кофейной гуще, кто вам отвечает и после этого не совершать кучу ошибок — обратитесь к собеседнику на ВЫ — ответ на ваш вопрос получите — а остальное вас не касается (п.п.п. на форумах)

Бахтиёр Пользователь Сообщений: 1930 Регистрация: 15.01.2016 Excel 365

#6 23.06.2016 09:12:03 Цитата Бахтиёр написал: Sub rrr() Sheets(«нужный_лист»).Copy … Этот макрос: 1) С активной книги берёт лист с названием «нужный_лист» и копирует этот лист в новую книгу. 2) В этот момент этот самый вновь созданый лист становится активным. 3) В этом новом листе формулы со ссылками на другие книги и на другие листы преобразовываются в значения. Теперь вам остаётся только сохранить новый лист куда-то под каким-то именем вручную (Эти движения тоже можно написать в макросе)

Бахтиёр Пользователь Сообщений: 1930 Регистрация: 15.01.2016 Excel 365	Если Sheets(«нужный_лист»).Copy поменять на ActiveSheet.Copy то макрос проделает вышеописанные действия над тем листом, который был активным (в активной книге) в момент запуска макроса. Изменено: Бахтиёр — 23.06.2016 09:18:08

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	А макрос в эту книгу? Правильно?

Бахтиёр Пользователь Сообщений: 1930 Регистрация: 15.01.2016 Excel 365

Микки Пользователь Сообщений: 3280 Регистрация: 24.12.2012	#10 23.06.2016 10:10:36 Да спасибо работает

Код

Range(«J11:J400»).Select
Selection.Copy
Range(«J11:J400»).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False

Хитрости »

30 Декабрь 2018              78766 просмотров

---

Невозможно разорвать связи с другой книгой

Прежде чем разобрать причины ошибки разрыва связей, не лишним будет разобраться что такое вообще связи в Excel и откуда они берутся. Если все это Вам известно — можете пропустить этот раздел

• Что такое связи в Excel и как их создать
• Как разорвать/удалить связи
• Что делать, если связи не разрываются

• [Продажи 2018.xlsx] — обозначает книгу, в которой итоговое значение. Такие книги так же называют источниками
• Отчет — имя листа в этой книге
• $A:$F и $A1 — непосредственно ячейка или диапазон со значениями

Если закрыть книгу, на которую была создана такая ссылка, то ссылка сразу изменяется и принимает более «длинный» вид:
=ВПР(A2;’C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A:$F;4;0)
=’C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A1
Предположу, что большинство такими ссылками не удивишь. Такие ссылки так же принято называть связыванием книг. Поэтому как только создается такая ссылка на вкладке Данные(Data) в группе Запросы и подключения(Queries & Coonections) активируется кнопка Изменить связи(Edit Links). Там же, как несложно догадаться, их можно изменить. В большинстве случаев ни использование связей, ни их изменение не доставляет особых проблем. Даже если в книге источники были изменены значения ячеек, то при открытии книги со связью эти изменения будут так же автоматом обновлены. Но если книгу-источник переместили или переименовали — при следующем открытии книги со ссылками на неё Excel покажет сообщение о недоступных связях в книге и запрос на обновление этих ссылок:

Если нажать Продолжить, то ссылки обновлены не будут и в ячейках будут оставлены значения на момент последнего сохранения. Происходит это потому, что ссылки хранятся внутри самой книги и так же там хранятся значения этих ссылок. Если же нажать Изменить связи(Change Source), то появится окно изменения связей, где можно будет выбрать каждую связь и указать правильное расположение нужного файла:

Так же изменение связей доступно непосредственно из вкладки Данные(Data)

---

Как разорвать связи

Как правило связи редко нужны на продолжительное время, т.к. они неизбежно увеличивают размер файла, особенно, если связей много. Поэтому чаще всего связь создается только для единовременно получения данных из другой книги. Исключениями являются случаи, когда связи делаются на общий файл, который ежедневного изменяется и дополняется различными сотрудниками и подразделениями, а в итоговом файле необходимо использовать именно актуальные данные этого файла.
Если решили разорвать связь, необходимо перейти на вкладку

Данные(Data)

-группа

Запросы и подключения(Queries & Coonections)

—

Изменить связи(Edit Links)

:

Выделить нужные связи и нажать

Разорвать связь(Break Link)

. При этом все ячейки с формулами, содержащими связи, будут преобразованы в значения вычисленные этой формулой при последнем обновлении. Данное действие нельзя будет отменить — только закрытием книги без сохранения.
Так же связи внутри формул разрываются, если формулы просто заменить значениями -выделяем нужные ячейки -копируем их -не снимая выделения жмем

Правую кнопку мыши

—

Специальная вставка(Paste Special)

—

Значения(Values)

. Формулы в ячейках будут заменены результатами их вычислений, а все связи будут удалены.
Более подробно про замену формул значениями можно узнать из статьи: Как удалить в ячейке формулу, оставив значения?

---

Что делать, если связи не разрываются

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

• проверьте нет ли каких-либо связей в именованных диапазонах:
  нажмите сочетание клавиш Ctrl+F3 или перейдите на вкладку Формулы(Formulas) —Диспетчер имен(Name Manager)
  Читать подробнее про именованные диапазоны
  Если в каком-либо имени есть ссылка с полным путем к какой-то книге(вроде такого ‘[Продажи 2018.xlsx]Отчет’!$A1), то такое имя надо либо изменить, либо удалить. Кстати, некоторые имена в итоге могут выдавать ошибку #ССЫЛКА!(#REF!) — к ним тоже стоит присмотреться. Имена с ошибками ничего хорошего как правило не делают.
  Настоятельно рекомендую перед удалением имен создать резервную копию файла, т.к. неверное удаление таких имен может повлечь неправильную работу файла даже в случае, если сами ссылки возвращали в итоге ошибочное значение.
• если удаление лишних имен не дает эффекта — проверьте условное форматирование:
  вкладка Главная(Home) —Условное форматирование(Conditional formatting) —Управление правилами(Manage Rules). В выпадающем списке проверить каждый лист и условия в нем:
  
  Может случиться так, что условие было создано с использованием ссылки на другие книги. Как правило Excel запрещает это делать, но если ссылка будет внутри какого-то именованного диапазона — то диапазон такой можно будет применить в УФ, но после его удаления в самом УФ это имя все равно остается и генерирует ссылку на файл-источник. Такие условия можно удалять без сомнений — они все равно уже не выполняются как положено и лишь создают «пустую» связь.
• Так же не помешает проверить наличие лишних ссылок и среди проверки данных(Что такое проверка данных). Как правило связи могут быть в проверке данных с типом Список. Но как их отыскать, если проверка данных распространена на множество ячеек?
  Находим все ячейки с проверкой данных: выделяем одну любую ячейку на листе -вкладка Главная(Home) -группа Редактирование(Editing) —Найти и выделить(Find & Select) —Выделить группу ячеек(Go to Special). Отмечаем Проверка данных(Data validation) —Всех(All). Жмем Ок. После этого можно выделить все эти ячейки каким-либо цветом, чтобы удобнее было потом просматривать. Но такой метод выделит ВСЕ ячейки с проверками данных, а не только ошибочные.
  Конечно, если вариантов кроме как найти руками нет и ячеек немного – просто заходим в проверку данных каждой ячейки(выделяем эту ячейку -вкладка Данные(Data) —Проверка данных(Data validation)) и смотрим, есть ли там проблемная формула со ссылками на другие книги.
  Можно поступить более кардинально – после того как выделили все ячейки с проверкой данных идем на вкладку Данные(Data) —Проверка данных(Data validation) и для всех ячеек в поле Тип данных(Allow) выбираем Любое значение(Any value). Это удалит все формулы из проверки данных всех ячеек.
  Но если ни удаление всех проверок данных, ни проверка каждой ячейки не подходит — я предлагаю коротенький код, который отыщет все такие ссылки быстрее и сэкономит время:

  Option Explicit
  '---------------------------------------------------------------------------------------
  ' Author : The_Prist(Щербаков Дмитрий)
  '          Профессиональная разработка приложений для MS Office любой сложности
  '          Проведение тренингов по MS Excel
  '          https://www.excel-vba.ru
  '          info@excel-vba.ru
  '          WebMoney - R298726502453; Яндекс.Деньги - 41001332272872
  ' Purpose:
  '---------------------------------------------------------------------------------------
  Sub FindErrLink()
      'надо посмотреть в Данные -Изменить связи ссылку на файл-иточник
      'и записать сюда ключевые слова в нижнем регистре(часть имени файла)
      'звездочка просто заменяет любое кол-во символов, чтобы не париться с точным названием
      Const sToFndLink$ = "*продажи 2018*"
   
      Dim rr As Range, rc As Range, rres As Range, s$
      'определяем все ячейки с проверкой данных
      On Error Resume Next
      Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation)
      If rr Is Nothing Then
          MsgBox "На активном листе нет ячеек с проверкой данных", vbInformation, "www.excel-vba.ru"
          Exit Sub
      End If
      On Error GoTo 0
      'проверяем каждую ячейку на предмет наличия связей
      For Each rc In rr
          'на всякий случай пропускаем ошибки - такое тоже может быть
          'но наши связи должны быть без них и они точно отыщутся
          s = ""
          On Error Resume Next
          s = rc.Validation.Formula1
          On Error GoTo 0
          'нашли - собираем все в отдельный диапазон
          If LCase(s) Like sToFndLink Then
              If rres Is Nothing Then
                  Set rres = rc
              Else
                  Set rres = Union(rc, rres)
              End If
          End If
      Next
      'если связь есть - выделяем все ячейки с такими проверками данных
      If Not rres Is Nothing Then
          rres.Select
  '        rres.Interior.Color = vbRed 'если надо выделить еще и цветом
      End If
  End Sub

  Чтобы правильно использовать приведенный код, необходимо скопировать текст кода выше, перейти в редактор VBA(Alt+F11) -создать стандартный модуль(Insert —Module) и в него вставить скопированный текст. После чего вызвать макросы(Alt+F8 или вкладка Разработчик —Макросы), выбрать FindErrLink и нажать выполнить.
  Есть пара нюансов:

  • Прежде чем искать ненужную связь необходимо определить её ссылку: Данные(Data) -группа Запросы и подключения(Queries & Coonections) —Изменить связи(Edit Links). Запомнить имя файла и записать в этой строке внутри кавычек:
    Const sToFndLink$ = «*продажи 2018*»
    Имя файла можно записать не полностью, все пробелы и другие символы можно заменить звездочкой дабы не ошибиться. Текст внутри кавычек должен быть в нижнем регистре. Например, на картинках выше есть связь с файлом «Продажи 2018.xlsx», но я внутри кода записал «*продажи 2018*» — будет найдена любая связь, в имени которой есть «продажи 2018».
  • Код ищет проверки данных только на активном листе
  • Код только выделяет все найденные ячейки(обычное выделение), он ничего сам не удаляет
  • Если надо подсветить ячейки цветом — достаточно убрать апостроф(‘) перед строкой
    rres.Interior.Color = vbRed ‘если надо выделить еще и цветом

Как правило после описанных выше действий лишних связей остаться не должно. Но если вдруг связи остались и найти Вы их никак не можете или по каким-то причинам разорвать связи не получается(например, лист со связью защищен)- можно пойти совершенно иным путем. Действует этот рецепт только для файлов новых форматов Excel 2007 и выше (если проблема с файлом более старого формата — можно пересохранить в новый формат):

1. Обязательно делаем резервную копию файла, связи в котором никак не хотят разрываться
2. Открываем файл при помощи любого архиватора(WinRAR отлично справляется, но это может быть и другой, работающий с форматом ZIP)
3. В архиве перейти в папку xl -> externalLinks
4. Сколько связей содержится в файле, столько файлов вида externalLink1.xml и будет внутри. Файлы просто пронумерованы и никаких сведений о том, к какому конкретному файлу относится эта связь на поверхности нет. Чтобы узнать какой файл .xml к какой связи относится надо зайти в папку «_rels» и открыть там каждый из имеющихся файлов вида externalLink1.xml.rels. Там и будет содержаться имя файла-источника.
5. Если надо удалить только связь на конкретный файл — удаляем только те externalLink1.xml.rels и externalLink1.xml, которые относятся к нему. Если удалить надо все связи — удаляем все содержимое папки externalLinks
6. Закрываем архив
7. Открываем файл в Excel. Появится сообщение об ошибке вроде «Ошибка в части содержимого в Книге …». Соглашаемся. Появится еще одно окно с перечислением ошибочного содержимого. Нажимаем закрыть.

После этого связи должны быть удалены.
Если и это не помогло — скорее всего «битая» связь связана с ошибкой самого файла и лучшим решением будет перенести все данные в новый файл.

Так же см.:
Найти скрытые связи
Оптимизировать книгу

---

Статья помогла? Поделись ссылкой с друзьями!

    Видеоуроки

---

Поиск по меткам



Access
apple watch
Multex
Power Query и Power BI
VBA управление кодами
Бесплатные надстройки
Дата и время
Записки
ИП
Надстройки
Печать
Политика Конфиденциальности
Почта
Программы
Работа с приложениями
Разработка приложений
Росстат
Тренинги и вебинары
Финансовые
Форматирование
Функции Excel
акции MulTEx
ссылки
статистика

Разрыв связи с внешним ресурсом в Excel

Примечание: Мы стараемся как можно оперативнее обеспечивать вас актуальными справочными материалами на вашем языке. Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Просим вас уделить пару секунд и сообщить, помогла ли она вам, с помощью кнопок внизу страницы. Для удобства также приводим ссылку на оригинал (на английском языке) .

Когда разорвать связь в исходную книгу внешних ссылок, все формулы, используйте значение из поля в исходной книге преобразуются в свои текущие значения. Например, если разорвать связь с внешней ссылкой = сумм ([бюджет.xls] Годовой! C10: C25), формула СУММ заменяется вычисленное значение — объекты, которые могут быть. Кроме того поскольку этой действие нельзя отменить, рекомендуется сохранить версию конечной книги в качестве резервной копии.

Если вы используете диапазона внешних данных, параметра в запросе могут использовать данные из другой книги. Вы можете обнаружить и удалить любой из этих типов связей.

Разрыв связи

На вкладке Данные в группе Подключения нажмите кнопку Изменить связи.

Примечание: Отсутствие команды Изменить связи означает, что файл не содержит связанных данных.

В списке Источник выберите связь, которую требуется разорвать.

Для выделения нескольких связанных объектов, удерживайте нажатой клавишу CTRL и щелкните каждый связанный объект.

Чтобы выделить все связи, нажмите клавиши CTRL+A.

Щелкните элемент Разорвать.

Удаление имени определенной ссылки

Если ссылка используется определенный имя, имя автоматически не удаляется. Может потребоваться удалить имя также, выполнив следующие действия:

На вкладке Формулы в группе Определенные имена нажмите кнопку Диспетчер имен.

В диалоговом окне Диспетчер имен щелкните имя, которое нужно изменить.

Щелкните имя, чтобы выделить его.

Нажмите кнопку Удалить.

Нажмите кнопку ОК.

Дополнительные сведения

Вы всегда можете задать вопрос специалисту Excel Tech Community, попросить помощи в сообществе Answers community, а также предложить новую функцию или улучшение на веб-сайте Excel User Voice.

Как разорвать связи в Excel

Описание проблемы

Когда в формуле вы указываете ссылку на другую книгу, то Excel образует с ней связь. Эта связь будет прекрасно работать и обновляться автоматически в том случае, когда открыты обе книги.

К сожалению, если книга-источник была удалена/перемещена или переименована, то связь нарушится. Также связь будет потеряна если вы переместите конечный файл (содержащий ссылку). Если вы передадите только конечный файл по почте, то получатель тоже не сможет обновить связи.

При нарушении связи, ячейки со ссылками на другие книги будут содержать ошибки #ССЫЛКА.

Как разорвать связь

Один из способов решения данной проблемы — разрыв связи. Если в файле только одна связь, то сделать это довольно просто:

1. Перейдите на вкладку Данные.
2. Выберите команду Изменить связи в разделе Подключения.
3. Нажмите Разорвать связь.

ВАЖНО! При разрыве связи все формулы ссылающиеся на книгу-источник будут преобразованы в значения! Отмена данной операции невозможна!

Как разорвать связь со всеми книгами

Для удобства, можно воспользоваться макросом, который разорвет связи со всеми книгами. Макрос входит в состав надстройки VBA-Excel. Чтобы им воспользоваться необходимо:

1. Перейти на вкладку VBA-Excel.
2. В меню Связи выбрать команду Разорвать все связи.
   

Код на VBA

Код макроса удаляющего все связи с книгой представлен ниже. Можете скопировать его в свой проект.

Как разорваться связи только в выделенном диапазоне

Иногда в книге имеется много связей и есть опасения, что при удалении связи можно удалить лишнюю. Чтобы этого избежать с помощью надстройки можно удалить связи только в выделенном диапазоне. Для этого:

1. Выделите диапазон данных.
2. Перейдите на вкладку VBA-Excel (доступна после установки).
3. В меню Связи выберите команду Разорвать связи в выделенных ячейках.
   

Как удалить (разорвать) связи в документе Word, Excel

При открытии документа MS Word появляется предупреждение о наличии связных документов (связей) в исходном документе:

Такое предупреждение появляется, когда в документе есть ссылки на другие документы (например, на таблицу Excel). Удалить (разорвать) связи в документе MS Word возможно с помощью следующих несложных действий:

(Инструкция для версии MS Word 2016)

1. Открыть исходный документ для редактирования (меню «Вид» — «Изменить документ«):

2. В меню «Файл» выбрать пункт «Сведения«:

3. В разделе «Связные документы» нажимаем пункт «Изменить связи с файлами«:

4. В окне связи возможно удалить связь с другими (внешними) документами с помощью кнопки «Разорвать связь«:

Невозможно разорвать связи с другой книгой

Прежде чем разобрать причины ошибки разрыва связей, не лишним будет разобраться что такое вообще связи в Excel и откуда они берутся. Если все это Вам известно — можете пропустить этот раздел 🙂

Что такое связи в Excel и как их создать
Иногда при работе с различными отчетами приходится создавать связи с другими книгами(отчетами). Чаще всего это используется в функциях вроде ВПР (VLOOKUP) для получения данных по критерию из таблицы, расположенной в другой книге. Так же это может быть и простая ссылка на ячейки другой книги. В итоге ссылки в таких ячейках выглядят следующим образом:
=ВПР( A2 ;'[Продажи 2018.xlsx]Отчет’!$A:$F;4;0)
или
‘[Продажи 2018.xlsx]Отчет’!$A1

• [Продажи 2018.xlsx] — обозначает книгу, в которой итоговое значение. Такие книги так же называют источниками
• Отчет — имя листа в этой книге
• $A:$F и $A1 — непосредственно ячейка или диапазон со значениями

Если закрыть книгу, на которую была создана такая ссылка, то ссылка сразу изменяется и принимает более «длинный» вид:
=ВПР( A2 ;’C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A:$F;4;0)
‘C:UsersДмитрийDesktop[Продажи 2018.xlsx]Отчет’!$A1
Предположу, что большинство такими ссылками не удивишь. Такие ссылки так же принято называть связыванием книг. Поэтому как только создается такая ссылка на вкладке Данные в группе Запросы и подключения активируется кнопка Изменить связи. Там же, как несложно догадаться, их можно изменить. В большинстве случаев ни использование связей, ни их изменение не доставляет особых проблем. Даже если в книге источники были изменены значения ячеек, то при открытии книги со связью эти изменения будут так же автоматом обновлены. Но если книгу-источник переместили или переименовали — при следующем открытии книги со ссылками на неё Excel покажет сообщение о недоступных связях в книге и запрос на обновление этих ссылок:

Если нажать Продолжить, то ссылки обновлены не будут и в ячейках будут оставлены значения на момент последнего сохранения. Происходит это потому, что ссылки хранятся внутри самой книги и так же там хранятся значения этих ссылок. Если же нажать Изменить связи, то появится окно изменения связей, где можно будет выбрать каждую связь и указать правильное расположение нужного файла:

Так же изменение связей доступно непосредственно из вкладки Данные

Как разорвать связи
Как правило связи редко нужны на продолжительное время, т.к. они неизбежно увеличивают размер файла, особенно, если связей много. Исключениями являются случаи, когда связи делаются на некие общие файлы, расположенные на сетевом диске и заполняемые разными подразделениями, а в итоговый файл связями просто забираются конкретные значения из этого файла. Чтобы разорвать связи необходимо перейти на вкладку Данные -группа Данные и подключения -Изменить связи:

Выделить нужные связи и нажать Разорвать связь. При этом все ячейки с формулами, содержащими связи, будут преобразованы в значения вычисленные этой формулой при последнем обновлении. Данное действие нельзя будет отменить — только закрытием книги без сохранения.
Так же связи внутри формул разрываются, если формулы просто заменить значениями -Копируем нужные ячейки -Правая кнопка мыши -Специальная вставка -Значения. Формулы в ячейках будут заменены результатами их вычислений, а все связи будут удалены.
Более подробно про замену формул значениями можно узнать из статьи: Как удалить в ячейке формулу, оставив значения?

Что делать, если связи не разрываются

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

• проверьте нет ли каких-либо связей в именованных диапазонах:
  нажмите сочетание клавиш Ctrl + F3 или перейдите на вкладку Формулы (Formulas) —Диспетчер имен (Name Manager)
  Читать подробнее про именованные диапазоны
  Если в каком-либо имени есть ссылка с полным путем к какой-то книге(вроде такого ‘[Продажи 2018.xlsx]Отчет’!$A1 ), то такое имя надо либо изменить, либо удалить. Кстати, некоторые имена в итоге могут выдавать ошибку #ССЫЛКА! (#REF!) . К ним тоже стоит присмотреться.
  Настоятельно рекомендую перед удалением имен создать резервную копию файла, т.к. неверное удаление таких имен может повлечь неправильную работу файла даже в случае, если сами ссылки возвращали в итоге ошибочное значение.
• если удаление лишних имен не дает эффекта — проверьте условное форматирование:
  вкладка Главная (Home) —Условное форматирование (Conditional formatting) —Управление правилами (Manage Rules) . В выпадающем списке проверить каждый лист и условия в нем:
  
  Может случиться так, что условие было создано с использованием ссылки на другие книги. Как правило Excel запрещает это делать, но если ссылка будет внутри какого-то именованного диапазона — то диапазон такой можно будет применить в УФ, но после его удаления в самом УФ это имя все равно остается и генерирует ссылку на файл-источник. Такие условия можно удалять без сомнений — они все равно уже не выполняются как положено и лишь создают «пустую» связь.
• Так же не помешает проверить наличие лишних ссылок и среди проверки данных(Что такое проверка данных). Как правило связи могут быть в проверке данных с типом Список. Но как их отыскать, если проверка данных распространена на множество ячеек? Проверять каждую? Это очень долго. Поэтому я предлагаю коротенький код, который отыщет все такие ссылки быстрее и сэкономит время):

Option Explicit ‘————————————————————————————— ‘ Author : The_Prist(Щербаков Дмитрий) ‘ Профессиональная разработка приложений для MS Office любой сложности ‘ Проведение тренингов по MS Excel ‘ https://www.excel-vba.ru ‘ info@excel-vba.ru ‘ WebMoney — R298726502453; Яндекс.Деньги — 41001332272872 ‘ Purpose: ‘————————————————————————————— Sub FindErrLink() ‘надо посмотреть в Данные -Изменить связи ссылку на файл-иточник ‘и записать сюда ключевые слова в нижнем регистре(часть имени файла) ‘звездочка просто заменяет любое кол-во символов, чтобы не париться с точным названием Const sToFndLink$ = «*продажи 2018*» Dim rr As Range, rc As Range, rres As Range, s$ ‘определяем все ячейки с проверкой данных On Error Resume Next Set rr = ActiveSheet.UsedRange.SpecialCells(xlCellTypeAllValidation) If rr Is Nothing Then MsgBox «На активном листе нет ячеек с проверкой данных», vbInformation, «www.excel-vba.ru» Exit Sub End If On Error GoTo 0 ‘проверяем каждую ячейку на предмет наличия связей For Each rc In rr ‘на всякий случай пропускаем ошибки — такое тоже может быть ‘но наши связи должны быть без них и они точно отыщутся s = «» On Error Resume Next s = rc.Validation.Formula1 On Error GoTo 0 ‘нашли — собираем все в отдельный диапазон If LCase(s) Like sToFndLink Then If rres Is Nothing Then Set rres = rc Else Set rres = Union(rc, rres) End If End If Next ‘если связь есть — выделяем все ячейки с такими проверками данных If Not rres Is Nothing Then rres.Select ‘ rres.Interior.Color = vbRed ‘если надо выделить еще и цветом End If End Sub

Чтобы правильно использовать приведенный код, необходимо скопировать текст кода выше, перейти в редактор VBA( Alt + F11 ) -создать стандартный модуль(Insert —Module) и в него вставить скопированный текст. После чего вызвать макросы( Alt + F8 ), выбрать FindErrLink и нажать выполнить.
Есть пара нюансов:
1. Прежде чем искать ненужную связь необходимо определить её ссылку: Данные -Изменить связи. Запомнить имя файла и записать в этой строке внутри кавычек:
Const sToFndLink$ = «*продажи 2018*»
Имя файла можно записать не полностью, все пробелы и другие символы можно заменить звездочкой дабы не ошибиться. Текст внутри кавычек должен быть в нижнем регистре. Например, на картинках выше есть связь с файлом «Продажи 2018.xlsx», но я внутри кода записал «*продажи 2018*» — будет найдена любая связь, в имени которой есть «продажи 2018».
2. Код ищет проверки данных только на активном листе
3. Код только выделяет все найденные ячейки(обычное выделение), он ничего сам не удаляет.
4. Если надо подсветить ячейки цветом — достаточно убрать апостроф(‘) перед строкой
rres.Interior.Color = vbRed ‘если надо выделить еще и цветом

Как правило после описанных выше действий лишних связей остаться не должно. Но если вдруг связи остались и найти Вы их никак не можете или по каким-то причинам разорвать связи не получается(например, лист со связью защищен)- можно пойти совершенно иным путем. Действует этот рецепт только для файлов новых форматов Excel 2007 и выше:
1. Обязательно делаем резервную копию файла, связи в котором никак не хотят разрываться
2. Открываем файл при помощи любого архиватора(WinRAR отлично справляется, но это может быть и другой, работающий с форматом ZIP)
3. В архиве перейти в папку xl -> externalLinks
4. Сколько связей содержится в файле, столько файлов вида externalLink1.xml и будет внутри. Файлы просто пронумерованы и никаких сведений о том, к какому конкретному файлу относится эта связь на поверхности нет. Чтобы узнать какой файл .xml к какой связи относится надо зайти в папку «_rels» и открыть там каждый из имеющихся файлов вида externalLink1.xml.rels. Там и будет содержаться имя файла-источника.
5. Если надо удалить только связь на конкретный файл — удаляем только те externalLink1.xml.rels и externalLink1.xml, которые относятся к нему. Если удалить надо все связи — удаляем все содержимое папки externalLinks
6. Закрываем архив
7. Открываем файл в Excel. Появится сообщение об ошибке вроде «Ошибка в части содержимого в Книге . «. Соглашаемся. Появится еще одно окно с перечислением ошибочного содержимого. Нажимаем закрыть.

После этого связи должны быть удалены.

Статья помогла? Поделись ссылкой с друзьями!

Как убрать связи в Excel-е?

Такая ситуация — есть Excel-файл со сложной структурой, и незнаю как но на один лист имеются связи с другими файлами. При открытии спрашивает обновить нет. В меню Правка-Связи их видно, но как от них избавиться? Помогает такое — скопировать содержимое листа, создать новый и вставить туда, а старый удалить. Но при этом все имена Range-ей исчезают а они очень нужны. Кто знает как избавиться? Может кто знает как это можно вырезать из файла? Пробовал в байтах найти похожую строку, удалял — рушился файл.
Большое спасибо!

Как при получении Workbook Excel не обновлять связи файла
Получаю объект: Dim objDWE As Object objDWE = GetObject(strPTmp & «TempPas.xls»)Но этот объект.

Как убрать подтверждение на удаление в Excel
Есть програмулька на VBA она удаляет лист с данными — Excel требует это подтвердить , как от этого.

Как в excel убрать дубликаты записей?
необходимо из двух (трех и т.д.) таблиц сделать одну , а потом убрать повторяющиеся записи.

Как убрать или заменить иконку Excel?
Собственно как 🙂 И возможно ли это вообще. убрать иконку Excel. или заменить её на другую.

Как в Excel с помощью VBA убрать все меню?
Как в Excel с помощью VBA убрать все меню, к примеру оставить только (Файл, Правка, Вид).

‘Моя книга содержит связи’. Как избавится от этого сообщения ?
Внешние связи могут быть в:
в формулах:
Найдите имя связанного файла в меню [Редактирование / Связи]
Ищите это имя в формулах ячеек на всех листах
в именах:
Просмотрите список имен в меню [Вставить / Имя / Определить]
в кнопках:
Просмотрите какие макросы назначены на кнопки.
Это я почерпнул из FAQ конференции comp.apps.spreadsheets . Вообще-то насколько я знаю в диаграммах также могут содержаться ссылки на диапазоны данных по которым они строятся. Теоритически там также могут быть внешние ссылки.

А вообще, ищи макросом квадратные скопки по всем листам, анализируй. в общем несложно, но лениво

Как программно убрать пунктирную рамку после печати документа в Excel.
Всем доброго времени суток! Для печати документа (страницы) в Excel используется команда Файл ->.

WORD6+EXCEL (замена связи)
файл WORD имеют поля (подсвечиваются серым ) связи с Excel . Вопрос: Как поменять все связи в.

Обновить связи в Excel (нужен Help)
Господа! Помогите ПЛЗ. Нужен макрос, который отключает автоматическое обновление связей при.

Разрыв связи с внешним ресурсом в Excel

​Смотрите также​​ только в выбранных​ разрывать?​2)_осталась ссылка на​roster,​Dim Wb As​ все книги. А​ быть проблема?​ часть формул оставляя​: AlexTM, вроде этот​TheBestOfTheBest​Если же у​ файл(Ctrl+F3).​ могут получить более​ связи между двумя​ целостным способом.​нажмите кнопку​Примечание:​ ячейках, при этом​KoDeX​ книгу не разорванной​Ну если Вам​

​ Workbook​​ закрывать каждый раз​

• ​Мне нужно сохранить​ только формулы внутри​ (первый — обычный).​: Собственно говоря это​ Вас там не​На крайних случай​ низкий ранг и​ таблицами.​Иногда Excel не удается​Изменить связи​Мы стараемся как​ заменяет все на​: выборочный разрыв связи,​ связи, разорванные связи​ нужно просто данные​Dim n As​ не удобно.​​ копию листа без​​ книги. Делаю все​ Sub Names99() Dim​ правильная работа, а​

• ​ ошибки — то​ можно попробовать создать​ не будут автоматически​Автоматическое обнаружение связей запускается​ определить связь между​.​ можно оперативнее обеспечивать​ значения, кто сможет​

Разрыв связи

1. ​ пример во вложении.​​ остались значениями?​​ то выделите все​​ Variant​​Собственно задача, что​​ связи с оновной​​ это макросом. В​

   

   ​ vName As Variant​​ вы чего ожидали?​​ может имеет смысл​​ новую книгу, перенести​ созданы даже в​ только для мер​

2. ​ таблицами. В этом​​Примечание:​​ вас актуальными справочными​ доработать его с​

   • ​KoDeX​Закрыто. Дубль.​ скопируйте и через​Dim i As​ бы полученный отчет​

   • ​ книгой. При этом​ результате получаю новую​

3. ​ For Each vName​​droZOnE​​ через Ctrl+H найти​

Удаление имени определенной ссылки

​ в неё ТОЛЬКО​ том случае, если​ и не запускается​ случае используйте информацию​ Отсутствие команды​ материалами на вашем​

1. ​ частичным (выборочным) разрывом​​: неужели ни у​​KoDeX​​ специальную вставку…​​ Long​​ не имел связей​​ сделать это нужно​

2. ​ книгу. Но вот​​ In ThisWorkbook.Names vName.Visible​​: Добавляю ссылку на​ по формулам все​

3. ​ ЗНАЧЕНИЯ, без формул,​ связь является действительной.​

4. ​ для вычисляемых полей,​​ из этой статьи​​Изменить связи​

5. ​ языке. Эта страница​​ связи? помогите, очень​​ кого нет никаких​

support.office.com

Устранение неполадок в связях между таблицами

​: Доброго дня. Вот​roster​For Each n​ с книгой из​ МАКРОСОМ!​ в чем проблема.​ = 1 v.Name.Delete​ внешний локальный файл,​ формулы, в которых​ отдельно воссоздав каждый​

​Если алгоритм автоматического обнаружения​ которые используются в​ для устранения ошибок​означает, что файл​ переведена автоматически, поэтому​ надо….​ идей???​ не смог пока​: Мне нужен весь​ In ActiveWorkbook.Names:​ которой его сделали.​Оформляйте коды тегами​

Сообщение. Связи не были обнаружены

​ Обратил внимание что​ Next vName End​ а запрос появляется​ есть ссылки на​ лист(НЕ КОПИРУЯ САМИ​​ предлагает связь, которая​​ метках строк и​ автоматического обнаружения связей. Чтобы​ не содержит связанных​ ее текст может​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ВставитьЗначения2()​vikttur​ найти на «Планете…»​ файл целиком со​On Error Resume​ Поскольку его будут​ (кнопка #)​

• ​ в новой книге​ Sub Sub Remove_Hidden_Names()​ на обновление внешнего​ файл и заменить​ ЛИСТЫ). После этого​ не решает бизнес-задачи,​ столбцов сводной таблицы.​ лучше понять требования​ данных.​ содержать неточности и​Dim ArrLinks As​

• ​: Есть. Но не​ этого, казалось бы​ всеми расчетами и​ Next​ смотреть на другом​gling​ осталась связь с​ ‘ Dimension variables.​ источника данных с​ их на значения?​ постепенно добавлять форматы,​ то необходимо удалить​ Поэтому перед началом​​ и механизмы обнаружения​​В списке​ грамматические ошибки. Для​ Variant​ по теме.​

В сводную таблицу добавлены несвязанные поля, однако сообщение не выдается

​ легкого, и неужели​ сводными.​n.Delete:​ компьютере, где нет​: Возможно в книге​ предыдущей. Если я​ Dim xName As​ адреса ….​k61​ может формулы, но​ ее и создать​ построения сводной таблицы​ связей, см. раздел​Источник​ нас важно, чтобы​Dim i As​​Из правил:​​ никому не нужного​

Отсутствует допустимая связь между таблицами

​Z​Next​ файла оригинала. Каждый​ есть именованные диапазоны.​ сохраняю новую книгу,​ Variant Dim Result​droZOnE​: Здесь, на этом​ после каждого шага​ вручную с использованием​

​ несвязанные таблицы можно​ Связи между таблицами​выберите связь, которую​ эта статья была​ Integer​kodex​ решения следующей задачи​: Поиск по Планете,​Set Wb =​ раз закрывать/открывать и​ Для полного разрыва​ закрываю обе, затем​

При автоматическом обнаружении созданы неверные связи

​ As Variant Dim​: распаковал файл архиватором​ форуме, в примере​ смотреть, не появились​ верного ключевого столбца.​ добавить, однако связи​ в модели данных.​ требуется разорвать.​ вам полезна. Просим​Dim cell As​: Да не вопрос….​ — в сводный​ и​ ActiveWorkbook​ удалять связи после​ связей их тоже​ открываю сохраненную новую​ Vis As Variant​ и поиском нашел​ был макрос Sub​ эти самые ненужные​

​ См.​ не будут видны​На панели уведомлений всегда​Для выделения нескольких связанных​ вас уделить пару​ Range​и все же,​ отчет, а точнее​

​-​

support.office.com

не удаётся разорвать связи в Excel

​WorkbookLinks = Wb.LinkSources(Type:=xlLinkTypeExcelLinks)​​ создания отчета -​
​ нужно удалить.​ книгу, то вижу​ ‘ Loop once​
​ ссылку в файле​ Svyazi(). Автора не​ связи.​К началу страницы​ до тех пор,​ автоматически отображается сообщение​ объектов, удерживайте нажатой​ секунд и сообщить,​Dim WorkRng As​ какое-нить решение есть​ предположим в одну​-​If IsArray(WorkbookLinks) Then​ слишком неудобно. А​Stork4ever​ свзяь со старой​ for each name​ xlexternalLinks_relsexternallink4.xml.rels и еще​
​ помню. Поиск ниего​KuklP​Ольга_​ пока поле не​ о необходимости установления​ клавишу CTRL и​ помогла ли она​
​ Range​ частичного (выборочного) разрыва​ ячейку идут данные​- …​For i =​
​ тем кому высылаются​

​ ячейки с ошибками​​Уже все форумы​ область​ поля в область​ объект.​ кнопок внизу страницы.​ String​XXXXXL​ (книга1, книга2, книга3),​

​ остаются списки связей​​Name:=WorkbookLinks(i), _​Кстати. Если после​

​Иногда таблицы, добавляемые в​​ в случае, если​Щелкните элемент​ оригинал (на английском​If TypeName(Selection) <>​ же тему разместил​ ссылку только на​DV​Next i​ на полученном листе​
​ листу довольно проблематично!​ могу разорвать в​

​ is hidden)… If​​ — имеет ссылку​

planetaexcel.ru

Не разрывается связь с внешними источниками данных

​ руки.​​ зависимые. Или пересохранить​
​ файл Excel,в нём​ сводную таблицу, просто​ это поле не​Разорвать​ языке) .​
​ «Range» Then Exit​ у формулистов, предполагаю​ одну из книг?​: Нажмите Ctrl+F3 и​Else​ вообще удалить все​TimSha​ момент работы макроса,​ xName.Visible = True​ на внешний файл​k61​ в разных версиях.​ есть ссылка на​ невозможно соединить с​ связано ни с​.​Важно:​ Sub​ ее нужно снести.​ желательно чтобы это​
​ удалите все ненужные​End If​ данные (т.е. нет​: Очень просто. Пробовали​ когда обе книги​ Then Vis =​
​ — стираем связь​

​: поиск дал!:​​ Но без файла…​ временный документ, который​ другими таблицами. Например,​

​ одним из существующих​​Если ссылка используется определенный​ ​ArrLinks = ThisWorkbook.LinkSources(xlExcelLinks)​у кого какие​ была ссылка на​ имена​

​End Sub​​ ни данных, ни​ открыть — «Найти​ открыты.​ «Visible» Else Vis​ удалена. Либо через​droZOnE​Ольга_​

​ закрепился в связях.​​ две таблицы могут​ в сводной таблице​ имя, имя автоматически​Когда разорвать связь в​If IsEmpty(ArrLinks) Then​ есть соображения по​ книгу, а не​
​qwwwerty​VictorM​ формул), то все​

​ и выделить» -​​Разрыв связей в​ = «Hidden» End​ меню Данные Изменить​: Друзья, добрый день!​: В именах смотрела,там​
​ Временный документ смысловой​ иметь частично совпадающие​ полей. Однако иногда​ не удаляется. Может​
​ исходную книгу внешних​ Exit Sub​ следующему вопросу:​ значение.​: DV, отлично.​:​ равно связи удалить​

​ далее — «Формулы»…​​ маросе делаю так:​ If ‘ …ask​ связи…​Подскажите, пожалуйста, решение​ тьма-тьмущая имен.ссылающихся на​

​ нагрузки, походу, не​​ данные, но не​ связь после уведомления​ потребоваться удалить имя​

​ ссылок, все формулы,​​Set WorkRng =​Условие: В одну​kristina S​Blazhenniy​gling​ нельзя, пока не​Stork4ever​200?’200px’:»+(this.scrollHeight+5)+’px’);»>exist_links = ActiveWorkbook.LinkSources(xlExcelLinks)​ whether or not​Никакого вируса, просто​ проблемы. Excel 2013.​ этот файл. Пробовала​ несёт, ибо был​ иметь логических связей​ обнаружить не удается.​ также, выполнив следующие​ используйте значение из​ Selection.SpecialCells(xlCellTypeFormulas)​ ячейку, допустим B3​: Добрый день! Не​: ни один из​, спасибо. То что​ сохранишь и не​: Развернуть формулы и​If Not IsEmpty(exist_links)​ to delete the​ ссылка на внешний​ Не удается разорвать​ удалять-запуталась через 15​ создан, когда сотрудник​ с другими используемыми​ Это может произойти​ действия:​ поля в исходной​For i =​ идут связи с​ понятно, что Вы​ способов не помог​ нужно!​ закроешь файлы….​ искать ссылки? Данных​ Then​ name. Result =​ файл.​ связь с внешним​ минут.​ заходил оп удалёнке​ таблицами.​ по разным причинам.​

​На вкладке​​ книге преобразуются в​ 1 To UBound(ArrLinks)​ трех книг, при​ спрашиваете, может Вам​

planetaexcel.ru

Как разорвать связи макросом? (Макросы/Sub)

​ кроме​​roster​RAN​ слишком много​For i =​ MsgBox(prompt:=»Delete » &​droZOnE​ источником данных.​Там помимо этих​ на сервер и​Если добавить в сводную​Алгоритм обнаружения связей зависит​Формулы​ свои текущие значения.​FileName = FileNameOnly((CStr(ArrLinks(i))))​ разрыве связи хотя​ поможет настройка для​сохраняете файл как…​: Добрый день!​: Ну и что?​Или я что-то​ LBound(exist_links) To UBound(exist_links)​ Vis & «​: TheBestOfTheBest, проблема глубже​Файл во вложении.​ «вредных» связей есть​ делал там свои​ таблицу таблицу, которую​ от внешнего ключевого​
​в группе​ Например, если разорвать​
​For Each cell​
​ бы одной из​ панели быстрого доступа​
​ тип файла: xlsb​Как удалить не​
​ Чем эта связь​
​ не так понял?​
​' MsgBox exist_links(i)​
​ Name " &​
​ все-таки. в книге​ Файл пустой, имеется​
​ ещё связи, копирование​
​ дела в этом​ нельзя соединить с​ столбца, имя которого​
​Определенные имена​ связь с внешней​
​ In WorkRng​ этих книг, в​ «разорвать связи» Прикрепленные​открыв файл архиватором​ удаляемые связи (старые)​ мешает?​RAN​ActiveWorkbook.BreakLink Name:=exist_links(i), Type:=xlLinkTypeExcelLinks​
​ _ Chr(10) &​ продолжают сидеть какие-то​ только одна внешняя​ только значений приведёт​ файле. И эти​
​ другой таблицей, то​ схоже с именем​
​нажмите кнопку​ ссылкой = сумм​If InStr(1, cell.Formula,​ ячейке В3 остается​ файлы Разорвать связь.jpg​ — удалить папку​
​ с несуществующими книгами?​200?’200px’:»+(this.scrollHeight+5)+’px’);»>xlPasteValues​

​:​​Next​ xName.Name & «?»​ ссылки на внешние​ ссылка (на книгу).​ к убиению связей​

​ временные файлы закрепились​​ обычно автоматическое обнаружение​ первичного ключевого столбца.​Диспетчер имен​ ([бюджет.xls] Годовой! C10:​ FileName) Then cell.Formula​ значение.​

​ (27.53 КБ)​​ xl / externalLinks​Нажимаю разорвать связь​вставляет значения.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Activesheet.Usedrange.Value=Activesheet.Usedrange.Value​

​Else​​ & Chr(10) &​ источники.​ Если её удалить,​​ на нужные документы,​ в связях. Руками​

​ не даст никаких​​ Если имена столбцов​​.​

​ C25), формула СУММ​​ = cell.Value​
​Вопрос: Как разорвать​bedvit​закрываем, открываем, на​ — ничего не​А то, что​Stork4ever​MsgBox «Связей не​
​ _ "Which refers​
​убить файл externallink4.xml​
​ то запроса на​
​ которые обновляются.​ не удаляются через​
​ результатов. В других​ недостаточно похожи, рекомендуется​В диалоговом окне​ заменяется вычисленное значение​Next​ одну (две, …)​: Разорвать связи с​ все отвечаем да​ происходит.​ именованые диапазоны зацепились​: Еще раз уточним…​
​ найдено»​ to: » &​ не помогло, т.к.​ обновление не возникает.​Надеялась,что есть метод​ «Изменить связи».​ случаях по результатам​ открыть окно Power​Диспетчер имен​ — объекты, которые​Next​ связи, при этом​ нужными файлами -​ и т.п​Ivan.kh​ за старую книгу,​
​На листе оригинальной​End If​ Chr(10) & xName.RefersTo,​ слетели другие связи​ При добавлении ссылки​ как то грубо​Пробовала сделать подмену-сделала​ в сводной таблице​ Pivot и вручную​щелкните имя, которое​ могут быть. Кроме​

​End Sub​​ в ячейке В3​ сохранятся нужные данные​XXXXXL​
​:​
​ при осутствии ссылок​
​ книги есть именованные​Все отрабатывает без​ _ Buttons:=vbYesNo) ‘​ в книге​ на внешний файл,​ эту связь удалить,​ пустой документ с​
​ видно, что поля​ создать необходимые связи​
​ нужно изменить.​
​ того поскольку этой​

​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Private Function FileNameOnly(fname​​ 1)_осталась ссылка на​

​ в значениях, другие​​: Всем доброго дня.​roster,​ на них, никак​ диапазоны. После копирования​​ ошибок, но связь​ If the result​
​копаю дальше. в​ снова появляется запрос​
​ не попортив ничего.​ таким же количеством​
​ не позволяют формировать​ между таблицами.​
​Щелкните имя, чтобы выделить​ действие​
​ As String) As​ книгу не разорванной​
​ (не разорванные) останутся​Условие: В одну​
​А через специальную​
​ ни на что​
​ листа в новую​ не разрывается​
​ is true, then​
​ файле workbook.xml видно,​
​ на обновление с​Guest​
​ листов, в связях​
​ осмысленные вычисления.​
​Типы данных могут не​
​ его.​
​нельзя отменить​
​ String​
​ связи, разорванные связи​


​ на ссылках.​​ ячейку, допустим B3​​ вставку не пробовали​​ не влияет.​ книгу, эти диапазоны​

excelworld.ru

Как удалить не удаляемые связи (старые) с несуществующими книгами

​Делаю тоже самое​​ delete the name.​
​ что присвоено много​ внешнего источника данных.​: Там этих ячеек​
​ написано-ОК,но при следующем​При создании связей алгоритм​ поддерживаться. Если любая​

​Нажмите кнопку​​, рекомендуется сохранить версию​​’ Возвращает имя​​ удалились?;​KoDeX​ идут связи с​

​ вставить только значения???​​И пусть их​ копи/пастятся в виде​ вручную:​ If Result =​ Определенных имен с​ Пробовал пересохранять в​ не меньше тысячи(​ обновлении та же​ автоматического обнаружения создает​ из таблиц, используемых​Удалить​

​ конечной книги в​​ файла fname без​​2)_осталась ссылка на​​: При разрыве одной​ трех книг, при​roster​ болтаются до закрытия.​ значений типа:​

​1. Копирую лист​​ vbYes Then xName.Delete​ пометкой hidden=1 Прикрепленные​ формат 97, при​The_Prist​

​ история.​​ список всех возможных​ в сводной таблице,​
​.​
​ качестве резервной копии.​
​ указания его директории​

​ книгу не разорванной​​ связи остается общее​ разрыве связи хотя​: Дык я не​

​Или​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Range(«J11:J400»).Select​ в новую книгу,​ ‘ Loop to​

​ файлы Снимок.PNG (87.81​​ проверке совместимости сообщает​

​: Ну так удалите​​Начальство жаждет видеть​ связей исходя из​ содержит столбцы только​
​Нажмите кнопку​Если вы используете диапазона​
​Dim temp As​ связи, разорванные связи​ значение в ячейке,​
​ бы одной из​ знаю что скопировать/вставить​Код200?’200px’:»+(this.scrollHeight+5)+’px’);»>Workbooks(«A»).Sheets(«aaa»).Range(«A1:A10») = Workbooks(«B»).Sheets(«aaa»).Range(«A1:A10»)​

planetaexcel.ru

выборочный (частичный) разрыв связи (Формулы/Formulas)

​Selection.Copy​​ пытаюсь через меню​
​ the next name.​ КБ)​ об имеющейся связи​ все имена, которые​ документ без #ССЫЛКА!,​ значений, содержащихся в​ неподдерживаемых типов данных,​ОК​ внешних данных, параметра​
​ Variant​ остались значениями?​ а я спрашиваю​ этих книг, в​ теперь. Оказалось, что​Stork4ever​Range(«J11:J400»).Select​ разорвать связь. Связь​
​ Next xName End​AlexTM​ в Определенных именах.​ ссылаются на тот​
​ а я не​

excelworld.ru

как разорвать связи в ячейке, но чтобы одна ссылка осталась?

​ таблицах, и ранжирует​​ то связи обнаружить​.​ в запросе могут​If fname =​XXXXXL​ как разорвать одну​ ячейке В3 остается​ накопились за долгую​: Спасибо!​Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,​ вижу, кнопка разорвать​ Sub​: droZOnE, на микрософте​ При этом при​ файл. Почему нельзя?​ знаю,как эти 2​ возможные связи в​ невозможно. В этом​При импорте нескольких таблиц​ использовать данные из​ «» Then FileNameOnly​

​: кто с макросом​​ (две…, три…) связи,​ значение.​ историю, версия файла​gling​ SkipBlanks _:=False, Transpose:=False​ связь активна, но​Юрий М​ есть макрос для​

​ открытии Диспетчера имен​​ У Вас формулы​ связи разорвать(​ соответствии с их​ случае необходимо создать​ Excel пытается обнаружить​ другой книги. Вы​

​ = «»: Exit​​ на «ты»?, сможете​ но при этом​Вопрос: Как разорвать​ 39-я, подверсий было​: Использовал такой макрос​Остаются только формулы​ при нажатии связь​: droZOnE, ознакомьтесь с​ удаления всех имет​ — имена отсутствуют.​ выдают #ССЫЛКА! верно?​Помогите!​

​ вероятностью. Затем Excel создает​​ связи между активными​ и определить связи​

​ можете обнаружить и​​ Function​ доработать его под​

​ чтобы другая, допустим​​ одну (две, …)​ в десятки раз​ при создании новой​

​ подведения итогов, которые​​ не разрывается.​ Правилами и поменяйте​
​ — скрытых, нескрытых,​

​Все это похоже​​ Попробуйте так:​
​The_Prist​ только наиболее вероятную​ таблицами в сводной​ между этими таблицами,​

planetaexcel.ru

выборочный (частичный) разрыв связи (Макросы/Sub)

​ удалить любой из​​temp = Split(fname,​ мои нужды, для​ четвертая связь осталась​ связи, при этом​ больше. Связи, которые​
​ книги из листов.​ уже не имеют​2. Удаляю на​
​ в своём профиле​ неудаляемых… Поищите.​ на какой-то вирус.​F5-Выделить-Формулы-Ошибки​: Нужен файл. Без​ связь. Поэтому, если​ таблице вручную в​ поэтому нет необходимости​ этих типов связей.​
​ Application.PathSeparator)​ частичного разрыва связей?​ ссылкой, а остальные​ в ячейке В3​ якобы есть просто​ Посмотрите может пригодится.​ именованных диапазонов. Но​ новом листе все​
​ отображаемое имя. Спасибо!​TheBestOfTheBest​ Новые книги заражаются​Будут выделены ячейки​

​ этого вряд ли​​ таблицы содержат несколько​ диалоговом окне​ создавать связи вручную​На вкладке​FileNameOnly = temp(UBound(temp))​

​XXXXXL​​ были значениями либо​ 1)_осталась ссылка на​ не удаляются. Не​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub Связи() ‘разорвать все​ связь с книгой​ данные и формулы.​Stork4ever​: Я такого в​ при добавлении ссылки​ с ошибками. Очистите​ поймем причину. Посмотрите,​
​ столбцов, которые могут​
​Создание связи​ или создавать сложные​
​Данные​End Function​
​: вот еще один​ вообще их небыло.​
​ книгу не разорванной​ понимаю почему.​
​ связи​ не могу порвать,​
​ Связь все равно​: Из существующей книги​
​ выложенном файле не​ на файл с​ их - все​
​ нет в именах​
​ использоваться в качестве​. Дополнительные сведения см.​
​ обходные решения, чтобы​в группе​
​Коды надо оформлять​ макрос нашел, но​
​kristina S​
​ связи, разорванные связи​Ivan.kh​
​Dim WorkbookLinks As​ пока не сохраню​ разорвать не получается!!!​
​ копирую лист в​
​ вижу (Ex 2010)​
​ таким глюком.​
​ равно вычислений они​ тех, что ссылаются​ ключей, некоторые связи​
​ в разделе Создание​ работать с данными​Подключения​
​ тегами (кнопка #)​ он разрывает связи​
​: непонятно, выборочно связи​ удалились?;​:​ Variant​
​ и не закрою​В чем может​
​ новую книгу. Убираю​
​AlexTM​
​Скрины приложены.​ не сделают.​

excelworld.ru

​ на тот самый​