dosya kurtarma

[xxihsidxx]

herkese iyi çalışmalar
arkadaşlar excelde yapmış olduğum bir çalışmayı aşağıdaki kodlarla kapattım. Dosyayı bir defa açtım bir daha da açamıyorum.Excel dosya kurtarma yaptı . Kurtarılan dosyaları açmaya çalışıncada açmıyor ve office dosya kurtarmaya başlıyor gene.Bu hep böyle devam edip gidiyor.Çalışmaları kurtarmanın yolu yok mu acaba?
Private Sub Workbook_Open()
Application.Visible = False
notgiris.Show
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
ThisWorkbook.Save
End Sub

 

[Mahmut Kök]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Application.Quit
ThisWorkbook.Save
End Sub

Aşağıdaki gidi deneyiniz.

ThisWorkbook.Close True 'kaydetmek istemiyorsanız True değil, false yazın.
Application.visible=true 'Uygulamayı kapatmadan önce tekrar görünür yapmanızda fayda var.
Application.Quit