Файл excel удалить все связи

Важно: 

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

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

Разрыв связи

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

   

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

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

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

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

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

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

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

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

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

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

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

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

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

Вы всегда можете задать вопрос специалисту Excel Tech Community или попросить помощи в сообществе Answers community.

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

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

1. [Продажи 2018.xlsx]. Этот фрагмент содержит ссылку на файл, из которого вам нужно получить информацию. Его еще называют источником.
2. Отношение. Мы использовали следующее имя, но это не обязательно. Этот блок содержит имя листа, на котором вы хотите найти информацию.
3. $ A: $ F и $ A1 — это адрес ячейки или диапазона с данными, содержащимися в этом документе.

Фактически, процесс создания ссылки на внешний документ называется ссылкой. После регистрации адреса ячейки, содержащейся в другом файле, содержимое вкладки «Данные» изменяется. А именно: становится активной кнопка «Изменить ссылки», с помощью которой пользователь может изменять существующие ссылки.

Суть проблемы

Как правило, дополнительных сложностей в использовании подключений не возникает. Даже если есть ситуация, когда ячейки меняются, все ссылки обновляются автоматически. Но если вы уже переименуете саму книгу или переместите ее на другой адрес, Excel станет бессильным. Таким образом выдает следующее сообщение.

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

Кроме того, можно изменить ссылки, используя соответствующую кнопку, расположенную на вкладке «Данные». Пользователь также может узнать, что соединение разорвано, из-за ошибки #LINK, которая появляется, когда Excel не может получить доступ к информации, расположенной по определенному адресу, из-за того, что сам адрес недействителен.

Как разорвать связь в Эксель

Один из простейших способов разрешить описанную выше ситуацию, если вы не можете самостоятельно обновить расположение связанного файла, — удалить саму ссылку. Это особенно легко сделать, если документ содержит только одну ссылку. Для этого вам необходимо выполнить следующую последовательность действий:

1. Откройте меню «Данные».
2. Находим раздел «Подключения» и там — опцию «Изменить подключения».
3. Затем нажмите «Отключить соединение».

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

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

Но если количество ссылок становится слишком большим, их удаление вручную может занять много времени. Решить эту проблему за один раз можно с помощью специального макроса. Он находится в надстройке VBA-Excel. Вам необходимо активировать его и перейти на одноименную вкладку. Будет раздел «Ссылки», в котором мы должны нажать кнопку «Разорвать все ссылки».

Код на VBA

Если вы не можете активировать это дополнение, вы можете создать макрос самостоятельно. Для этого откройте редактор Visual Basic, нажав Alt + F11, и напишите следующие строки в поле ввода кода.

Sub UnlinkWorkBooks()

    Тусклый WbLink

    Тусклый я пока

    Выберите Case MsgBox («Все ссылки на другие книги будут удалены из этого файла, а формулы, которые ссылаются на другие книги, будут заменены значениями». & VbCrLf & «Вы уверены, что хотите продолжить?», 36, «Разорвать ссылку?»)

    Дело 7 «No

        Выйти ниже

    Конец выбора

    WbLinks = ActiveWorkbook.LinkSources (Тип: = xlLinkTypeExcelLinks)

    Если не пусто (WbLinks) Тогда

        Для i = 1 для UBound (WbLinks)

            ActiveWorkbook.BreakLink Имя: = WbLinks (i), Тип: = xlLinkTypeExcelLinks

        Следующий

    Другой

        MsgBox «В этом файле нет ссылок на другие книги.», 64, «Ссылки на другие книги»

    Конец, если

Конец подзаголовка

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

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

1. Выберите набор данных, в который вы хотите внести изменения.
2. Установите надстройку VBA-Excel, затем перейдите на соответствующую вкладку.
3. Затем найдите меню «Ссылки» и нажмите кнопку «Разорвать ссылки в выбранных диапазонах».

После этого все ссылки в выбранном наборе ячеек будут удалены.

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

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

