V tem članku bomo pokazali, kako onemogočiti gumb x na uporabniškem obrazcu z uporabo VBA.
V tem primeru smo ustvarili uporabniški obrazec, ki ga je mogoče aktivirati s klikom na gumb za zagon na delovnem listu.
Ta uporabniška oblika vsebuje samo en gumb, ki se uporablja za zapiranje uporabniške oblike. Uporabniški obrazec lahko zaprete le s klikom na ta gumb. Tudi s pritiskom na bližnjico Alt+F4 na tipkovnici ne boste mogli zapreti te oblike uporabnika.
Logična razlaga
Za onemogočanje gumba x v uporabniškem obrazcu smo uporabili dogodek zaprtja dogodka uporabniškega obrazca. Ta dogodek se sproži pred zaprtjem uporabniškega obrazca.
V tem primeru smo postavili pogoj, da če je način zapiranja nadzor menija, ne zaprite uporabniške oblike; namesto tega v pogovornem oknu prikažete informativno sporočilo.
Za kodo sledite spodaj
Možnost Explicit Sub running () UserForm1.Show End Sub 'Dodaj spodnjo kodo v userform Private Sub CommandButton1_Click ()' Zapri uporabniško obliko Unload Me End Sub Private Sub UserForm_QueryClose (Prekliči kot celo število, ZapriMode kot celo število) 'Uporaba poizvedbe Zapri dogodek Userform' Primerjava konstantne vrednosti spremenljivke CloseMode 'Če je enaka vgrajeni konstanti nadzornega menija' Nato preprečite zapiranje uporabniške oblike in 'Prikaz pogovornega okna s sporočilom o informacijah Če je CloseMode = vbFormControlMenu Potem' Spremeni vrednost spremenljivke Prekliči v True 'Privzeto je napačno Prekliči = True MsgBox "Tako ne morete zapreti pogovornega okna!" End If End Sub
Če vam je bil ta blog všeč, ga delite s prijatelji na Facebooku. Prav tako nam lahko sledite na Twitterju in Facebooku.
Radi bi slišali od vas, nam sporočite, kako lahko izboljšamo svoje delo in ga izboljšamo za vas. Pišite nam na spletnem mestu e -pošte
