I den här artikeln kommer vi att visa hur du inaktiverar x-knappen på användarformuläret med VBA.
I det här exemplet har vi skapat en användarform som kan aktiveras genom att klicka på kör -knappen på kalkylbladet.
Denna användarform innehåller bara en knapp som används för att stänga användarformuläret. Användarform kan endast stängas genom att klicka på den här knappen. Även genom att trycka på genvägstangenten Alt+F4 på tangentbordet kan du inte stänga denna användarform.
Logisk förklaring
För att inaktivera x-knappen för användarformen har vi använt frågestängningshändelse för användarformen. Denna händelse avfyras innan användarformen stängs.
I det här fallet har vi satt villkor att om stängningsläge är menykontroll så stäng inte användarformen; visa istället ett informationsmeddelande i dialogrutan.
Följ koden nedan
Alternativ Explicit Sub running () UserForm1.Show End Sub 'Lägg till nedan kod i användarform Privat kommandoButton1_Click ()' Stäng användarformuläret Ladda ner mig Avsluta Sub Private Sub UserForm_QueryClose (Avbryt som heltal, CloseMode som heltal) 'Använda fråga Stäng händelse av användarform' Jämföra det konstanta värdet för CloseMode -variabeln 'Om det är lika med den inbyggda konstanten i kontrollmenyn' Förhindra sedan att användarformulär stängs och 'Dialogrutan Visa informationsmeddelande Om CloseMode = vbFormControlMenu Sedan' Ändra Avbryt variabelvärde till True 'Som standard är det Falskt Cancel = True MsgBox "Du kan inte stänga dialogrutan så här!" Slut Om Slut Sub
Om du gillade den här bloggen, dela den med dina vänner på Facebook. Du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen