Šajā rakstā mēs parādīsim, kā lietotāja veidlapā atspējot x pogu, izmantojot VBA.
Šajā piemērā mēs esam izveidojuši lietotāja formu, kuru var aktivizēt, darblapā noklikšķinot uz pogas Palaist.
Šajā lietotāja veidlapā ir tikai viena poga, ko izmanto lietotāja veidlapas aizvēršanai. Userform var aizvērt, tikai noklikšķinot uz šīs pogas. Pat nospiežot tastatūras īsinājumtaustiņu Alt+F4, nevarēs aizvērt šo lietotāja veidlapu.
Loģisks skaidrojums
Lai atspējotu lietotāja formas x pogu, mēs esam izmantojuši lietotāja formas vaicājuma aizvēršanas notikumu. Šis notikums tiek aktivizēts pirms lietotāja veidlapas aizvēršanas.
Šajā gadījumā mēs esam noteikuši nosacījumu, ka, ja aizvēršanas režīms ir izvēlnes vadība, tad neaizveriet lietotāja formu; tā vietā dialoglodziņā parādiet informācijas ziņojumu.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Sub darbojas () UserForm1.Show End Sub 'Pievienot zemāk esošo kodu lietotāja formā Private Sub CommandButton1_Click ()' Aizvērt lietotāja veidlapu Unload Me End Sub Private Sub UserForm_QueryClose (Atcelt kā veselu skaitli, CloseMode kā vesels skaitlis) 'Izmantojot vaicājumu Userform aizvērt notikumu' CloseMode mainīgā nemainīgās vērtības salīdzināšana "Ja tā ir vienāda ar vadības izvēlnes iebūvēto konstanti", tad neļaujiet aizvērt lietotāja formu un dialoglodziņu "Parādīt informācijas ziņojumu". Atcelt = True MsgBox "Jūs nevarat aizvērt dialogu šādi!" Beigt Ja beigt Sub
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē
