إلغاء زر إغلاق الفورم Disable Close Button UserForm

السلام عليكم ورحمة الله وبركاته

أقدم لكم كود يوضع في حدث الفورم ، ويقوم الكود بإلغاء زر الإغلاق Close Button ، وإجبار المستخدم على استخدام زر إغلاق مصمم على الفورم

يوضع الكود التالي في موديول عادي ، لإظهار الفورم

Sub ShowForm()
    UserForm1.Show
End Sub

يوضع الكود التالي في حدث الفورم (كليك يمين على اسم الفورم في نافذة المشروع ثم View Code)

Private Sub CommandButton1_Click()
    Unload Me
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "Close Button Has Been Disabled", vbCritical
    End If
End Sub

تحميل الملف من هنا

إعداد / ياسر خليل أبو البراء