Šiame straipsnyje mes parodysime, kaip išjungti „x“ mygtuką naudotojo formoje naudojant VBA.
Šiame pavyzdyje sukūrėme vartotojo formą, kurią galima suaktyvinti spustelėjus darbalapio mygtuką Vykdyti.
Šioje vartotojo formoje yra tik vienas mygtukas, naudojamas vartotojo formai uždaryti. Vartotojo formą galima uždaryti tik spustelėjus šį mygtuką. Net jei klaviatūroje paspausite spartųjį klavišą Alt+F4, negalėsite uždaryti šios vartotojo formos.
Loginis paaiškinimas
Norėdami išjungti vartotojo formos x mygtuką, naudojome vartotojo formos užklausos uždarymo įvykį. Šis įvykis suaktyvinamas prieš uždarant vartotojo formą.
Šiuo atveju mes nustatėme sąlygą, kad jei uždarymo režimas yra meniu valdymas, neuždarykite vartotojo formos; dialogo lange rodykite informacinį pranešimą.
Sekite toliau pateiktą kodą
Parinktis „Explicit Sub“ veikia () „UserForm“. 1 Rodyti pabaigą „Pridėti žemiau esantį kodą naudotojo formoje„ Private Sub CommandButton1_Click “()„ Uždaryti naudotojo formą „Unload Me End Sub Sub Private Sub UserForm_QueryClose“ (Atšaukti kaip sveikąjį skaičių, „CloseMode As Integer“) „Naudojant užklausą„ Userform “uždarymas“ „CloseMode“ kintamojo pastoviosios vertės palyginimas „Jei ji lygi vidinei valdymo meniu konstantai“, tada neleiskite uždaryti naudotojo formos ir „Rodyti informacijos pranešimo dialogo lango. Jei„ CloseMode = vbFormControlMenu “Tada„ Atšaukti kintamojo reikšmės pakeitimą į „Tiesa“ Pagal numatytuosius nustatymus tai yra klaidinga Atšaukti = Tiesa MsgBox "Negalite uždaryti dialogo lango taip!" Pabaiga Jei pabaiga Sub
Jei jums patiko šis tinklaraštis, pasidalykite juo su draugais „Facebook“. Be to, mus galite sekti „Twitter“ ir „Facebook“.
Mes norėtume išgirsti jūsų nuomonę, praneškite mums, kaip galime pagerinti savo darbą ir padaryti jį geresnį. Rašykite mums el