Error 429: ActiveX component can't create object Hatası

[Ergün Güler]

Selam Arkadaşlar,
Bir dosyamı kapadıktan sonra herhangi makrolu, userformlu bir 2. bir dosya açtığımda, aşağıdaki hatayı veriyor:
run-time error '429':
ActiveX component can't create object

2.dosyanın Userformunu 2.defa açınca hata vermiyor.
Tespit edebildiğim kadarıyla 1.dosyamdan kaynaklanıyor. 1.dosyam açıkken sorun yok. Ancak, nedense kapattıktan sonra 2. dosyaları açarken yukarıdaki hata oluşuyor.

1.dosyamdaki aşağıdaki kodları şüphelendim ve sildim. Defalarca denedim hata olmadı. Aşağıdaki kodları neden böyle bir arızaya sebebiyet veriyor. Ne yapmam gerekir? Yardımcı olabilirseniz çok sevinirim.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = 0 Then Cancel = True

If MsgBox("FERAG-Bakım Programını Kapatmak İstediğinize Emin misiniz?", vbCritical + vbYesNo, "ÇIKIŞ İŞLEMİ") <> vbYes Then Exit Sub

If Environ("username") <> "ergun.guler" And Environ("username") <> "Ergün" Then
ThisWorkbook.Close False
Else
ThisWorkbook.Worksheets(1).Visible = xlSheetVisible
For i = 2 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Visible = xlSheetHidden
Next
ThisWorkbook.Close
End If

End Sub

Şimdiden çok teşekkürler.
İyi çalışmalar.

 

[Ergün Güler]

Selam,
Yardımcı olabilecek kimse var mı?
İyi çalışmalar.