I denne artikkelen vil vi vise hvordan du deaktiverer x-knappen på brukerskjemaet ved å bruke VBA.
I dette eksemplet har vi opprettet et brukerskjema som kan aktiveres ved å klikke på kjør -knappen på regnearket.
Denne brukerformen inneholder bare en knapp som brukes til å lukke brukerskjemaet. Brukerskjema kan bare lukkes ved å klikke på denne knappen. Selv å trykke på hurtigtasten Alt+F4 på tastaturet vil ikke kunne lukke denne brukerformen.
Logisk forklaring
For å deaktivere x-knappen på brukerskjemaet, har vi brukt spørring nær hendelsen til brukerskjemaet. Denne hendelsen utløses før brukerformen stenges.
I dette tilfellet har vi satt vilkår om at hvis lukkemodus er menykontroll, må du ikke lukke brukerformen; vis i stedet en informasjonsmelding i dialogboksen.
Følg koden nedenfor
Alternativ Eksplisitt sub kjører () UserForm1.Show End Sub 'Legg til under kode i brukerform Private Sub CommandButton1_Click ()' Lukk brukerskjema Unload Me End Sub Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 'Using Query Close event of Userform' Sammenligning av den konstante verdien for CloseMode -variabelen 'Hvis den er lik den innebygde konstanten for kontrollmenyen' Forhindr deretter lukking av brukerform og 'Vis informasjonsmeldingsdialogboks Hvis CloseMode = vbFormControlMenu deretter' Endre avbryt variabelverdi til True 'Som standard er det Falsk Cancel = True MsgBox "Du kan ikke lukke dialogboksen slik!" Slutt hvis slutt Sub
Hvis du likte denne bloggen, del den med vennene dine på Facebook. Du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post