Selles artiklis näitame, kuidas VBA abil kasutajavormil x-nupp keelata.
Selles näites oleme loonud kasutajavormi, mille saab aktiveerida, klõpsates töölehel käivitusnupul.
See kasutajavorm sisaldab ainult ühte nuppu, mida kasutatakse kasutajavormi sulgemiseks. Kasutajavormi saab sulgeda ainult sellel nupul klõpsates. Isegi klaviatuuri kiirklahvi Alt+F4 vajutamine ei saa seda kasutajavormi sulgeda.
Loogiline seletus
Kasutajavormi x-nupu keelamiseks oleme kasutanud kasutajavormi päringu sulgemise sündmust. See sündmus käivitatakse enne kasutajavormi sulgemist.
Sel juhul oleme seadnud tingimuseks, et kui sulgemisrežiim on menüüjuhtimine, siis ärge sulgege kasutajavormi; selle asemel kuvatakse dialoogiboksis infosõnum.
Palun järgige koodi allpool
Valik Selgesõnaline alam töötab () UserForm1.Show End Sub 'Lisa kasutajakoodi alla allolev kood Private Sub CommandButton1_Click ()' Sulgege kasutajavorm Unload Me End Sub Sub Private Sub UserForm_QueryClose (Tühista täisarvuna, CloseMode as Integer) 'Päringu kasutamine Userformi sulgemise sündmus' Muutuja CloseMode konstantse väärtuse võrdlemine "Kui see on võrdne juhtmenüü sisseehitatud konstandiga", siis vältige kasutajavormi ja dialoogiboksi "Kuva teabe sõnum" sulgemist. Kui CloseMode = vbFormControlMenu Siis "Muutuja tühistamise väärtuse muutmine tõeseks" Vaikimisi on see vale Cancel = True MsgBox "Te ei saa dialoogi niimoodi sulgeda!" Lõpp Kui Lõpp Alam
Kui teile see blogi meeldis, jagage seda oma sõpradega Facebookis. Lisaks saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd paremaks muuta ja teie jaoks paremaks muuta. Kirjuta meile meilisaidile