userformu kapatınca klavye aktif olmuyor?

[kenangulal]

merhaba arkadaşlar, userformu sağ üst köşedeki carpı işaretinden kapatıyorum ,kapandıktan sonra escape,delete gibi klavye tuşları çalışmıyor toolbar da aktif olmuyor ne yapabilirim. teşekkürler.
syg,

 

[xxrt]

Private Sub UserForm_Activate()
On Error Resume Next
Do
Label4 = Format(Now, "dd.mm.yyyy hh:mm:ss")
DoEvents
Loop
End Sub

kodu buna neden olmaktadır.
Bunun için,
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
End
End Sub
yazmanız gerek

 

[kenangulal]

teşekkür ederim xxrt saygılarımla.