Zabráňte zatvoreniu používateľského formulára, keď používateľ klikne na tlačidlo x, pomocou jazyka VBA v programe Microsoft Excel

Anonim

V tomto článku si ukážeme, ako zakázať tlačidlo x na používateľskom formulári pomocou VBA.

V tomto prípade sme vytvorili užívateľský formulár, ktorý je možné aktivovať kliknutím na tlačidlo Spustiť v pracovnom hárku.

Tento užívateľský formulár obsahuje iba jedno tlačidlo, ktoré sa používa na zatvorenie používateľského formulára. Užívateľský formulár je možné zavrieť iba kliknutím na toto tlačidlo. Tento používateľský formulár sa nedá zavrieť ani stlačením klávesovej skratky Alt+F4 na klávesnici.

Logické vysvetlenie

Na deaktiváciu tlačidla x používateľského formulára sme použili udalosť zatvorenia dotazu používateľského formulára. Táto udalosť sa spustí pred zatvorením používateľského formulára.

V tomto prípade sme nastavili podmienku, že ak je režim zatvárania ovládanie ponuky, nezatvárajte užívateľský formulár; namiesto toho v dialógovom okne zobrazte informačnú správu.

Pri kódovaní postupujte podľa nižšie uvedených pokynov

 Voľba Explicitné spustenie () UserForm1. Zobraziť koncovú podkapitolu 'Pridať pod kód v užívateľskej forme Súkromná podradená CommandButton1_Click ()' Zavrieť užívateľský formulár Vyložiť ma Koncová čiastková súkromná podradená UserForm_QueryClose (Zrušiť ako celé číslo, CloseMode ako celé číslo) 'Použitie udalosti dotazu Zavrieť užívateľského formulára' Porovnanie konštantnej hodnoty premennej CloseMode „Ak sa rovná vstavanej konštante ovládacieho menu“ Potom zabráňte zatváraniu používateľského formulára a „Zobrazenie dialógového okna informačnej správy Ak CloseMode = vbFormControlMenu Potom“ Zmena hodnoty premennej na hodnotu True „V predvolenom nastavení je to hodnota False Cancel = True MsgBox "Takto nemôžete zatvoriť dialógové okno!" End If End Sub 

Ak sa vám tento blog páčil, zdieľajte ho so svojimi priateľmi na Facebooku. Môžete nás tiež sledovať na Twitteri a Facebooku.

Budeme radi, ak sa nám ozvete, dajte nám vedieť, ako môžeme zlepšiť našu prácu a zlepšiť ju pre vás. Napíšte nám na emailovú stránku