1. Во-первых, вам нужно проверить, содержится ли какая-либо информация в названных диапазонах. Для этого нажмите комбинацию клавиш Ctrl + F3 или откройте вкладку «Формулы» — «Диспетчер имен». Если имя файла полное, вам просто нужно его отредактировать или удалить совсем. Перед удалением именованных диапазонов вам необходимо скопировать файл в другое место, чтобы вы могли вернуться к исходной версии, если вы сделаете что-то неправильно.
2. Если вы не можете решить проблему, удалив имена, вы можете проверить условное форматирование. Вы можете ссылаться на ячейки из другой таблицы в правилах условного форматирования. Для этого нужно найти соответствующий пункт на вкладке «Главная», затем нажать кнопку «Диспетчер файлов».
   Обычно Excel не предлагает возможности предоставить адрес других книг в условном форматировании, но это делается путем ссылки на именованный диапазон со ссылкой на другой файл. Обычно даже после удаления ссылки ссылка остается. Удалить такую ​​ссылку не составит труда, потому что она фактически не работает. Поэтому ничего плохого не произойдет, если вы его удалите.

Вы также можете использовать функцию проверки данных, чтобы увидеть, нет ли ненужных ссылок. Ссылки обычно остаются, если используется тип проверки данных «Список». Но что делать, если ячеек много? Неужели нужно постоянно проверять каждую из них? Очевидно нет. В конце концов, это займет много времени. Поэтому необходимо использовать специальный код, чтобы сохранить его значимым образом.
Явный вариант

‘—————————————————————————————

Автор: The_Prist (Дмитрий Щербаков)

‘Профессиональная разработка приложений MS Office любой сложности

‘Проведение обучающих курсов в MS Excel

https://www.excel-vba.ru

‘info@excel-vba.ru

WebMoney — R298726502453; Яндекс.Деньги — 41001332272872

‘Сфера:

‘—————————————————————————————

Sub FindErrLink()

    ‘вам нужно посмотреть ссылку Data — Изменить ссылки на исходный файл

    ‘и напишите здесь ключевые слова в нижнем регистре (часть имени файла)

    ‘звездочка просто заменяет любое количество символов, поэтому вам не важно точное имя

    Const sToFndLink $ = «* продажи за 2018 год*»

    Dim rr As Range, rc As Range, rres As Range, s$

    ‘определить все ячейки с проверкой данных

    В случае ошибки Продолжить Далее

    Установите rr = ActiveSheet.UsedRange.SpecialCells (xlCellTypeAllValidation)

    Если rr ничего, тогда

        MsgBox «На активном листе нет ячеек с проверкой данных», vbInformation, «www.excel-vba.ru»

        Выйти ниже

    Конец, если

    При ошибке Перейти к 0

    ‘проверить каждую ячейку на наличие соединений

    Для каждого rc In rr

        ‘на всякий случай пропустим ошибки — это тоже может быть

        ‘но наши связи должны быть без них, и они обязательно будут найдены

        s = «»

        В случае ошибки Продолжить Далее

        s = rc.Convalida.Formula1

        При ошибке Перейти к 0

        ‘нашел — все собираем в отдельный ряд

        Если LCase (s) как sToFndLink, то

            Если ничего нет, то

                Установите rres = rc

            Другой

                Установить rres = Union (rc, rres)

            Конец, если

        Конец, если

    Следующий

    ‘если есть соединение, выберите все ячейки с этими элементами управления данными

    Если ничего нет, то

        rres.Select

‘rres.Interior.Color = vbRed’, если вам также нужно выделить цветом

    Конец, если

Конец подзаголовка

вам нужно создать стандартный модуль в редакторе макросов, а затем поместить туда этот текст. Далее вызываем окно макроса с помощью комбинации клавиш Alt + F8, затем выбираем наш макрос и нажимаем кнопку «Выполнить». При использовании этого кода необходимо учитывать несколько моментов:

