Links termination

Iftul Гость	#1 06.08.2008 13:01:53 Можно ли сделать так(с помошью макроса...,а лучше без),чтобы линки автоматически убирались при закрытии файла,либо выводилось бы напоминание,что нужно убрать линки?

Pavel55

Гость

06.08.2008 13:05:56

Как без макроса не знаю, а макросом так

Вставьте этот код в модуль ЭтаКнига(ThisWorkbook) через Alt+F1l

Private Sub Workbook_BeforeClose(Cancel As Boolean)
KillLinks 'Проверка на внешние ссылки
End Sub

Private 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

Pavel55 Гость	#3 06.08.2008 13:09:32 ... через Alt+F11 (или щёлкнуть правой клавишей мыши на ярлычке листа (слева внизу) и выбрать "Исходный текс" и там уже выбрать модуль ЭтаКнига)

kaa Пользователь Сообщений: 508 Регистрация: 01.01.1970	#4 06.08.2008 13:15:41 без макроса: правка - связи - разорвать связь

Guest

Гость

06.08.2008 13:32:30

{quote}{login=kaa}{date=06.08.2008 01:15}{thema=}{post}без макроса: правка - связи - разорвать связь{/post}{/quote}

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

Pavel55 Гость	#6 06.08.2008 13:33:41 опять опечатался )) ".... взять себе за правило ...." ))

kaa

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

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

06.08.2008 13:46:38

{quote}{login=}{date=06.08.2008 01:32}{thema=Re: }{post}{quote}{login=kaa}{date=06.08.2008 01:15}{thema=}{post}без макроса: правка - связи - разорвать связь{/post}{/quote}

)) я тоже хотел это предложить, но это боюсь не будет "автоматически при закрытии файла", как хотел автор), если только взять себе за правильно и делать это на автомате при закрытии книги ){/post}{/quote}

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

Iftul Гость	#8 06.08.2008 14:41:06 Нет,что-то не фурычит...

Iftul

Гость

06.08.2008 15:13:04

{quote}{login=Pavel55}{date=06.08.2008 01:05}{thema=}{post}Как без макроса не знаю, а макросом так

Вставьте этот код в модуль ЭтаКнига(ThisWorkbook) через Alt+F1l

Private Sub Workbook_BeforeClose(Cancel As Boolean)
KillLinks 'Проверка на внешние ссылки
End Sub

Private 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{/post}{/quote}

Возможно,что что-то не так с кодом,перепробовал все варианты?!

Iftul Гость	#10 06.08.2008 16:38:16 {quote}{login=Iftul}{date=06.08.2008 03:13}{thema=Re: }{post}{quote}{login=Pavel55}{date=06.08.2008 01:05}{thema=}{post}Как без макроса не знаю, а макросом так Вставьте этот код в модуль ЭтаКнига(ThisWorkbook) через Alt+F1l Private Sub Workbook_BeforeClose(Cancel As Boolean) KillLinks 'Проверка на внешние ссылки End Sub Private 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{/post}{/quote} Возможно,что что-то не так с кодом,перепробовал все варианты?!{/post}{/quote} Заработал макрос,спасибо

Читают тему