Many times I’ve wrote applications, where top right X button had to be disabled. Code has been borrowed from Johna Walkenbach.
When user clicks UserForm “X” button then Msgbox appears. Code for Msgbox:
MsgBox "To close this window please click START lub CLOSE.", vbInformation, "ERRROR..."
Please notice that MsgBox says that in UserForm there are two more button such as START and CLOSE. These buttons have to be added to UserForm with code to close Userform this is Unload Me.
Following code has to pasted in UserForm area, in UserForm area where we want to block right top X button:
Private Sub UserForm_QueryClose _
(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
MsgBox "To close this window please click START lub CLOSE.", vbInformation, "ERRROR..."
Cancel = True
End If
End Sub
Rebuilded solution. UserForm_QueryClose working together with UserForm_Terminate
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) ' Disable UserForm "X" button, If CloseMode = vbFormControlMenu Then If MsgBox("Are you really shut down app?", vbYesNo + vbQuestion, "CLOSE...") = vbYes Then Call UserForm_Terminate Else ' vbNO, nothing happened Cancel = True End If End If End SubPingback: qiuqiu99
Pingback: mơ thấy anh em gặp nhau
Pingback: Parrots for Sale
Pingback: australian labradoodle puppies for sale
Pingback: Keltecs
Pingback: SSCN BKN 2021 Kabupaten Muna Barat
Pingback: mơ rắn cắn đánh đề bao nhiêu
Pingback: Best CVV Sites
Pingback: sex dolls shop
Pingback: 12ga Shotgun
Pingback: nằm mơ thấy rắn hổ mang
Pingback: mơ thấy gấu đánh con gì
Pingback: mo thay an bap
Pingback: satta king
Pingback: dơi bay vào nhà tốt hay xấu
Pingback: nam mo thay gay rang
Pingback: mơ thấy thỏ trắng
Pingback: tor search
Pingback: pasarqq
Pingback: Stiiizy flavors
Pingback: mơ bị đòi nợ
Pingback: giải mã giấc mơ gặp người yêu cũ
Pingback: mơ mất xe đạp đánh con gì
Pingback: panzer bp12
Pingback: mơ thấy đi chùa lạy phật
Pingback: bai cat te
Pingback: choi game doi thuong tren may tinh
Pingback: mơ thấy đứt tay chảy máu
Pingback: mơ thấy quả bưởi đánh con gì
Pingback: nằm mơ thấy đi chùa
Pingback: mơ thấy chuối xanh
Pingback: mơ rụng tóc đánh con gì
Pingback: tangerine sign in
Pingback: dumps cc
Pingback: realcouchtuner.com
Pingback: do you need a driving license to buy a car uk
Pingback: ตู้แปลภาษา
Pingback: นิยาย pdf
Pingback: nam mo thay giet nguoi
Pingback: mơ bị sét đánh
Pingback: mơ thấy tàu hỏa
Pingback: www.bilskrotgbg.se
Pingback: mơ thấy lợn đẻ
Pingback: mơ thấy nhà đánh con gì
Pingback: nằm mơ thấy đầu người
Pingback: rapid rewards promo code 2017
Pingback: 토토사이트 추천
Pingback: 메이저놀이터
Pingback: cpnsaubs
Pingback: how safe is viagra
Pingback: welke landen is viagra vrij verkrijgbaar
Pingback: how many mg of zithromax to cure chlamydia
Pingback: cialis
Pingback: viagra no prescription
Pingback: comprar viagra online contrareembolso
Pingback: federal resume writing service
Pingback: research writing
Pingback: write my essay for me online
Pingback: help me write an apa essay
Pingback: amoxicillin 75 mg
Pingback: how much is furosemide 20mg
Pingback: zithromax prescription cost
Pingback: stromectol in canada
Pingback: order ventolin from canada no prescription
Pingback: acne medication doxycycline
Pingback: prednisolone acetate ophthalmic
Pingback: is clomid legal
Pingback: priligy tablets walmart
Pingback: diflucan iv dose
Pingback: synthroid vs armour
Pingback: propecia wikipedia
Pingback: neurontin and fibromyalgia
Pingback: contraindications of metformin
Pingback: paxil for dogs
Pingback: plaquenil allergic rash
Pingback: safe buy cialis
Pingback: cost of tadalafil without insurance
Pingback: cialis walmart
Pingback: original for sale
Pingback: online payday loan dearborn heights
Pingback: sildenafil citrate 20 mg how fast does it work
Pingback: retin a from canadian pharmacy
Pingback: stromectol
Pingback: how to know who liked you on tinder
Pingback: advance america cash advance coon rapids
Pingback: cialis without a doctor prescription
Pingback: buy 36 hour
Pingback: buy 36 hour
Pingback: dating chat line free trial
Pingback: buy ativan fast shipping
Pingback: best price for tadalafil 20 mg
Pingback: fildena pills
Pingback: super fildena 100
Pingback: generic cialis at walmart