قطان

أخواني الأعزاء أحتاج أن تعود الورقة المطلوبة لتظهر في البداية دوما حتى لو حفظت الملف وأغلقته وأنا بورقة أخرى يعني كمثال : أريد الورقة الخامسة دائما تظهر لدى فتح الملف حتى لو ذهبت للورقة الثالثة وحفظت الملف وأغلقت أريد الورقة الخامسة أن تظهر في البداية والسلام ختام

تعديل هام بحيث أن القيم لم تكن مرتبة فقد تم تخطي المشكلة وأرجو الرد بأي مشكلة أخرى لأني أتعلم الأكسيل حديثا وصدقوني أحتاج للتشجيع ( من الخبراء ) والسلام ختام Book2.rar

بسم الله ما شاء الله الرد أكثر من رائع لكن سأشرح بالتفصيل كيفية عمل المطلوب أولا : نحدد الخلايا التي نريد التطبيق عليها ( العمود الأول في ملفنا ) ثانيا : نذهب إلى القوائم - التحقق من صحة البيانات ثالثا : من اعدادات نحدد من القائمة المنسدلة - مخصص رابعا : نضع الكود المشار إليه سابقا في مربع الصيغة =COUNTIF($A$1:$A$100,A1)=1 مع التأكيد على البدأ بعلامة = ثم موافق والسلام ختام

أخي الكريم حدد الخلايا اللي تبي تقفلها ثم اضغط كليك يمين واختار تنسيق الخلايا ومن حماية أشر على ( تم تأمينها ) ثم موافق الخطوة الثانية : اذهب إلى حماية الورقة ( من القوائم ) واضغط حماية الورقة وضع كلمة السر ثم موافق ثم كرر الكلمة ثم موافق وحاول بعدها الكتابة في الخلية المحمية ( ولن يسمح لك ) أرجو أن أكون قد أوضحت و أفدت والسلام ختام

Book2.rarخي الكريم من بعد اذن أخي وأستاذي أحمد أقدم الحل على شكل كود أرجو أن يكون المطلوب والسلام ختام

جزاك الله كل خير وفي ميزان حسناتك ان شاء الله والسلام ختام

أريد من أخواني الأعزاء شرح الكود بالتفصيل الممل ( لو سمحتم ) LastRow = Cells(Rows.Count, "B").End(xlUp).Row والسلام ختام

للإفادة

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

من بعد خبيرنا أخي العزيز aah_aah2008 حاولت فهم ما يريده أخونا العضو tofimoon4 وقمت بالتعديل على الملف المرفق وأرجو أن يكون المطلوب والسلام ختام Post_Offset0.rar

أخي العزيز mhareek جربت الكود ولم يعمل فما السبب برأيك ؟؟؟؟ علما بأني قمت بنسخه من الموقع نسخا !!!!!!!!!!! والسلام ختام

مشكور أخي abuzzouz وجزاك الله كل خير لكن كما قال أخي aah_aah2008 لم تعمل الأكواد وطبعا بسبب ملفي الذي لا تعرفه وليس قصر في الكود أما ما هو مطلوب فمن رد أخي aah_aah2008 أحسست أنه مستحيل ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ أرجو بيان الأمر من خبراء الأكسيل والسلام ختام

ما شاء الله أرجو الإفادة بالطريقة لأنها رائعة والسلام ختام

أخي الكريم اسمح لي بالرد لاحظ الكود الذي يتم التطبيق عليه For Each cell In Range("AQ68:N4") وهو ما يجب تغييره لـ A1 ويتم تغيير Case "ت1" إلى Case "أحمد" ويغير اللون من تغيير الرقم والسلام ختام

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

أرجو أ، يكون هذا المطلوب والسلام ختام Book1.rar

مع كل التواضع بالنسبة لجمع البيانات تمت ان شاء الله أما الطباعة فلا أدري هل ترتيبها على الشكل المرفق صحيح والسلام ختام Diaa.rar

أخي gfranses أين المرفق ؟ لم أجده للأسف نحن بانتظاره ومشكور أخي al m3tasem على المعلومة والسلام ختام

للرفع

للرفع

أخواني الأعزاء أريد منع المستخدم لأحد البرامج على الأكسيل من الحذف بكافة أشكاله ( صف - عمود - خلية - قيمة ) مع العلم أن استخدام حماية الورقة أوقف عمل بعض الأكواد أرجو الإفادة من خبرائنا الكرام والسلام ختام

شكرا أخي aah_aah2008 ولك دعائي بظهر الغيب إن شاء الله أما الخلايا فهي بالمرفق وسؤال : إذا أردت منع حذف أي شيء من الورقة الفصلية لأني عندما لغيت كود الحذف توقف حذف السطور لكن حذف القيم بقي كما يمكن حذف الصف بالطريقة العادية والسلام ختام _______rar.rar