Aktif Saat "X" Kapatma Butonu

[vivident]

Userforma saat ekledim, Kodlar aşağıdaki gibidir. Userform açıldıktan sonra sağ üstteki "X" işaretinden kapanırsa ne hücrelere girebiliyorsunuz nede Alt+F11 penceresine. Excel kapanıncaya kadar Do döngüsü sanırım çalışıyor. Lakin kapatma düğmesine aşağıdaki diğer kodu, yani "End" koyarsak sorun çözülüyor.

Yanlız benim userform üzerinde kapatma düğmesi yok ve eklemek istemiyorum. "X" düğmesi ile kapanmasını istiyorum. ne yapmam gerekli

Private Sub UserForm_Activate()
Do
Label1.Caption = Format(Now, "dd.mm.yyyy  - hh:mm:ss")
DoEvents
Loop
End Sub

Kapatma düğmesi var ise ;

Private Sub CommandButton1_Click()
End
Unload Me
End Sub

 

[suleyman242]

Userforma saat ekledim, Kodlar aşağıdaki gibidir. Userform açıldıktan sonra sağ üstteki "X" işaretinden kapanırsa ne hücrelere girebiliyorsunuz nede Alt+F11 penceresine. Excel kapanıncaya kadar Do döngüsü sanırım çalışıyor. Lakin kapatma düğmesine aşağıdaki diğer kodu, yani "End" koyarsak sorun çözülüyor.
Yanlız benim userform üzerinde kapatma düğmesi yok ve eklemek istemiyorum. "X" düğmesi ile kapanmasını istiyorum. ne yapmam gerekli

kodunu bu kısma yaz

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
   If CloseMode = vbFormControlMenu Then
End
Unload Me
   End If
End Sub