تصحيح كود

[ابو حمادة]

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

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

 

تجربة2.rar

[الـعيدروس]

السلام عليكم

اخي الكريم اذا اردت الاخوه يتفاعلوا مع طرحك ومشكلتك

احسن طرح مشكلتك على سطر من الايضاح

بهذا الشكل تريد ان نبحث عن المشكله حتى نجدها ثم نحلها 

كان الافضل منك ان تشرح نوع المشكله وفي اي حاله صادفتك المشكله

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

 

 

تظهر رسالة خطاء عند التنقل بين الواجهات

المشكله انك تطلب الواجهه الاخراء قبل اخفاء التي تعمل عليها

استخدمت استدعاء Form3.Show قبل امر اخفاء للحالي Me.Hide

اطلع على المرفق علها تلك المشكله في ملفك

تجربة3.rar

[ابو حمادة]

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

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

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

أخي الفاضل أبو أحمد 17475 .. إضافة لما تفضّل بشرحه الأستاذ القدير العيدروس .. جزاه الله خيرًا و زادها بميزان حسناته .. مادام الملف باسم تجربة كان يمكن أن تجرّب بنفسك إظهار الفورم 3 من هذه الجزئية مثلما في الصورة :

هناك مشكلة أخرى ظهرت لي وهي بعد فتح الملف لا يمكن الخروج منه إطلاقًا من علامة الإِكْسْ ..فاضطررت لغلق الجهاز و إعادة تشغيله .. وافر احتراماتي

 

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

[ابو حمادة]

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

[ابو حمادة]

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

انظر لهذا الكود في الحدث BeforeClose

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

 

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

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Ab_DVisible False

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

 

 

 

[ابو حمادة]

هي المشكله صعبه ولا مافيش حد متابع الموضوع دا ؟؟

[الـعيدروس]

السلام عليكم

 

اطلع على المرفق

 

تجربة4.rar

[ابو حمادة]

شكرا لاهتمام حضرتك استاذي الغالي العيدروس ولكن مازالت المشكله قائمه انا كل هدفي ان علامة ( X  )   مش عايز اى حد يغلق الاكسل من خلالها لو عندك طريقه افضل يريت تبعتهالى

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

إذا كنت تقصد أخي الحبيب علامة الإغلاق في الفورم فهذا أمر يسير

يمكن استخدام الكود التالي في حدث الفورم

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    If CloseMode = 0 Then
        Cancel = True
        MsgBox "تم إلغاء هذا الزر للإغلاق .. لطفاً استخدم زر الأمر", vbCritical
    End If
End Sub

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

Test YasserKhalil.rar

[ابو حمادة]

شكر وتقدير ليك استاذ ياسر ولكن انا اقصد ملف الاكسل نفسه انا ممش عايزه يغلق عن طريق (  ) عايز يتم اغلاق ملف الاكسل عن طريق زر انا عامله في الفورم

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

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

http://www.officena.net/ib/topic/64237-مشكله-في-حفظ/

اذا تاخر الرد علي موضوعك قم برفعه بكلمة رفع

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

 

[محمد الورفلي1]

السلام عليكم

لدي هذا المف في جهازي

من هذا المنتدي القيم لعله يكون طلبك

 

الغاء تفعيل علامة x.rar

[ابو حمادة]

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

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

 

[محمد الورفلي1]

السلام عليكم

هل تقصد عند ايقاف عمل الماكروفي الاكسل يكون الكود دون فائدة...... اذ كان هذا مافهمتة اذاً افصل المشكلتن كل مشكلة في مشاركة لتتم المساعدة من الاعضاء ثم سوف تجمع الكودين عند حصولك علي الحل المناسب وبذالك يكون الطلب دقيق وواضح (( هذه نصيحة منى ))