1. Прежде чем искать ссылку, которая больше не актуальна, вы должны сначала определить внешний вид ссылки, по которой она была создана. Для этого зайдите в меню «Данные» и найдите пункт «Редактировать ссылки». Далее нужно посмотреть имя файла и указать его в кавычках. Например, вот так: Const sToFndLink $ = «* 2018 продажи*»
2. имя можно написать не полностью, а просто заменить ненужные символы звездочкой. И в кавычках пишите имя файла строчными буквами. В этом случае Excel найдет в конце все файлы, содержащие эту строку.
3. Этот код может проверять ссылки только на текущем активном листе.
4. С помощью этого макроса вы можете выбрать только найденные ячейки. Придется удалить все вручную. Это преимущество, потому что вы можете все перепроверить.
5. Вы также можете выделить ячейки специальным цветом. Для этого удалите апостроф перед этой строкой rres.Interior.Color = vbRed

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

1. Сделайте резервную копию документа.
2. Откроем этот документ с помощью архиватора. Вы можете использовать любой формат, поддерживающий формат ZIP, но WinRar, а также тот, который встроен в Windows, будет.
3. В появившемся архиве нужно найти папку xl и открыть там externalLinks.
4. В этой папке находятся все внешние ссылки, каждая из которых соответствует файлу формата externalLink1.xml. Все только пронумерованы, поэтому пользователь не может понять, что это за соединение. Чтобы разобраться, что за подключение, нужно открыть папку _rels и посмотреть ее там.
5. Затем мы удаляем все определенные ссылки на основе того, что мы узнали из файла externalLinkX.xml.rels.
6. Далее открываем наш файл с помощью Excel. Появится информация об ошибке, например «Ошибка в части содержания книги». Даём согласие. После этого появится другое диалоговое окно. Закрываем.

После этого все ссылки необходимо удалить.

roster Пользователь Сообщений: 15 Регистрация: 26.05.2013	Добрый день! Как удалить не удаляемые связи (старые) с несуществующими книгами? Нажимаю разорвать связь — ничего не происходит.

Ivan.kh Пользователь Сообщений: 2024 Регистрация: 04.03.2013	roster, А через специальную вставку не пробовали вставить только значения???

roster Пользователь Сообщений: 15 Регистрация: 26.05.2013	Дык я не знаю что скопировать/вставить теперь. Оказалось, что накопились за долгую историю, версия файла 39-я, подверсий было в десятки раз больше. Связи, которые якобы есть просто не удаляются. Не понимаю почему.

Ivan.kh Пользователь Сообщений: 2024 Регистрация: 04.03.2013	roster, Ну если Вам нужно просто данные то выделите все скопируйте и через специальную вставку…

roster Пользователь Сообщений: 15 Регистрация: 26.05.2013	Мне нужен весь файл целиком со всеми расчетами и сводными.

roster Пользователь Сообщений: 15 Регистрация: 26.05.2013	Неа, не помогают, остаются списки связей и не удаляются.

DV Пользователь Сообщений: 628 Регистрация: 22.12.2012	Нажмите Ctrl+F3 и удалите все ненужные имена

Blazhenniy Пользователь Сообщений: 36 Регистрация: 15.08.2017	ни один из способов не помог кроме   сохраняете файл как… тип файла: xlsb открыв файл архиватором — удалить папку xl / externalLinks закрываем, открываем, на все отвечаем да и т.п Изменено: Blazhenniy — 27.02.2018 11:21:31

kahelgan Пользователь Сообщений: 1 Регистрация: 14.07.2018	Blazhenniy,помогает. Но возможно, что он все ссылки удаляет?

phelex Пользователь Сообщений: 174 Регистрация: 19.10.2017

#11 06.05.2021 08:50:33 Коллеги, такая же проблема. Файл xlsm сотрудник копировал вместе с формулами, все уже заменено значениями. Через макросы, управление связями все разрывается, но связи все ровно висят и при открытии спрашивает об обновлении. Цитата Blazhenniy написал: открыв файл архиватором — удалить папку xl / externalLinksзакрываем, открываем, на все отвечаем да и т.п Попробовал так. Папки уже нет, но связи остались. Есть ли еще какие то решения? невозможное делаем сразу, чудо — требует небольшой подготовки.

