U ovom ćemo članku pokazati kako onemogućiti gumb x na korisničkom obliku pomoću VBA.
U ovom primjeru stvorili smo korisnički oblik koji se može aktivirati klikom na gumb za pokretanje na radnom listu.
Ovaj korisnički obrazac sadrži samo jedan gumb koji se koristi za zatvaranje korisničkog oblika. Korisnički obrazac se može zatvoriti samo klikom na ovaj gumb. Čak i pritiskom tipke prečaca Alt+F4 na tipkovnici nećete moći zatvoriti ovaj korisnički oblik.
Logično objašnjenje
Za onemogućavanje gumba x korisničkog oblika upotrijebili smo događaj zatvaranja upita korisničkog oblika. Ovaj se događaj pokreće prije zatvaranja korisničkog oblika.
U ovom smo slučaju postavili uvjet da, ako je način zatvaranja kontrola izbornika, ne zatvarajte korisnički obrazac; umjesto toga prikazati informativnu poruku u dijaloškom okviru.
Molimo slijedite dolje za kôd
Opcija Explicit Sub running () UserForm1.Show End Sub 'Dodajte donji kod u korisnički obrazac Private Sub CommandButton1_Click ()' Zatvori korisnički obrazac Unload Me End Sub Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 'Korištenje upita Zatvori događaj Userform' Usporedba konstantne vrijednosti varijable CloseMode "Ako je jednaka ugrađenoj konstanti kontrolnog izbornika" Zatim spriječite zatvaranje korisničkog oblika i "Prikaz dijaloškog okvira s informacijama o poruci Ako je CloseMode = vbFormControlMenu Zatim" Promjena vrijednosti poništenja varijable u True "Prema zadanim postavkama, to je Netačno Cancel = True MsgBox "Ne možete zatvoriti dijalog na ovaj način!" Kraj ako završi pod
Ako vam se dopao ovaj blog, podijelite ga sa svojim prijateljima na Facebooku. Također, možete nas pratiti na Twitteru i Facebooku.
Voljeli bismo vas čuti, javite nam kako možemo poboljšati svoj rad i učiniti ga boljim za vas. Pišite nam na web stranici e -pošte