nesneye atanan dış bağlantı makrosunu tespit edebilir miyiz?

[uzmanamele]

merhaba

bir dosyada bir nesneye makro atamışım. sonra bu sayfayı başka bir çalışma kitabına kaydetmişim.
bu durumda dosyayı açtığımda başka bir çalışma kitabına bağlantı olduğu mesajı alıyorum. küçük bir araştırma ile sorunu çözdüm ama öğrenmek istediğim; bir dosyada dış bağlantı varsa, bu bağlantı formül bağlantısıysa bunu tespit edebiliyoruz (sitede bununla ilgili kod örneği var) ancak bir nesneye atanan makro şeklindeyse bunu tespit edecek kodu yazabilir miyiz?

 

[Levent Menteşoğlu]

Süleyman bey formül bağlantıları ile ilgili olan linki verirmisiniz.

 

[uzmanamele]

merhaba

Levent bey, konu ile ilgili linki hatırlamıyorum ama kodları arşivime almıştım.

Sub ExRef()
Dim MyRange As Range
Dim i As Integer, j As Integer, No As Integer
Dim MyMsg1 As String, MyMsg2 As String, MyMsg3 As String
Dim MyArray()
For i = 1 To Worksheets.Count
No = 0
For Each MyRange In Sheets(i).UsedRange
If InStr(1, MyRange.Formula, "[") Then
MyRange.Interior.ColorIndex = 6
No = No + 1
ReDim MyArray(1 To No)
MyArray(No) = Sheets(i).Name & " --- " & MyRange.Address(False, False)
For j = LBound(MyArray) To UBound(MyArray)
If MyArray(j) <> "" Then MyMsg2 = MyMsg2 & vbCrLf & MyArray(j)
Next
End If
Next
MyMsg1 = MyMsg1 & vbCrLf & Sheets(i).Name & " sayfasında " & No & " adet "
Next
MyMsg3 = "(Bulunan hücreler sarı renkle işaretlenmiştir.)"
MsgBox MyMsg1 & vbCrLf & WorksheetFunction.Rept("--", 20) & vbCrLf & "Dış bağlantılı hücre bulundu." _
& vbCrLf & vbCrLf & "Bulunan hücreler :" & vbCrLf & MyMsg2 _
& vbCrLf & vbCrLf & MyMsg3, , "Rapor !"
End Sub

 

[Levent Menteşoğlu]

Süleyman bey, böyle bir tespit, nesneye bağlanan butonun onaction metodu ile yapılabilir. Örneğin sayfadaki bir butona bağlı makro adını, aşağıdaki gibi bir yöntem ile elde edebilirsiniz.

MsgBox ActiveSheet.Shapes("Button 1").OnAction

 

[uzmanamele]

merhaba

Levent bey, teşekkür ederim.