Jack Famous Пользователь Сообщений: 10852 Регистрация: 07.11.2014 OS: Win 8.1 Корп. x64 | Excel 2016 x64: | Browser: Chrome	#12 06.05.2021 09:23:29 phelex, НЕВОЗМОЖНО РАЗОРВАТЬ СВЯЗИ С ДРУГОЙ КНИГОЙ Скрин описания метода Изменено: Jack Famous — 06.05.2021 09:24:52 Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄

phelex Пользователь Сообщений: 174 Регистрация: 19.10.2017	#13 06.05.2021 09:58:07 Jack Famous, спасибо. В гугле тоже наткнулся на этот пункт, оказалось в проверке данных были связи. Спасибо! невозможное делаем сразу, чудо — требует небольшой подготовки.

Хитрости »

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

---

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

Прежде чем разобрать причины ошибки разрыва связей, не лишним будет разобраться что такое вообще связи в 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. Ведь очень часто пользователям приходится использовать информацию из других файлов. Но в некоторых ситуациях они способны скорее нанести вред, чем принести пользу. Ведь, к примеру, если отправлять эти файлы по почте, ссылки оказываются нерабочими. Сегодня мы более подробно поговорим о том, что сделать для избежания такой проблемы.

Что такое связи в Excel

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

1. [Продажи 2018.xlsx]. Этот фрагмент содержит ссылку на файл, из которого нужно достать информацию. Его также называют источником.
2. Отчет. Это мы использовали следующее имя, но это не название, которое должно обязательно быть. В этом блоке содержится название листа, в каком надо находить информацию.
3. $A:$F и $A1 – адрес ячейки или диапазона с данными, которые содержатся в этом документе.

Собственно, процесс создания ссылки на внешний документ и называется связыванием. После того, как мы прописали адрес ячейки, содержащейся в другом файле, изменяется содержимое вкладки «Данные». А именно – становится активной кнопка «Изменить связи», с помощью которой пользователь может отредактировать имеющиеся связи.

Суть проблемы

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

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

Кроме этого, можно отредактировать связи через соответствующую кнопку, расположенную на вкладке «Данные». О том, что связь нарушена, пользователь может также узнать по ошибке #ССЫЛКА, которая появляется тогда, когда эксель не может получить доступ к информации, расположенной по определенному адресу из-за того, что сам адрес недействительный.

Как разорвать связь в Эксель

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

1. Открываем меню «Данные».
2. Находим раздел «Подключения», и там – опцию «Изменить связи».
3. После этого нажимаем на «Разорвать связь».

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

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

Но если количество связей становится слишком большим, вручную их удалять может занять немало времени. Чтобы решить эту проблему за один раз, можно воспользоваться специальным макросом. Он находится в аддоне VBA-Excel. Нужно его активировать и перейти на одноименную вкладку. Там будет находиться раздел «Связи», в котором нам надо нажать на кнопку «Разорвать все связи».

Код на VBA

Если же нет возможности активировать это дополнение, можно создать макрос самостоятельно. Для этого необходимо открыть редактор Visual Basic, нажав на клавиши Alt + F11, и в поле ввода кода записать следующие строки.

Sub UnlinkWorkBooks()

    Dim WbLinks

    Dim i As Long

    Select Case MsgBox(«Все ссылки на другие книги будут удалены из этого файла, а формулы, ссылающиеся на другие книги будут заменены на значения.» & vbCrLf & «Вы уверены, что хотите продолжить?», 36, «Разорвать связь?»)

    Case 7 ‘ Нет

        Exit Sub

    End Select

    WbLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)

    If Not IsEmpty(WbLinks) Then

        For i = 1 To UBound(WbLinks)

            ActiveWorkbook.BreakLink Name:=WbLinks(i), Type:=xlLinkTypeExcelLinks

        Next

    Else

        MsgBox «В данном файле отсутствуют ссылки на другие книги.», 64, «Связи с другими книгами»

    End If

