اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

خطأ عند غلق ملف اكسيل تنفيذي


الردود الموصى بها

الاخ الحبيب وائل

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

الكود وظيفته ان يمنع فتح الاكسيل فى حال عدم تفعيل الماكرو

والكود ده وضعه بالملف سهل جدا لكن ازالته صعبه جدا :rol: عايزه حرفيه شوية زى كدا عملية فصل الجنين عن الام وممكن كمان تضحى بالام علشان الجنين يعيش او تضحى بالجنين علشان الشعب يعيش  يعنى موضوع ازالته عايز جراح وجراح ماهر:power:

وبما انك حولت الملف الى ملف تنفيذى فأصبح الكود ليس منه فائده لان الملف التنفيذى هيشتغل سوء الماكرو مفعل او غير مفعل

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

فى الكود التالى

Sub Auto_Close()
Dim i As Integer
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

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

kh_wVisible False

او ممكن متحزفش بس تعطله تحط  على اليسار هذه العلامه    '

كالتالى ستجد لون الكود اصبح اخضر 

'kh_wVisible False

جرب وعلمنى 

:fff:تقبل تحياتى:fff:

تم تعديل بواسطه الصـقر
  • Like 2
رابط هذا التعليق
شارك

الاخ الحبيب وائل

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

الكود وظيفته ان يمنع فتح الاكسيل فى حال عدم تفعيل الماكرو

والكود ده وضعه بالملف سهل جدا لكن ازالته صعبه جدا :rol: عايزه حرفيه شوية زى كدا عملية فصل الجنين عن الام وممكن كمان تضحى بالام علشان الجنين يعيش او تضحى بالجنين علشان الشعب يعيش  يعنى موضوع ازالته عايز جراح وجراح ماهر:power:

وبما انك حولت الملف الى ملف تنفيذى فأصبح الكود ليس منه فائده لان الملف التنفيذى هيشتغل سوء الماكرو مفعل او غير مفعل

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

فى الكود التالى

Sub Auto_Close()
Dim i As Integer
kh_wVisible False
ThisWorkbook.Close Not CBool(ThisWorkbook.Saved)
Application.DisplayFormulaBar = True
Application.ScreenUpdating = True
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub

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

kh_wVisible False

او ممكن متحزفش بس تعطله تحط  على اليسار هذه العلامه    '

كالتالى ستجد لون الكود اصبح اخضر 

'kh_wVisible False

جرب وعلمنى 

:fff:تقبل تحياتى:fff:تم

تم بفضل الله 

جزاك الله خيرا اخي الكريم صقر  ايها العضو الخبير 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information