userform açılınca çağrılan nesne hatası

[xxihsidxx]

iyi çalışmalar
ekteki dosyadaki program bitti ve excel çalışma sayfalarını aşağıdaki kodlarla gizleyip programı kullanmak istiyorum.ama bir sorunla karşılaştım.
Private sub workbook_open()
application.visible=false
veri.show
end sub
bu kodlarla kapatıp formu açtığımda açılıyor.ama kapatıp ikinci sefer açtığımda açmıyor.excel kurtarma ve hata iletisi ile karşılaşıyorum.Userform_Initialize olayındaki kodların hepsini temizleyince sorunsuz çalışıyor.sorun nerede bulamadım.1 haftadan beri bu sorunla ilgileniyorum.denemediğim yol kalmadı.yardımcı olacak arkadaşların fikirlerini bekliyorum.

 

[xxihsidxx]

bu userforma neler oluyor

bu konuda yardımcı olacak kimse yok mu?
ilginç olanı ilk açılışta açılıyor.hiçbir işlem yapmadan formu kapatsanız bile birdaha açmıyor.biliyorum kodlar çok uzun.ama sorun bence userform_initialize olayındaki kodlarda.çünkü hepsini temizleyince sorunsuz çalışıyor.

 

[Halit TÜRK]

Merhabalar.. KOdlarınız aşağıdaki gibi değiştiriniz...

Private Sub Workbook_Open()
Application.Visible = False
veri.Show
End Sub


Private Sub CommandButton8_Click()
'FORMU KAPATIR
Me.Hide
ThisWorkbook.Save
End Sub

 

[xxihsidxx]

teşekkür ederim htrk.dediğin gibi yapıp birkaç defa açtım kapattım oldu.ama daha başka çalışmalarımda application.quit şeklinde kodladım o programlar sorunsuz çalışıyor da bu niye çalışmadı acaba.