Userform

[ugurakin]

Herkese merhaba, userform un sağ üst kısımdaki [X] kapat ı nasıl etkisiz hale getirebiliriz? userform un kapanmasını buton dan sağlamak istiyorum. :hiho:

 

[mith]

Kolay gelsin

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then
Cancel = -1
End If
End Sub

 

[ugurakin]

Sn. mith teşekkür ederim, işimi gördü. :hey:

 

[Tarkan VURAL]

Userform Çarpı ile kapanmasın

Selam;
Biraz daha kısaltacak olursak;
[vb:1:04f10b4114]Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Cancel = true
End Sub [/vb:1:04f10b4114]
Kolay gelsin

 

[romanci]

ewet güzel bir kod bu ama bazen sorun olabilir