End Sub

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

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

1. Выделить тот набор данных, в котором надо вносить изменения.
2. Устанавливаем дополнение VBA-Excel, после чего переходим на соответствующую вкладку.
3. Далее находим меню «Связи» и нажимаем на кнопку «Разорвать связи в выделенных диапазонах».

После этого все связи в выделенном наборе ячеек будут удалены.

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

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

1. Сначала надо проверить, не содержится ли какая-то информация в именованных диапазонах. Для этого надо нажать на комбинацию клавиш Ctrl + F3 или же открыть вкладку «Формулы» – «Диспетчер имен». Если же имя к файлу указано полное, то нужно просто его отредактировать или же вовсе убрать. Перед тем, как удалять именованные диапазоны, необходимо скопировать файл в какое-то другое место, чтобы можно было вернуться к изначальному варианту, если были совершены неправильные действия.
2. Если не получается решить проблему с помощью удаления имен, то можно проверить условное форматирование. Ссылка на ячейки в другой таблице может содержаться в правилах условного форматирования. Для этого надо найти соответствующий пункт на вкладке «Главная», а потом нажать на кнопку «Управление файлами».
   Обычно 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

Необходимо в редакторе макросов сделать стандартный модуль, а потом туда вставить этот текст. После этого вызвать окно макросов с помощью комбинации клавиш Alt + F8, а потом выбрать наш макрос и кликнуть по кнопке «Выполнить». При использовании этого кода есть несколько моментов, которые надо учитывать:

1. Перед тем, как осуществлять поиск связи, которая уже не актуальна, нужно перед этим определить, как выглядит ссылка, через которую она создается. Для этого надо перейти в меню «Данные» и там найти пункт «Изменить связи». После этого надо посмотреть имя файла, и указать его в кавычках. Например, так: Const sToFndLink$ = «*продажи 2018*»
2. Возможна запись имени не в полном виде, а просто заменить ненужные знаки звездочкой. А в кавычках записывать имя файла обязательно маленькими буквами. В этом случае Эксель найдет все файлы, которые содержат такую строку в конце.
3. Этот код способен проверять наличие ссылок только в том листе, который сейчас активный.
4. С помощью этого макроса можно лишь выделить ячейки, которые он обнаружил. Удалять придется все вручную. Это и плюс, потому что можно еще раз все перепроверить.
5. Также можно сделать так, чтобы ячейки подсвечивались специальным цветом. Для этого нужно убрать знак апострофа перед этой строчкой. rres.Interior.Color = vbRed

Обычно после того, как выполнить действия, описанные в вышеприведенной инструкции, ненужных связей уже не должно оставаться. Но в случае наличия некоторых из них в документе и вашей неспособности по тем или иным причинам их убрать (типичный пример – защищенность данных в листе), то можно воспользоваться другой последовательностью действий. Эта инструкция справедлива лишь для версий 2007 и выше.

1. Создаем резервную копию документа.
2. Открываем этот документ с помощью архиватора. Можно воспользоваться любым, который поддерживает ZIP формат, но также подойдет и WinRar, а также встроенный в Windows.
3. В появившемся архиве необходимо найти папку xl, а там открыть externalLinks.
4. В этой папке находятся все внешние связи, каждая из которых соответствует файлу вида externalLink1.xml. Все они лишь пронумерованы, и поэтому пользователь не имеет возможности понять, какая именно эта связь. Чтобы понять, какая именно связь, надо открыть папку _rels, и там посмотреть его.
5. После этого убираем все или конкретные связи, исходя из того, что мы узнаем в файле externalLinkX.xml.rels.
6. После этого открываем наш файл средствами Excel. Там будет информация об ошибке типа «Ошибка в части содержимого в Книге». Даем согласие. После этого появится еще один диалог. Закрываем его.

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