كود لعدم الحفظ

[amir501]

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

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

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

[عادل حنفي]

السلام عليكم

اخي جرب هذا الكود و ضعه في محرر اكواد الملف في Thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveWorkbook.Close savechanges:=False

End Sub

مرفق مثال

تحياتي

11.rar

[amir501]

السلام عليكم

اخي جرب هذا الكود و ضعه في محرر اكواد الملف في Thisworkbook

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

ActiveWorkbook.Close savechanges:=False

End Sub

مرفق مثال

تحياتي

اولا جزاك الله كل خير يفي بالغرض نوعا ما... هل يمكن تشغيل هذا الكود بتاريخ معين ....وان امكن عند الضغط على حفظ ان لا يغلق الملف فقط لا يتم حفظ اي تغيير

وجزاك الله عني كل خير