Excel'in çýktýktan sonra VBA projesi parola isteminde görünür.

Bir makroyu çalýþtýrma, parola korumalý bir VBA projesi için bir ActiveX dinamik baðlantý kitaplýðý (DLL) içeren bir çalýþma kitabý için bir baþvuru geçtikten sonra Excel'den çýkar, VBA projesi parola sorulur.

Bu sorun oluþur ActiveX DLL DOSYASý parola korumalý VBA içeren çalýþma kitabýný referansý düzgün biçimde serbest býrakmýyor proje.

Bu sorunu gidermek için <a0></a0>, bilgisayarýnýza ActiveX DLL sýnýflarda sýnýflarý sona erdirmek için önce çalýþma kitabýndaki baþvurularý doðru yayýmlanmýþ þekilde tasarlayýn.

Bir <a0>sýnýf</a0> terminate olayý deðil ateþlenmesine, ortak BIR senaryoda nesneler arasýnda döngüsel bir baþvuru kullandýðýnýz paroladýr. Örneðin, bir üst nesnenin alt nesnesi ve ellerinizi oluþturursa, döngüsel bir baþvuru oluþturulmasý, alt, üst baþvuru nesnesi. Üst çocuðun baþvuru yayýmlanýrsa, üst nesnenin sonlandýrýlacak.

Aþaðýdaki bölümdeki adýmlarý, nesneler arasýnda döngüsel baþvuru ortaya çýkabilir ve Excel'den çýkar, üzerine korumalý bir çalýþma kitabý için bir baþvuru nesneleri basýlý tutarsanýz, parola isteminin nasýl görüneceðini gösterir. Olan bir yöntemi ise nesneleri sona erdirmek, Döngüsel baþvurularý ayýrmak için nesnelerden birini çaðýrmak için çözümleme, ayrýca, aþaðýda açýklanmýþtýr.

Davranýþý yeniden oluþturma adýmlarý

1. Visual Basic'de ActiveX DLL yeni bir proje oluþturun. Proje için ExcelTest deðiþtirin.
2. ParentClass için Class1 adýný deðiþtirin ve sonra da ParentClass için aþaðýdaki kodu ekleyin:

   Option Explicit
   
   Private oChild As ChildClass
   Private WorkbookRef As Object
   
   Private Sub Class_Initialize()
      Set oChild = New ChildClass
      Set oChild.Parent = Me
   End Sub
   
   Private Sub Class_Terminate()
      Set oChild.WorkbookRef = Nothing
      Set oChild.Parent = Nothing
      Set oChild = Nothing
      MsgBox "ParentClass Terminate Event"
   End Sub
   
   Public Sub Clear()
       Set oChild.Parent = Nothing
   End Sub
   
   Public Sub SetWorkbook(o As Object)
       Set WorkbookRef = o
       Set oChild.WorkbookRef = o
   End Sub
   					

3. Baþka bir sýnýf modülü Ekle ChildClass olarak adlandýrýn ve sonra da ChildClass için aþaðýdaki kodu ekleyin:

   Public Parent As ParentClass
   Public WorkbookRef As Object
   					

4. "ExcelTest.dll" oluþturun.
5. Microsoft Excel'de yeni bir çalýþma kitabý oluþturun. Visual Basic Editor'ý açmak için ALT+F11 tuþ bileþimine basýn.
6. Ekle menüsünden UserForm VBA projesi için yeni bir userform eklemek için týklatýn.
7. Ekle menüsünden modülü VBA projesi için yeni bir modül eklemek için týklatýn. Yeni modüle aþaðýdaki kodu ekleyin:

   Public o As Object
   Sub MyMacro()
       UserForm1.Show
       Set o = CreateObject("ExcelTest.ParentClass")
       o.SetWorkbook ThisWorkbook
       'o.Clear  '<=== Remove comment to demonstrate the workaround.
       Set o = Nothing
   End Sub
   					

8. Araçlar menüsünden VBAProject özellikler ' i seçin. Görüntülenen iletiþim kutusunda koruma sekmesini Görüntüleme için LOCK Project seçmek için Týklat'i týklatýn. Bir parola girin ve Tamam ' ý týklatýn.
9. Çalýþma kitabýný kaydedin ve kapatýn.
10. Þimdi, Excel sonlandýrýldýðýnda, VBA projesi parola görüntülenmesini ile sorunu yeniden oluþturmak için:
    1. 9. Adýmda kaydettiðiniz çalýþma kitabýný açýn.
       
       Makrolarý devre dýþý býrakýlmýþ olabileceðini belirten bir güvenlik uyarýsý istenirse, Microsoft Office Excel 2007'de, Seçenekler ' i týklatýn. Güvenlik iletiþim kutusunda, Bu içeriði etkinleþtir ' i týklatýn ve sonra Tamam ' ý týklatýn.
    2. Aþaðýdaki eylemlerden birini gerçekleþtirin:
       • Excel 2007'de <a0>Geliþtirici</a0> sekmesindeki <a1>kod</a1> grubunda makrolar ' ý týklatýn. Geliþtirici sekmesindeki yoksa bir [[ear, Microsoft Office düðmesi ' ni týklatýn, Excel Seçenekleri ' ni týklatýn, popüler ' ý týklatýn, Þeritte Geliþtirici sekmesini göster</a1> onay kutusunu týklatýp seçin ve Tamam ' ý týklatýn.
       • Microsoft Office Excel 2003'de veya Excel'in daha önceki bir sürümünde makro, Araçlar menüsünden Seçenekler'i týklatýn ve makrolar ' ý týklatýn.
    3. MyMacro listeden seçin ve sonra da <a2>Çalýþtýr</a2>'ý týklatýn.
    4. Makro görüntüleyen userform kapatmak.
    5. Microsoft Excel'den çýkýn.
    6. Excel'den çýkar, VBA projesi parola sorulur.

Sorunu yeniden oluþturmak için yukarýdaki adýmlarý kullandýðýnýzda, Excel içinde nesne bile ayarladýktan sonra ParentClass sýnýfý terminate olayý baþlatýlmýyor Not Nothing makro. (Bu olay deðil ateþlenmesine "Olay ParentClass sonlandýr" iletisiyle MessageBox yokluðunu gösterir.)

Excel çalýþma kitabýna baþvuru düzgün olarak serbest býrakýlýr, sorunu gidermek için <a0></a0>, Excel Makroda belirtilen satýr açýklamayý kaldýrmak için makroyu kaydetmek ve sonra da belirtilen sýnama iþlemini yineleyin. Çalýþma kitabý baþvurusu düzgün olarak serbest býrakýlýr, nesnenin Terminate olayý harekete ve artýk için VBA sorulur Excel'den çýkar, proje parola.