Не разрывается связь в excel что делать

Не разрывается связь в excel

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

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

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

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

Разрыв связи

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

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

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

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

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

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

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

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

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

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

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

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

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

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

​: Доброго дня. Вот​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​и все же,​ отчет, а точнее​

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

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

​: Возможно ли принудительно​​ книгой и могу​ in the workbook.​ кучу всякого хлама​ не дал. Пишет​: Как вариант выделить​: Народ,помогите!​ будет перемещено в​

​ связи при перетаскивании​ щелкните каждый связанный​ вам, с помощью​Dim FileName As​ связей в ЭКСЕЛЬ. ​ из разных источников​roster​ LBound(WorkbookLinks) To UBound(WorkbookLinks)​ отчеты мешает запрос​ сохранить те значения,​ ее разорвать без​ For Each xName​ Прикрепленные файлы Снимок.PNG​ на новый лист​

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

​: Неа, не помогают,​​Wb.BreakLink _​ восстановления связей.​ которые рассчитаны на​ проблем. Проблема в​ In ActiveWorkbook.Names ‘If​

​ (36.25 КБ)​ список всех связей​ и очистить. Все​ перештудировала, не могу​Значения​Значения​Чтобы выделить все связи,​

​ Для удобства также​On Error Resume​: Всем доброго дня.​ как умудриться оставить​

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

​ данный момент? Искать​​ том, что эту​ a name is​TheBestOfTheBest​ (включая внешние).​ равно ссылки мертвые.​ найти ответ(​.​
​существующей сводной таблицы​

​ нажмите клавиши CTRL+A.​ приводим ссылку на​ Next​ Админ, точно такую​ в этой ячейке​
​ и не удаляются.​Type:=xlLinkTypeExcelLinks​ генерации такого отчета​ формулы по всему​ связь я не​ not visible (it​: Лист1, яч О8​Выкладываю в хорошие​ А потом править​Ситуация такая. есть​

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

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

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

​ руки.​​ зависимые. Или пересохранить​
​ файл 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)​ трех книг, при​ спрашиваете, может Вам​

Как разорвать связи макросом? (Макросы/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​​ вставку не пробовали​​ не влияет.​ книгу, эти диапазоны​

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

​Делаю тоже самое​​ 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»)​

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

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

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

​ таблицах, и ранжирует​​ то связи обнаружить​.​ в запросе могут​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​ только наиболее вероятную​ таблицами в сводной​ между этими таблицами,​

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

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

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

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

Связь – это очень полезная возможность 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, и в поле ввода кода записать следующие строки.

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

If Not IsEmpty(WbLinks) Then

For i = 1 To UBound(WbLinks)

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

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

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

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

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

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

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

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

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

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

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

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

‘ Проведение тренингов по MS Excel

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

‘надо посмотреть в Данные -Изменить связи ссылку на файл-иточник

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

‘звездочка просто заменяет любое кол-во символов, чтобы не париться с точным названием

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»

On Error GoTo 0

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

For Each rc In rr

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

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

On Error Resume Next

On Error GoTo 0

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

If LCase(s) Like sToFndLink Then

If rres Is Nothing Then

Set rres = Union(rc, rres)

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

If Not rres Is Nothing Then

‘ rres.Interior.Color = vbRed ‘если надо выделить еще и цветом

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

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

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

Не разрывается связь в excel что делать

На разных машинах одно и тоже

На разных машинах одно и тоже rogert

На разных машинах одно и тоже Автор — rogert
Дата добавления — 10.09.2014 в 12:14

на листе Catalog
в ячейках:
C48:C49,E49,E52,C52,C54:C55,E54:E55,E58,C58,E74,C74,C66,E66

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

как быстро найдено:
1. открываем копию книгу винраром
2. находим и удаляем папку «externalLinks»

3. закрываем архиватор
4. открываем файл в Excel
5. Excel ругается, но потом восстанавливает данные, выдавая следующее:
Удаленное свойство: Проверка данных из части /xl/worksheets/sheet7.xml
6. открываем изначальный файл, переходим на 7-й лист и ищем там проверки данных (Ctrl+G, выделить, проверки данных — сначала всех, потом, если их будет несколько, по одному)

на листе Catalog
в ячейках:
C48:C49,E49,E52,C52,C54:C55,E54:E55,E58,C58,E74,C74,C66,E66

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

как быстро найдено:
1. открываем копию книгу винраром
2. находим и удаляем папку «externalLinks»

3. закрываем архиватор
4. открываем файл в Excel
5. Excel ругается, но потом восстанавливает данные, выдавая следующее:
Удаленное свойство: Проверка данных из части /xl/worksheets/sheet7.xml
6. открываем изначальный файл, переходим на 7-й лист и ищем там проверки данных (Ctrl+G, выделить, проверки данных — сначала всех, потом, если их будет несколько, по одному) Саня

Сообщение на листе Catalog
в ячейках:
C48:C49,E49,E52,C52,C54:C55,E54:E55,E58,C58,E74,C74,C66,E66

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

как быстро найдено:
1. открываем копию книгу винраром
2. находим и удаляем папку «externalLinks»

3. закрываем архиватор
4. открываем файл в Excel
5. Excel ругается, но потом восстанавливает данные, выдавая следующее:
Удаленное свойство: Проверка данных из части /xl/worksheets/sheet7.xml
6. открываем изначальный файл, переходим на 7-й лист и ищем там проверки данных (Ctrl+G, выделить, проверки данных — сначала всех, потом, если их будет несколько, по одному) Автор — Саня
Дата добавления — 10.09.2014 в 14:13

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

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

Документ содержит связи с другими файлами. Обновить в документе данные, связанные с другими файлами?

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

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

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

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

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

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