اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
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:تم

تم بفضل الله 

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information