مشكله في حفظ

[ابو حمادة]

 تجربة2.rar

 

وعند غلق البرنامج يغلق فقط كما في هذه الصورة

 

 

اتمنى حد يفدنى ويحل هذه المشكله بقالي اسبوع مش عارف احلها مرفق ملف

 تجربة2.rar

تجربة2.rar

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

جرب تحذف هذا الجزء من الكود

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
If Sheets(1).Range("a1").Value = 0 Then
Cancel = True
Else
Cancel = False
End If
End Sub

 

[ابو حمادة]

شكرا لردك استاذ ياسر ولكن بردو لما بغلق الاكسل مش بيقفل ولازم اغلق الكمبيوتر عشان الاكسل يقفل نهائي يريت تفتح الملف وتشاهد بنفسك

[ياسر العربى]

تفضل حبيبي الحل

تجربة2.rar

[عبد العزيز البسكري]

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

أخي الكريم ياسر العربي مازال مشكل الإغلاق قائمًا .. أنصح الأخ أبو أحمد بإعادة ترتيب الملف من جديد .. تحياتي

[ياسر العربى]

كل اللي المفروض يتعمل هو تغيير قيمة الشرط عند اغلاق البرنامج فهو قام بوضع شرط  ولم يضع تغييره للاغلاق

انه لو وجد الخلية A1

قيمتها 0 يبقي البرنامج مش هيقفل

انا ضيفت سطر عند الاغلاق سواء في زر حفظ او عدم حفظ

ارجوا ان يكون المراد

تجربة2.rar

[ابو حمادة]

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

مش عارف ايه السبب

لو امكن حضرتك تعمل ملف يكون بنفس النتيجه الموجوده وترتب الاكواد انت بطريقه صحيحه ولو ينفع تعمل نافذه دخول اسم مستخدم وكلمة مرور

يكون افضل وجزاك الله كل خير

[ياسر العربى]

 جرب اخي الغالي هذا 

وهل قام احد المشاركين في الموضوع بتجربة هذا الملف وظهر عنده نفس المشكلة؟؟؟؟

 

تجربة2.rar

تم تعديل أكتوبر 17, 2015 بواسطه ياسر العربى

[ابو حمادة]

متشكر استاذ ياسر لاهتمامك ولك منى الف تحيه