حمادة عمر

السلام عليكم الاخ الحبيب / أحمد فؤاد بارك الله فيك ولكن لي عتاب عليكم ... فتواجدك بيننا هذه الايام قليل ( لعله خيرا باذن الله ) تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك ** بالنسبة للفرق بين الكود ين ... لا يوجد فرق الا السطرين المضافين حيث انه عند حمايتك لورقة CLOSE وتنفيذك للكود عند وضع الحماية افنك تطلب من الكود نقل بيانات الي خلايا في شيت محمي وبالتالي فان الاكسيل لن يقبل هذا الامر مع شيت محمي ولذلك تم اضافة السطرين الموضحين في المشاركة السابقة الاول ... لازالة الحماية قبل تنفيذ كود الترحيل الثاني ... لاعادة الحماية للشيت بعد تنفيذ كود الترحيل اي ان الحماية لا يتم ازالتها عن الشيت CLOSE الا في خلال لحظات تنفيذ الكود فقط ** اما عن الخطوط التي تقصدها '========================================= فهي خطوط وضعتها لتوضيح السطرين المضافين لك فقط ... وليس لهم اي وظيفة نهائيا حيث عند قيامك بوضع علامة ( ' ) الموجود علي حرف الطاء ولكن بالانجليزيه في محرر الاكواد في بداية سطر فان محرر الاكواد vba يفهم ان هذا السطر ليس له وجود اي يكون سطرا ملغي نهائيا ولا يراه عند تنفيذ الكود ارجو ان اكون قد اوصلت المعلومة لك كما تريدها تماما تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الكريم / عبد الله-بلال بارك الله فيك هل تقصد اخي الكريم هكذا ... شاهد لا يمكن فتح اوراق الملف المخفية الا باستخدام الازرار المخصصة لذلك ام انك تريد ووضع رقم سري لفتح الورقة المطلوبة قبل تنفيذ العملية تقبل خالص تحياتي اظهار الفورم بداية التشغيل مع ظهور شيت واحد فقط.rar

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك واكرمك الله في الدارين تقبل خالص تحياتي

شكرا جزيل اخي الكريم / قنديل ولاثراء الموضوع .... وافادة من يبحث عن مثل هذا الموضوع بعد ذلك اليكم رابط هذا الموضوع طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة

والله جعلتنا استاذي / مجدي بهذه الصور ان نشتاق اكثر واكثر لزيارة بيت الله الحرام اللهم ارزقنا زيارة بيتك الحرام اللهم آمين

عذرا ... اخي الكريم ملفات مرفقة ... 11شاشة دخول ورقم سري لشيت معين.rar

السلام عليكم الاخ الكريم / عبد الرحمن شفيق بارك الله فيكم جزيل شكري علي كلماتك الرااائعة وبالنسبة لطلبك اخي الكريم .... تفضل اخي الكود التالي حيث يرتبط بالخلية A1 , A2 اسم المستخدم وكلمة المرور وذلك بتعديل كود زر الدخول الي الكود التالي Private Sub CommandButton1_Click() If TextBox1.Value = Sheet1.[A1].Text And TextBox2.Value = Sheet1.[A2].Text Then Application.Visible = True: Unload Me Exit Sub End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub وهنا في هذا الملف اسم المستخدم : AAA ........... تساوي الخلية A1 كلمة المرور : 12345 ........... تساوي الخلية A2 جزاك الله خيرا

السلام عليكم الاخ الكريم / ۩◊۩ أبو حنين ۩◊۩ بارك الله فيك ان شاء الله سيكون التعديل علي كود الترحيل كالتالي دون ان يأثر علي عملية الترحيل ويبقي شي CLOSE محمي Sub tarheel() Application.ScreenUpdating = False '========================================= Sheets("Close").Unprotect "123456" '========================================= With Sheets("ÚÇã") LR = .[I65000].End(xlUp).Row For I = 5 To LR If Cells(I, "W") <> "Êã ÇáÊÑÍíá" And Cells(I, "G") <= 30 Then .Cells(I, "W") = "Êã ÇáÊÑÍíá" .Range(.Cells(I, "I"), .Cells(I, "R")).Copy With Sheets("Close") nr = .[B65000].End(xlUp).Row + 1 .Cells(nr, "B").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False Sort_Close End With End If Next End With Sort_General Application.ScreenUpdating = True '========================================= Sheets("Close").Protect "123456" '========================================= End Sub وذلك باضافة السطر التالي ... للازالة حماية الورقة برقم سري هو 123456 وذلك ليتم حينها تنفيذ الكود المطلوب Sheets("Close").Unprotect "123456" وبعد تنفيذ الكود كاملا ... نقوم بارجاع الحماية علي الورقة المقصودة بالسطر التالي في نهاية الكود لتصبح الورقة محمية بنفس الرقم السري Sheets("Close").Protect "123456" تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الحبيب / ضاحي الغريب بارك الله فيك دائما اخي الحبيب ردودك بها افكار جميله تساعد الجميع افكارك حلوة ... وطريقتك ممتازة تقبل خالص تحياتي جزاك الله خيرا

السلام عليكم الاخ الحبيب / حمادة باشا بارك الله فيك دائما تعجبني ردودك واحب بالفعل ان اطلع عليها حيث تقدمها للسائل بطريقة راائعة تقبل خالص تحياتي وبعد اذنك اضع الجدول في ملف اكسيل ليكون هنا علي المنتدي مباشرة دون رابط خارجي لمن يريده بعد ذلك جزاك الله خيرا الجدول.rar

السلام عليكم الاخ الحبيب / قنديل الصياد بارك الله فيك وجعلك الله دائما في عون الجميع وجعل كل اعمالك ومساعدتاتك في ميزان حسناتك تقبل خالص تحياتي وبعد اذن حضرتك ... اضع اسم المستخدم والرقم السري للملف خاصتك حيث لم يتم ذكرهم في مشاركتك اسم المستخدم : الصياد كلمة المرور : 1964 جزاك الله خيرا

السلام علي السلام عليكم الاخ الكريم / ابو الآء بارك الله فيك بالفعل اخي الكريم الاستاذ / قنديل الصياد ... لديه حق في كل ما قاله فالفورم ليس له علاقة بثقل الملف او عدمه فحجمه صغير لا يذكر جزاك الله خيرا

السلام عليكم اخي الحبيب / عباس السماوي بارك الله فيك عند اعرف انك ومن الاكيد ( قدها وقدود ) الحمد لله انك اهتديت لما تريد تقبل خالص تحياتي واي استفسار معك دائما ان شاء الله جزاك الله خيرا

هل جميع الصفحات التي تقصدها لها نفس الشكل والتنسيق اي ان نفس الجدول هو الموجود بجميع الصفحات دون تغيير ام ماذا ياريت لو ترفق ملف به مثال علي ما تريد

شاهد اخي الكريم الروابط التالية ... ان شاء الله بها طلبك http://www.officena.net/ib/index.php?showtopic=45743&hl=%2B%D8%AD%D9%85%D8%A7%D9%8A%D8%A9+%2B%D8%A7%D9%84%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D8%A7%D8%AA http://www.officena.net/ib/index.php?showtopic=42747&hl=%2B%D8%AD%D9%85%D8%A7%D9%8A%D8%A9+%2B%D8%A7%D9%84%D9%85%D8%B9%D8%A7%D8%AF%D9%84%D8%A7%D8%AA#entry245702

السلام عليكم الاخ الكريم / sayed awad بارك الله فيك مرور طيب وكريم جزاك الله خيرا

بارك الله فيك اخي الحبيب / قنديل الصياد تقبل خالص تحياتي