I denne artikel viser vi, hvordan du deaktiverer x-knappen på brugerformularen ved hjælp af VBA.
I dette eksempel har vi oprettet en brugerform, som kan aktiveres ved at klikke på knappen Kør på regnearket.
Denne brugerformular indeholder kun en knap, der bruges til at lukke brugerformularen. Brugerformularen kan kun lukkes ved at klikke på denne knap. Selv at trykke på genvejstasten Alt+F4 på tastaturet vil ikke kunne lukke denne brugerform.
Logisk forklaring
Til deaktivering af x-knappen på brugerformularen har vi brugt forespørgselslukningshændelse for brugerformularen. Denne begivenhed udløses, før brugerformularen lukkes.
I denne hændelse har vi sat betingelse for, at hvis lukningstilstand er menukontrol, skal du ikke lukke brugerformen; vis i stedet en informationsmeddelelse i dialogboksen.
Følg venligst nedenstående for koden
Option Eksplicit sub kører () UserForm1.Show End Sub 'Tilføj nedenstående kode i brugerform Private Sub CommandButton1_Click ()' Luk brugerformularen Fjern mig Slut Sub Private Sub UserForm_QueryClose (Annuller som heltal, CloseMode som heltal) 'Brug forespørgsel Luk begivenhed for brugerform' Sammenligning af den konstante værdi for CloseMode -variablen 'Hvis den er lig med den indbyggede konstant i kontrolmenuen' Forhindr derefter lukning af brugerformularen og 'Vis informationsmeddelelsesdialogboks Hvis CloseMode = vbFormControlMenu derefter' Ændring af Annuller variabelværdi til True 'Som standard er det Falsk Cancel = True MsgBox "Du kan ikke lukke dialogen sådan!" Afslut hvis slut Sub
Hvis du kunne lide denne blog, kan du dele den med dine venner på Facebook. Du kan også følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet