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

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


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

الاخ الكريم

شكرا

وفقك الله

ياسرالحافظ

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

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

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

ابواحمد

السلام عليكم

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

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

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

  • 3 months later...

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

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

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

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

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

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

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

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

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

شكرا

ابو الحارث

المرفقات.rar

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

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

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

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


Sub StopAdd()

Dim wb As Workbook

Set wb = ActiveWorkbook

wb.Protect , True

End Sub

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

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

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

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

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

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

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

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

  • 2 years later...

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

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



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

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

Important Information