naderwatfa

أفكار جميلة .. و متنوعة شكراً لكما أستاذ عبد الله و أستاذ دغيدى

كود دخول الورقة بتصريح أخذته من موضوع الأخ الفاضل alidroos هنا http://www.officena....showtopic=37412 الورقة تفتح بباس وورد الباسورد هي 123 وتغييرها من الكود في هذا السطر Dim pwd As String: pwd = "123" كود دخول الورقة بتصريح.rar

الكود بعد دمجه في ملف كود دخول الورقة بتصريح.rar

أولاً : أشكرك على الكود الجميل و المفيد جداً أنا ها استفيد منه في عملي ثانياً : اسمح لي أضع الكود في الصفحة دي http://www.officena.net/ib/index.php?showtopic=36867&st=160 حيث يتم تجميع الأكواد في هذا الموضوع

وحشتنا جداً أستاذنا الحبيب و أخونا الغالي خبور خير صاحب الأخلاق العالية ربنا يطمئننا عليك دايماً و يكتب لليمن و أهله النجاة من كل سوء آمين

وحشتنا جداً أستاذنا الحبيب و أخونا الغالي خبور خير صاحب الأخلاق العالية ربنا يطمئننا عليك دايماً و يكتب لليمن و أهله النجاة من كل سوء آمين

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

فورم و كود إخفاء الأوراق يمكنك إخفاء كل أوراق العمل عدا ورقة واحدة مهما كان عدد الأوراق و لإظهار أي ورقة مخفية يتم عن طريق الفورم لا يمكن إظهار الأوراق المخفية بدون كتابة الباسوورد الموجود في ورقة1 فورم إخفاء الأوراق و استدعاؤها بباسوورد.rar

كود منع طباعة الملف الكود في ThisWorkbook كود منع طباعة الملف.rar

أهلاً و سهلاً بك في بيتك الثاني و بين أهلك و أخوانك

أستاذ ياسر حسب ما فهمت منك أنت تريد الكود أن يختار الصف للطباعة بناء على خلية في عامود محدد الكود بوضعه الحالي يعتمد على العامود الأول A فأي خلية فيها بيانات في العامودA سيقوم باختيار الصف للطباعة و إذا كانت الخلية في العامودA خالية فلن يطبع الصف حتى لو كان بقية الصف فيه بيانات لأن الكود يقوم هنا بإخفاء الصف عند الطباعة كما ترى في هذا الجزء من الكود: If .Cells(i, 1).Value = "" Then .Cells(i, 1).EntireRow.Hidden = True ثم يطبع الصفوف بهذا الأمر: PrintOut ثم يظهر الصفوف مرة أخرى بهذا الأمر: Rows.Hidden = False حيث الرقم 1 الأزرق اللون هو رقم العامودA

كود يظهر رسالة تطلب من المستخدم تمكين الماكرو من العمل إذا كان مستوى أمان الماكرو High أو Very High الشرح داخل الملف رسالة لتمكين الماكرو.rar

كود جميل من إحدى المشاركات الجميلة في المنتدى الكود يقوم بطباعة الحقول الممتلئة فقط دون الحاجة لإخفاء الحقول الفارغة طباعة الحقول الممتلئة فقط.rar

فكرة هذا الموضوع رائعة اسمحوا لي بالمشاركة بهذا الكود البسيط كود منع إضافة أوراق عمل جديدة للملف الكود يوضع في ThisWorkbook منع إضافة أوراق.rar

أستاذ أحمد فعلاً عمل رائع و يستحق التقدير بارك الله لك و نفع بك

الشكر لكم جميعاً و كل عام و أنتم بكل خير

الأستاذ الفاضل هشام تقبل كل الشكر و التقدير .. عمل متميز فعلاً لي - إذا سمحت - ملاحظة صغيرة : الخلية A1 في صفحة الغلاف و هي المخصصة لوضع باسوورد فك الكتشنة مغلقة فإذا تكرمت بفتحها ليضع فيها المستخدم الباسوورد التي يريدها سيكون ذلك أفضل مع إمكانية أن تكون مخفية عن الآخرين فلا يعرف أحد غير المستخدم للبرنامج هذه الباسوورد

كل الشكر و التقدير

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

شكراً لكلماتكما الطيبة: aah_aah2008 HaNcOcK بالمصادفة وجدت هذه الإضافة في مشاركة سابقة سنة 2009 للأستاذ زياد علي و فيها كذلك نفس الإضافة لإكسيل 2007 المشاركة السابقة هنا http://www.officena....showtopic=28925 و تحميل الإضافة لإكسيل 2007 هنا http://www.excel-ext...=extools_rx.zip و هنا موقع مصممي هذه الإضافة و فيه شرح كامل لها و لكن باللغة الإنجليزية http://www.excel-extools.com/extools_user_guide.php

هذا كود للبحث في الصفحة و يمكن نسخه لكل صفحات الشيت بحث.zip

لا أعلم أخي يوسف لكنني لا أعتقد أنه يمكن تعريبها و أسأل مثلك هل يمكن ذلك؟

أخي عبد الله لا أعلم السبب فلم يحدث ذلك معي لعل أحد الأخوة يساعدك في ذلك جرب إضافتها من جديد مع حقظ الملف ثم أغلقه ثم افتحه مرة أخرى مرفق ملف فيديو يبين استخدامها في تحديد الصفوف المراد حذفها كمثال حدد أولاً المجال المطلوب ثم تابع كما بالفيديو 18-06-2011 04-15-24 ص.zip

استاذ نادر لو تكرت اريد ملف لحساب المرتبات مطابق للاستماره الموجوده مع السكرتيره أخي الحبيب أنا لا أعرف هذه الاستمارة خصوصاً و نحن في إجازة الصيف يعني لا أستطيع الاطلاع عليها ( علشان ما فيش حد منهم في المدرسة ) كما أنني أعلم أن وزير المالية في طريقه الآن لتغيير هذه الاستمارة بالكامل و أنا تحت أمرك في أي حاجة أقدر أعملها

أشكركم جميعاً أحبائي و أرجو أن تفيدكم هذه الإضافة من فوائدها: إخفاء كل الصفوف و الأعمدة الفارغة الزائدة في الشيت و اختيار صفوف محددة بشرط لحذفها مثلاً و البحث عن القيم المكررة مهما كان حجم الملف و المقارنة بين أوراق العمل المخنلفة في الملف و الكثير من الفوائد جمعت بعضها لمزيد من التوضيح في صور بالمرفق صور للتوضيح.zip