V tomto článku si ukážeme, jak zakázat tlačítko x na uživatelském formuláři pomocí VBA.
V tomto příkladu jsme vytvořili uživatelský formulář, který lze aktivovat kliknutím na tlačítko Spustit na listu.
Tento uživatelský formulář obsahuje pouze jedno tlačítko, které slouží k zavření uživatelského formuláře. Formulář uživatele lze zavřít pouze kliknutím na toto tlačítko. Tuto uživatelskou formu nelze zavřít ani stisknutím klávesové zkratky Alt+F4 na klávesnici.
Logické vysvětlení
Pro deaktivaci tlačítka x uživatelského formuláře jsme použili událost zavření dotazu uživatelského formuláře. Tato událost je spuštěna před zavřením formuláře uživatele.
V tomto případě jsme nastavili podmínku, že pokud je zavíracím režimem ovládání nabídky, pak nezavírejte uživatelský formulář; místo toho zobrazte v dialogovém okně informační zprávu.
Pro kód prosím postupujte níže
Možnost Explicit Sub běží () UserForm1.Show End Sub 'Add below code in userform Private Sub CommandButton1_Click ()' Close the userform Unload Me End Sub Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 'Using Query Close event of Userform' Porovnání konstantní hodnoty proměnné CloseMode „Pokud se rovná vestavěné konstantě ovládací nabídky“ Pak zabraňte zavření formuláře uživatele a „Zobrazit dialogové okno informační zprávy Pokud CloseMode = vbFormControlMenu Potom“ Změna hodnoty proměnné Cancel na True „Ve výchozím nastavení je False Cancel = True MsgBox "Takto nemůžete zavřít dialog!" End If End Sub
Pokud se vám tento blog líbil, sdílejte ho se svými přáteli na Facebooku. Také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit naši práci a zlepšit ji pro vás. Napište nám na e -mail