هل يمكن عمل رسالة بديلة لرسالة الحفظ العادية؟؟

[أحمد مرجان]

أساتذة المنتدى السلام عليكم ورحمة الله

هل يمكننى عمل كود لعمل رسالة جديدة بدلا من الرسالة الافتراضية لحفظ التغييرات بأكسل بحيث لا تظهر الرسالة الافتراضية وتظهر الرسالة البديلة عند غلق الملف وبه التغييرات؟؟

وشكرا جزيلا

[أحمد مرجان]

هل لها من حل؟

[ياسر خليل أبو البراء]

أخي الحبيب أحمد مرجان (والإكسيل هيبقا بالمجان)

إليك الملف المرفق التالي ..

يوضع الكود في حدث المصنف

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim Answer As Long
    Answer = MsgBox("Do You Want To SAVE This Workbook?", vbYesNo, "Officena Query")
    If Answer = vbYes Then
        Me.Save
    ElseIf Answer = vbNo Then
        Me.Saved = True
    End If
End Sub

Change Default Save Message.rar

[أحمد مرجان]

شكرا لك أستاذنا الكبير ياسر خليل وبجد مش عارفين نقولك ايه ربنا يجازيك خير ويجعل علمك لينا دايما بالمجان

[ياسر خليل أبو البراء]

حدد الإجابة في المشاركة رقم 3 كأفضل إجابة ..مفيش حاجة بالمجان ...خلينا ناخد نقطة يا جدع