Userform Kapanmasın

[quesh]

Arkadaşlar merhabalar,
diğer kapanmayan userform konularını inceledim ancak kendime uyarlamayı beceremedim.

dosyam açıldığında otomatik olarak Userform8 açılıyor. Userform8 de X (çıkış)'a tıklandığında kapanmamasını istiyorum. X'e tıklandığında ise

MsgBox "Lütfen Giriş Yapınız", vbcritical,

uyarısını vermesini istiyorum.

Kodu nasıl yazarım ve Thisworkbook'a mı yapıştırmam gerekli ?
Teşekkürler

 

[alptun20]

Aşağıdaki kodu denermisiniz.

Not Formun kod bölümüne yapıştırılacak.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Lüfen Giriş Yapınız. ", , "DİKKAT"
Cancel = True
End If
End Sub

 

[quesh]

Hızlı ve net cevabınız için çok teşekkürler. Saygılar.

Aşağıdaki kodu denermisiniz.

Not Formun kod bölümüne yapıştırılacak.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "Lüfen Giriş Yapınız. ", , "DİKKAT"
Cancel = True
End If
End Sub

 

[alptun20]

Rica ederim, iyi çalışmalar.