اذهب الي المحتوي
أوفيسنا

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

قام بنشر (معدل)

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

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

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

والكود ده وضعه بالملف سهل جدا لكن ازالته صعبه جدا :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