كود اغلاق

[محمود احمد]

رجاء من الاخوة الافاضل اعضاء االمنتدي .... ابحث عن كود اغلاقبرسالة هل تريد الخروج من البرنامج 

وجزاكم الله كل خير

[Guest محمد ابو صهيب]

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox ("!الرجاء ضغط زر الخروج أسفل الواجهة..."), vbMsgBoxRight + 64, "رسالة توجيه"
Cancel = True
Exit Sub
End If
End Sub

هذا بالنسبة تعطيل الخروج من واجهة الاستخدام 

لبد أن تجعل زر الخروج في واجهة الاستخدام  وتضع فيه الكود 

أعلن عن المتغير réponse   as string 

ضع في زر الإغلاق   call fermer

 Sub fermer()
dim réponse as string
réponse = MsgBox("هل تود حفظ المعلومات فبل المغادرة ?" & Chr(13) & Chr(10) & "    نعم   للمغادرة ; لا   لغلق الملف", vbYesNoCancel + 64 + vbMsgBoxRight + vbMsgBoxRtlReading, "تأكيد الخروج ...")

If réponse = vbYes Then
      For Each Workbook In Application.Workbooks
        Workbook.Save
      Next Workbook
   Application.Quit
End If

If réponse = vbNo Then
    ActiveWorkbook.Save
   ActiveWorkbook.Close
End If

If réponse = vbCancel Then
   MsgBox ("تعذر حفظ المعلومات ")
 End If
End Sub

 

تم تعديل مارس 23, 2016 بواسطه محمد ابو صهيب

[محمود احمد]

شكرا لك اخي الكريم واعتذر عن تاخري في الرد

هذا ما اريد وجزاك الله كل خير وزادك من علمه الواسع

[وائل يونس سلامي]

كل الشكر لكم إخواني

 

تم تعديل مارس 25, 2016 بواسطه وائل يونس سلامي