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

كود منع اضافة اوراق جديدة


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

الاخ الكريم

شكرا

وفقك الله

ياسرالحافظ

جزاك الله خيرا على هذه الأكواد النافعة

بارك الله فيك اخي الفاضل على هذه الاكواد

ونتمنى ان تستمر بهذا العطاء

ابواحمد

السلام عليكم

جزاك الله خير اخي يحيى على الكود الرائع

اخواني الكرام جزاكم الله خيرا ونفعنا بكم

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

  • 3 months later...

اخي العزيز هل هناك طريقة لشرح كيفية التعامل مع الاكواد او طريقة عملها

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

ممكن توضيح كيف يعمل

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

الاخ العزيز qudrah :

وعذرا من اخي الاستاذ " يحيــــــــــــــــاوي "

لايمكنك ان تضيف اية ورقة على الملف ( الا اذا قمت بتعطيل الكود من محرر الاكواد )

شاهد الصور المرفقة

واذا فعلا استطعت ان تضيف اوراق عمل جديدة نرجوا ارفاق ملفك للدراسة

شكرا

ابو الحارث

المرفقات.rar

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

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

كود جميل اخي يحياوي

و انا كنت استخدم الكود التالي في عملية منع إضافة صفحات جديدة


Sub StopAdd()

Dim wb As Workbook

Set wb = ActiveWorkbook

wb.Protect , True

End Sub

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

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

وي على هذا الكود وكذلك الاستاذ يحيى حسين

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

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

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

لمزيد من الفائدة ارجع الى الموضع التالي ========>>

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

  • 2 years later...

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