В тази статия ще покажем как да деактивирате бутона x на потребителската форма с помощта на VBA.
В този пример създадохме потребителска форма, която може да бъде активирана чрез щракване върху бутона за изпълнение на работния лист.
Тази потребителска форма съдържа само един бутон, който се използва за затваряне на потребителската форма. Userform може да бъде затворен само с натискане на този бутон. Дори натискането на клавишната комбинация Alt+F4 на клавиатурата няма да може да затвори тази потребителска форма.
Логично обяснение
За деактивиране на бутона x на потребителската форма използвахме събитие за затваряне на заявка на потребителската форма. Това събитие се задейства преди затваряне на потребителската форма.
В този случай сме поставили условие, че ако режимът на затваряне е контрол на менюто, тогава не затваряйте потребителската форма; вместо това покажете информационно съобщение в диалоговия прозорец.
Моля, следвайте кода по -долу
Опция Explicit Sub running () UserForm1.Show End Sub 'Добавете кода по -долу в userform Private Sub CommandButton1_Click ()' Затворете потребителската форма Unload Me End Sub Private Sub UserForm_QueryClose (Cancel As Integer, CloseMode As Integer) 'Използване на Query Close събитие на Userform' Сравняване на постоянната стойност на променливата CloseMode „Ако тя е равна на вградената константа на менюто за управление“ След това предотвратете затварянето на потребителска форма и „Показване на диалоговия прозорец за съобщение за информация Ако CloseMode = vbFormControlMenu След това„ Промяна на стойността за промяна на Промяна на True “По подразбиране е False Cancel = True MsgBox "Не можете да затворите диалоговия прозорец по този начин!" End If End Sub
Ако този блог ви е харесал, споделете го с приятелите си във Facebook. Също така можете да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим работата си и да я направим по -добра за вас. Пишете ни на имейл сайта