object library invalid or contains references to object definitions that could not be

[osmanli2]

Sayın Üstadlar, ofis 2007 den ofis 2010 a geçtim ama userformlarım açılmıyor ve şu hatayı alıyorum: "object library invalid or contains references to object definitions that could not be found" Yardımlarınızı rica ediyorum..

 

[Levent Menteşoğlu]

Hazırladığınız userformda kullandığınız bazı nesnelere ait referansların bulunamadığını söylüyor. VB editöründe missing ile başlayan referans olup olmadığını kontrol edin. Eğer bu referanslar gereksiz yere işaretli ise işareti kaldırın.

 

[osmanli2]

Problemi nette araştırdım ve sonuç olarak; Bu hata UserForm initialize olurken meydana geliyormuş.Çözüm olarak ise C:\Documents and Settings\Kullanıcı_Adı\Application Data\Microsoft\Forms klasöründeki "exd" uzantılı dosyaları silmemiz yeterliymiş. Denedim sorun çözüldü. Böyle bir çözüm sağlıklı bir sistem için sorun olurmu bilmiyorum.

 

[hsayar]

aynı hatayı ben xla olarak tanımnladığım menü kitabında Windows Temel parçalar güncelleştirmesini yükledikten sonra almaya başladım.

xla'nın Thisworkbook nesnesindeki kodalr aşağıdaki gibi, büyük ölçüde ripekten uyarlama

'BU KİTABIN REFERENCES ŞİFRESİ "      HSAYAR           " dır
'Option Explicit
Dim clsEkUygExcel() As New Clss_XlaMenu
 
Private Sub Workbook_Open()
ReDim Preserve clsEkUygExcel(1)
Set clsEkUygExcel(1).clsEkUygExcel = Excel.Application
Call Ozelmenuekle
Call prvFonksiyonKılavuzu               'Fonksiyonların açıklamalarını çağır.
'Call LoadFunctionDescriptions
Dim strFontList As String
Dim blnCheckResp As Boolean
    
    If (ThisWorkbook.IsAddin = True) Then
        #If VBA6 Then
             Call prvFontListGet("Init", 0, strFontList, blnCheckResp)
        #Else
            Application.ScreenUpdating = False
            ThisWorkbook.IsAddin = False
            Call prvFontListGet("Init", 0, strFontList, blnCheckResp)
            ThisWorkbook.IsAddin = True
            ThisWorkbook.Saved = True
            Application.ScreenUpdating = True
        #End If
    Else
        Call prvFontListGet("Init", 0, strFontList, blnCheckResp)
    End If
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim strYazar, strAcklm As String, dteAcklm As String
strYazar = "Hüseyin SAYAR"
strAcklm = "V1.5 - Bu eklenti excel.web.tr üyelerinin çalışmalarından derlenmiştir."
dteAcklm = Format(Time, "dd/mm/yyyy - mm:hh:ss")

ThisWorkbook.BuiltinDocumentProperties.Item("Comments") = ""
ThisWorkbook.BuiltinDocumentProperties.Item("Comments") = strYazar & Chr(10) & strAcklm & Chr(10) & dteAcklm
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call OzelmenuKaldır
'    Call UnLoadFunctionDescriptions
    If (ThisWorkbook.IsAddin = True) Then
        ThisWorkbook.Saved = True
    End If
End Sub

'Private Sub Workbook_Open()
'    LoadFunctionDescriptions
'End Sub
Private Sub WorkbookBeforeClose()
'    UnLoadFunctionDescriptions
End Sub


'============== ( MacroOptions )===========================
Private Sub prvFonksiyonKılavuzu()
    On Error Resume Next
    With Application
