FORM'dan X ile Çıkılmasını Engelleme

[baydeniro]

Merhaba arkadaşlar. User Form'dan "x" ile çıkılmasını önlemek mümkün mü ?

 

[irfancantr]

Bahsettiğiniz Userform ise kodları deneyiniz.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
MsgBox ("Kapat Düğmesi ile Çıkış Yapınız")
Cancel = 1
End If
End Sub

Not: Userform'a bir adet Commandbutton ekleyiniz ve ;

Unload Me

Kodlarını ekleyiniz.

 

[baydeniro]

Çok çok teşekkür ederim sayın irfancantr. Çok işimize yarayacak, Allah sizden razı olsun.

 

[irfancantr]

Rica ederim,
Allah hepimizden razı olsun.

 

[security]

Altartanif Olsun...

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

 

[baydeniro]

Teşekkürler sayın security. İyi çalışmalar diliyorum.