Userform hata durumunda kapanması halinde kod çalışması hk.

[tamer42]

Merhaba,
Userform açılırken excel uygulaması görünmesi, userform kapanınca ortaya çıkması için aşağıdaki kodları oluşturdum,
yalnız bazı durumlarda hata verdiği zaman, userform normal yolla kapanmayınca excel de görünmüyor.

Bunun bir çözümü var mı?
userform her ne koşulda bir hata durumunda kapansa bile;
Application.Visible = True kodunun çalışması için bir öneriniz var mıdır?

teşekkürler,

Private Sub UserForm_Initialize()
    Application.Visible = False

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
        Application.Visible = True
End Sub

 

[Levent Menteşoğlu]

Bunun için hata denetleme komutlarını kullanın. Örneğin,

On Error GoTo son
.
.
.Kodlarınız
.
.
Exit Sub
son:
Application.Visible = True