Разорвать связи на защищенных листах

Пользователь

Сообщений: 6 Регистрация: 29.03.2018

29.03.2018 14:32:19

Добрый день!
Существует такая проблема. Есть файл с множеством листов (около 40 штук). Каждый лист запаролен (пароль я естесственно не знаю). Однако есть ячейки на каждом листе, где пароль не распространяется. В эти ячейки я ставлю ссылки на различные источники. После того, как я полностью заполнил весь файл (и появилась куча внешних ссылок), мне необходимо отправить файл по почте и удалить все связи с внешними книгами. Это занимает тучу времени.
Вопрос: как быстро удалить все связи на защищенных листах? Возможно есть какой-то макрос. Единственное, что пока придумал - это через поиск искать каждую ячейку, где в есть ссылка на внешние источники и убивать формулу в этой ячейке сразу же...
Спасибо!

TheBestOfTheBest

Пользователь

Сообщений: 2366 Регистрация: 03.04.2015

Excel 2010 +PLEX +SaveToDB +PowerQuery

29.03.2018 14:51:47

Код

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

Не мое, нашел в интернете

Неизлечимых болезней нет, есть неизлечимые люди.

mtts54

Пользователь

Сообщений: 164 Регистрация: 10.09.2015

29.03.2018 14:53:18

Переименовываете файл: добавляете точку и расширение rar, т.е. поучаете ИмяФайла.xlsx.rar, открываете файл Winrar'ом.
Ищете папку ExternalLinks и удаляете ее. Производите обратное переименование. Открываете файл, на все вопросы
киваете положительно. Получаете файл без ссылок.

Excel непознаваем как атом.

DESSI Пользователь Сообщений: 6 Регистрация: 29.03.2018	#4 29.03.2018 16:14:16 mtts54, спасибо большое! Выручили очень)