userformu kapatmak

[mtbi00]

iyi günler. sizden ricam hazırladığımız useformda sağüst köşede bulunan (x) kapatma tuşunu pasif yapabilirmiyiz.Hazırladığım userformda çıkış için butok koymak ve çıkışın onunla yapılmasını istiyorum ama herhangi bir yerde kırmızı (x) tuşuna basınca userform kapanıyor. Bunu nasıl engelleyebilirim.İlgilenenlere şimdiden teşekkür ederim.

 

[Orion1]

Aşağıdaki kodu userformun modülüne yapıştırın.

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
    MsgBox "X dan veya alt+f4 ile kapatamazsınız." & vbLf & _
    "kapatmak için kapat butonuna basınız.", vbCritical, "E V R E N"
    Cancel = True
End If
End Sub

 

[mtbi00]

evren hocam ilginden dolayı çok teşekkür ederim. excel bilgim çok az olduğu için bu soruyu soruyorum kusura bakma.bu userform modülü nerde ben bulamadım.

 

[mtbi00]

hocam tamamdır buldum çok teşekkür ederim. sağolun..

 

[Orion1]

VBE'de userforma çift tıklayın .Açılan pencereye (Kodların bulunduğu pencere) yapıştırın.