' [ English Version ]
        .MacroOptions macro:="ktMsgBox", _
                Description:="The Function which is substitutes MsgBox(VBA Only)" & vbCrLf _
                            & "Location/Font Color/Background Color/Wev Sound/Icon" & vbCrLf _
                            & "can be customized.", _
                Category:="Only-VBA"

        .MacroOptions macro:="ktMsgBoxEX", _
                Description:="The Function which is substitutes MsgBox(VBA Only)" & vbCrLf _
                            & "Location/Font Color/Background Color/Wev Sound/Icon" & vbCrLf _
                            & "can be customized(can change font unit of lines).", _
                Category:="Only-VBA"

        .MacroOptions macro:="ktWebColor2Num", _
                Description:="The function changes into the RGB value from 'Color Name' which specify at HTML." & vbCrLf _
                            & "Kind D:Numeric value, H:String type of '&Hbbggrr&'" & vbCrLf _
                            & "W:String type of '#rrggbb'", _
                Category:="Only-VBA"

        'UniqueRandomNumbers
        .MacroOptions macro:="UniqueRandomNumbers", _
                Description:="Ratgele Sayılar Üretmek İçin Kullanılır.(VBA Only)" & vbCrLf _
                            & "RİPEK" & vbCrLf _
                            & "excel.wTr.", _
                Category:="Only-VBA"

        .MacroOptions macro:="UCaseTr", _
                Description:="Küçük Harfleri Büyük Harfe çevirmek için kullanılır.(VBA Only)" & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"

        .MacroOptions macro:="LCaseTr", _
                Description:="Büyük Harfleri Küçük Harfe çevirmek için kullanılır.(VBA Only)" & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"

        .MacroOptions macro:="LowerTr", _
                Description:="Büyük Harfleri Küçük Harfe çevirmek için kullanılır.(VBA Only)" & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"

        .MacroOptions macro:="UpperTr", _
                Description:="Küçük Harfleri Büyük Harfe çevirmek için kullanılır.(VBA Only)" & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"

        .MacroOptions macro:="FncIlkHarflerBuyuk", _
                Description:="Metindeki ilk harfleri Büyük yapmak için kullanılır.(VBA Only)" & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"

        .MacroOptions macro:="NTC_Düzeni", _
                Description:="Cümledeki ilk harfleri Büyük yapmak için kullanılır.(VBA Only)" & vbCrLf _
                            & "Veysel Emre & HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"
        .MacroOptions macro:="BKH_deg", _
                Description:="BÜYÜK harfleri küçük, küçük harfleri BÜYÜK yapmak için kullanılır." & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"

        .MacroOptions macro:="FncTersYaz", _
                Description:="Metni Tersten yazar" & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"

        .MacroOptions macro:="Sayidan_Harfe", _
                Description:="1(A) den 25259(ZZZ) a kadar olan sayıları harf olarak döndürür." & vbCrLf _
                            & "HSayar" & vbCrLf _
                            & "excel.wTr.", _
                Category:="HSayar-Metin"
   End With
   On Error GoTo 0
End Sub
'

 

[utku25]

Excel 2010 sorunu

Osman hocam çok teşekkür ederim sayende sorunu çözdük.

Problemi nette araştırdım ve sonuç olarak; Bu hata UserForm initialize olurken meydana geliyormuş.Çözüm olarak ise C:\Documents and Settings\Kullanıcı_Adı\Application Data\Microsoft\Forms klasöründeki "exd" uzantılı dosyaları silmemiz yeterliymiş. Denedim sorun çözüldü. Böyle bir çözüm sağlıklı bir sistem için sorun olurmu bilmiyorum.

 

[Ergün Güler]

Problemi nette araştırdım ve sonuç olarak; Bu hata UserForm initialize olurken meydana geliyormuş.Çözüm olarak ise C:\Documents and Settings\Kullanıcı_Adı\Application Data\Microsoft\Forms klasöründeki "exd" uzantılı dosyaları silmemiz yeterliymiş. Denedim sorun çözüldü. Böyle bir çözüm sağlıklı bir sistem için sorun olurmu bilmiyorum.

Selam,
Sayın osmanli'nin dediği gibi "*.exd" uzantılı dosyayı sildim. sorun çözüldü. Yalnız, aynı PC'yi kullanıp da aynı sorunu yaşayan kullanıcılar kendi oturumlarını açıp silmeliler.

Aşağıdaki linke göz atınız.

http://www.lessanvaezi.com/delete-exd-files-to-fix-object-library-invalid-error/

 

[scorpix]

*.exd uzantılı dosyaları silmek bende işe yaramadı başka bir yolunu bilen varmıdır.