xla nın aynı zamanda varsayılan references olması

[hsayar]

xla nın aynı zamanda references olması şöyleki eklentilerde
ktMsgBoxAddin.xla
adlı dosyam işaretli ama yazdığım kodların geçerli olabilmesi için açık kitaplarda referencesten işaretli olması lazım.
kayıtlı veya yeni ile açılan tüm kitaplarda bu dosyanın işaretlenmesi mümkünmüdür.

 

[hsayar]

veya varsayılan referanslar (references) arasına eklmek mümkünmüdür.

 

[hsayar]

olayı bazı sorular sormak marifeti ile hallettim.

Xla dosyanıza
Class1 adlı bir class module ekleyin ve

Public WithEvents eklenti As Application

Private Sub eklenti_WorkbookOpen(ByVal Wb As Workbook)
    Call Referencese_Ekle
End Sub


Private Sub eklenti_NewWorkbook(ByVal Wb As Workbook)
    Call Referencese_Ekle
End Sub

Private Sub Referencese_Ekle()
On Error Resume Next
Dim dsyAddIns As AddIn, dsyRefAd As String, dsyRefNo As Integer
dsyRefAd = ThisWorkbook.FullName
MsgBox dsyRefAd, , "class1"
If ThisWorkbook.FullName <> ActiveWorkbook.FullName Then
    For dsyRefNo = 1 To ActiveWorkbook.VBProject.References.Count
        KntRef = ActiveWorkbook.VBProject.References.Item(dsyRefNo).FullPath
        If KntRef <> dsyRefAd Then
            GoTo son
        End If
    Next dsyRefNo
son:
    For Each dsyAddIns In Application.AddIns
        If dsyAddIns.Installed Then
            If dsyRefAd = dsyAddIns.FullName Then
                On Error Resume Next
                ActiveWorkbook.VBProject.References.AddFromFile (dsyRefAd)
                On Error GoTo 0
            End If
        End If
    Next
End If
End Sub

THİSWORKBOOK A

Dim eklenti() As New Class1
 
Private Sub Workbook_Open()
ReDim Preserve eklenti(1)
Set eklenti(1).eklenti = Excel.Application
'.............
End Sub

ekleyiniz. Böylelikle Eğe Xla dosyanız Eklenti olarak işaretli ise Yeni Kitaplarınız ve Kayıtlı eski kitaplarınız References olarak tanımlanmışl olacaktır.
Böylelikle xla dosyanızdaki kullanıcı tanımlı fonksiyonlarınızda vbe penceresinde kullanabileceksiniz.