كود للخروج من الملف يعمل بالحدث اغلاق إطار الملف

[عبدالله باقشير]

السلام عليكم

المطلوب عمل كود بالتالي

1- للخروج عند إغلاق إطار الملف إذا كان هناك حدث يستدعي الحفظ .

2- للخروج باستخدام زر

3- ايقاف الرسالة الإنبعاثية الخاصة بالإكسل

4- انشاء هذه الرسالة عبر الكود

استخدام الحدث :

ThisWorkbook.Saved

Sub kh_Close()
On Error GoTo 1
With ThisWorkbook
        Dim kh_MsgBox
        kh_MsgBox = MsgBox("هل تريد حفظ التغييرات التي أجريتها على " _
        & .Name & " ؟", 3 + 1048576 + 524288, "في أمان الله             خبور خير")
        If kh_MsgBox = 6 Then
            .Save: .Saved = True: .Close
        ElseIf kh_MsgBox = 7 Then
            .Saved = True: .Close
        Else
            GoTo 1
        End If
End With
1 End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error GoTo 1
With ThisWorkbook
    If .Saved = False Then Cancel = True: kh_Close
End With
1 End Sub

___________________.rar

[عادل حنفي]

السلام عليكم

ازادك الله علمك ومنفعتك للناس

[يحيى حسين]

أخي خبور

بارك لك و فيك

ملف جميل جدا جدا

و هذا ما نحتاجه بالفعل

بانتظار المزيد منك

جعل الله اعمالك هذه في ميزان حسناتك

و دمت في حفظ الله و رعايته

[Sado]

استاذي خبور الخير

كل عام و انت بخير

لي سؤال لو سمحت

ما معنى الارقام الموجودة في كودك

Name & " ¿", 3 + 1048576 + 524288,

و ايضا الى ماذا يشير الرقم 6 في السطر السابع

و ايضا الرقم سبعة في السطر التاسع

تم تعديل سبتمبر 9, 2008 بواسطه Sado

[عبدالله باقشير]

السلام عليكم

الاخ / ahh بارك الله فيك

الاخ / ju بارك الله فيك

الاخ / sado بارك الله فيك

في المرفق التوضيح

___vb.rar

[محمدي عبد السميع]

دمت في حفظ الله وعنايته

[Sado]

الأخ خبور

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

و الله اني احبك في الله

جعل الله اعمالك هذه في موازين اعمالك,ساننتظر ابداعاتك يوماً بعد يوم , و يا ريت لو تكون مدعوه بالشروحات حتى المبتدئين امثالي يفهمون روائع اعمالك

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

[joma]

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

وبارك الله فيك