در این مطلب قصد داریم جهت جلوگیری از بستن ناخواسته یوزرفرم ها (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

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