test for exernal links

  • Thread starter Thread starter hervinder
  • Start date Start date
H

hervinder

Is it possible to test if a workbook has external links to another workbookl

what i am trying to do is display a message when a user closes a workbook
saying the workbook has external links.

How would i code this??
 
I believe there is a security setting that does this check when the workbook
opens(Excel 2007).
 
I'm not sure what you want to do, but maybe...

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim myLinks As Variant
Dim iCtr As Long

myLinks = Me.LinkSources(xlExcelLinks)
If IsEmpty(myLinks) Then
'do nothing
Else
Msgbox "it has links!"
'maybe loop thrugh them (as an example
For iCtr = LBound(myLinks) To UBound(myLinks)
MsgBox myLinks(iCtr)
Next iCtr
End If

End Sub

This code goes into the ThisWorkbook module of the workbook's project.
 
unfortunately i'm still using excel 2003

all i want is something along the lines of

if activeworkbook.externallinks = true then msgbox "this book contains
external links"

if only it was as easy as that
 
thanks dave

works a treat

Dave Peterson said:
I'm not sure what you want to do, but maybe...

Option Explicit
Private Sub Workbook_BeforeClose(Cancel As Boolean)

Dim myLinks As Variant
Dim iCtr As Long

myLinks = Me.LinkSources(xlExcelLinks)
If IsEmpty(myLinks) Then
'do nothing
Else
Msgbox "it has links!"
'maybe loop thrugh them (as an example
For iCtr = LBound(myLinks) To UBound(myLinks)
MsgBox myLinks(iCtr)
Next iCtr
End If

End Sub

This code goes into the ThisWorkbook module of the workbook's project.
Click to expand...
 
Back
Top