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] В приложении документ с разорванными связями и макросом.
Не мое, нашел макрос в интернете: [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
Pelena, Вариант по вашей ссылке я продублирую и в этой теме (интересный способ) :
Цитата
1. открываем копию книгу винраром 2. находим и удаляем папку "externalLinks"
Цитата
3. закрываем архиватор 4. открываем файл в Excel 5. Excel ругается, но потом восстанавливает данные, выдавая следующее: Удаленное свойство: Проверка данных из части /xl/worksheets/sheet7.xml 6. открываем изначальный файл, переходим на 7-й лист и ищем там проверки данных (Ctrl+G, выделить, проверки данных - сначала всех, потом, если их будет несколько, по одному)
В моем случае хватило 5-ти пунктов) DJ_Marker_MC, макрос работает красиво. Спасибо.
Pelena, Вариант по вашей ссылке я продублирую и в этой теме (интересный способ) :
Цитата
1. открываем копию книгу винраром 2. находим и удаляем папку "externalLinks"
Цитата
3. закрываем архиватор 4. открываем файл в Excel 5. Excel ругается, но потом восстанавливает данные, выдавая следующее: Удаленное свойство: Проверка данных из части /xl/worksheets/sheet7.xml 6. открываем изначальный файл, переходим на 7-й лист и ищем там проверки данных (Ctrl+G, выделить, проверки данных - сначала всех, потом, если их будет несколько, по одному)
В моем случае хватило 5-ти пунктов) DJ_Marker_MC, макрос работает красиво. Спасибо.