غیر فعال کردن دکمه بستن (Close) یوزرفرم در اکسل

11
بدون دیدگاه
غیرفعال کردن دکمه بستن یوزرفرم در اکسل

در این مطلب قصد داریم جهت جلوگیری از بستن ناخواسته یوزرفرم ها (UserForm) توسط کاربر، نحوه غیرفعال کردن دکمه بستن (Close) یوزرفرم در اکسل را بیان کنیم.

کد غیرفعال کردن دکمه بستن یوزرفرم

فایل اکسل خود را باز کنید و با استفاده از کلیدهای ترکیبی Alt +F11 وارد محیط VBA شوید. در کادر Project روی نام یوزرفرم خود کلیک راست کرده و گزینه View Code را انتخاب و کدهای ذیل را وارد نمایید:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     '========== Sheet1.ir ==========
    If CloseMode = 0 Then Cancel = True
End Sub

نتیجه همانند تصویر ذیل خواهد بود:

غیرفعال کردن دکمه بستن یوزرفرم

حال با هربار کلیک کردن کاربر روی دکمه بستن (Close) یوزرفرم، این کد اجرا شده و مانع از بسته شدن فرم می شود. برای بستن یوزرفرم نیز یک دکمه جدید روی فرم ایجاد کرده و کد ذیل را در رویداد (event) آن وارد کنید :

Private Sub CommandButton1_Click()
     ============= Sheet1.ir ============
    'بستن فرم
    Unload Me
End Sub

نتیجه کار را در ویدیو ذیل می توانید ببینید.

مطالب مرتبط :

5 1 رای
امتیاز شما به این مطلب
guest
0 نظر / سوال
بازخورد (Feedback) های اینلاین
مشاهده تمامی نظرات
فهرست
0
خوشحال می شویم نظر شما را در مورد این مطلب بدانیمx