Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Разоврвать связь с другим файлом (удалить связь exel 2010) - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Разоврвать связь с другим файлом (удалить связь exel 2010)
biomirror Дата: Вторник, 14.04.2015, 08:36 | Сообщение № 1
Группа: Проверенные
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, не могу удалить связь одного файла эксель с другим файлом.
К сообщению приложен файл: 9096103.rar (82.0 Kb)


Сообщение отредактировал biomirror - Вторник, 14.04.2015, 08:37
 
Ответить
СообщениеЗдравствуйте, не могу удалить связь одного файла эксель с другим файлом.

Автор - biomirror
Дата добавления - 14.04.2015 в 08:36
Pelena Дата: Вторник, 14.04.2015, 08:49 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19518
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
У Вас лист защищен.
Посмотрите здесь

Ещё обнаружила, что в столбце С формулы ссылаются на этот связанный файл


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеУ Вас лист защищен.
Посмотрите здесь

Ещё обнаружила, что в столбце С формулы ссылаются на этот связанный файл

Автор - Pelena
Дата добавления - 14.04.2015 в 08:49
DJ_Marker_MC Дата: Вторник, 14.04.2015, 08:51 | Сообщение № 3
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Не мое, нашел макрос в интернете:
[vba]
Код
Sub KillLinks()
     'удаляет ссылки на другие книги Excel
     Dim iLinks As Variant, i&
     iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
     If Not IsEmpty(iLinks) Then
         If MsgBox("Книга содержит внешние связи!" & Chr(13) & "Разорвать связи?", vbYesNo + vbInformation, "Связи...") = vbNo Then: Exit Sub
         For i = 1 To UBound(iLinks)
             ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks
         Next i
     End If
End Sub
[/vba]
В приложении документ с разорванными связями и макросом.
К сообщению приложен файл: marker_mc.rar (86.6 Kb)
 
Ответить
СообщениеНе мое, нашел макрос в интернете:
[vba]
Код
Sub KillLinks()
     'удаляет ссылки на другие книги Excel
     Dim iLinks As Variant, i&
     iLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
     If Not IsEmpty(iLinks) Then
         If MsgBox("Книга содержит внешние связи!" & Chr(13) & "Разорвать связи?", vbYesNo + vbInformation, "Связи...") = vbNo Then: Exit Sub
         For i = 1 To UBound(iLinks)
             ActiveWorkbook.BreakLink Name:=iLinks(i), Type:=xlExcelLinks
         Next i
     End If
End Sub
[/vba]
В приложении документ с разорванными связями и макросом.

Автор - DJ_Marker_MC
Дата добавления - 14.04.2015 в 08:51
biomirror Дата: Вторник, 14.04.2015, 10:41 | Сообщение № 4
Группа: Проверенные
Ранг: Участник
Сообщений: 95
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Вариант по вашей ссылке я продублирую и в этой теме (интересный способ) :
Цитата
1. открываем копию книгу винраром
2. находим и удаляем папку "externalLinks"


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

В моем случае хватило 5-ти пунктов)
DJ_Marker_MC, макрос работает красиво. Спасибо.

Подскажите пожалуйста, как вставить картинку с превью, как в ссылке с примером http://www.excelworld.ru/forum/2-12911-1


Сообщение отредактировал biomirror - Вторник, 14.04.2015, 10:45
 
Ответить
СообщениеPelena, Вариант по вашей ссылке я продублирую и в этой теме (интересный способ) :
Цитата
1. открываем копию книгу винраром
2. находим и удаляем папку "externalLinks"


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

В моем случае хватило 5-ти пунктов)
DJ_Marker_MC, макрос работает красиво. Спасибо.

Подскажите пожалуйста, как вставить картинку с превью, как в ссылке с примером http://www.excelworld.ru/forum/2-12911-1

Автор - biomirror
Дата добавления - 14.04.2015 в 10:41
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2025 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!