Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode <> 1 Then Cancel = 1
Me.Caption = "هذه الخاصية لا تعمل فضلا استخدم زر الخروج"
MsgBox "هذه الخاصية لا تعمل فضلا استخدم زر الخروج"
End Sub
السلام عليكم ورحمة الله اخي انا نزلت المرفق الثاني من النت وجربتة اشتغل لانة لايوجد شي تغيير سوى سطرين والكود