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

1,073
4 دیدگاه
غیرفعال کردن دکمه بستن یوزرفرم در اکسل

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

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

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

[sourcecode language="vb"]
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
     '========== Sheet1.ir ==========
    If CloseMode = 0 Then Cancel = True
End Sub
[/sourcecode]

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

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

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

[sourcecode language="vb"]
Private Sub CommandButton1_Click()
     ============= Sheet1.ir ============
    'بستن فرم
    Unload Me
End Sub
[/sourcecode]

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

مطالب مرتبط :

5 1 رای
امتیاز
اطلاع از
guest

4 نظر / سوال
قدیمی ترین
تازه‌ترین بیشترین واکنش نشان داده شده(آرا)
بازخورد (Feedback) های اینلاین
مشاهده تمامی نظرات
4
0
خوشحال می شویم نظر شما را در مورد این مطلب بدانیمx