إبراهيم محمد

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

ما شاء الله عليك فعلا استاذ فى المعادلات يا ريت لو تبداء موضوع لشرح المعادلات وكيفيه تطويعها فى العمل وجزاك الله خيرا

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

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

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

السلام عليكم ورحمه الله وبركاته الى الاستاذة الافاضل عباقرة هذا المنتدي الكريم الذين على ايديهم بدات اتعلم وادخل هذا المجال متمنيا من الله ان اصل ولو 1/100 من مستوى علمهم الغزير فزادكم الله علما وجعلكم الله نورا يهتدى به لهذا المنتدي العريق لقد قراءت موضوع فى منتدى اجنبيى عن امكانيه نسخ بيانات من مجموعه ملفات الى ملف واحد بطريقه سلسه جدا ولكن فى الحقيقه لم استطع فهمه بصورة كامله حتى احوله الى مثال وشرح يستفيد منه الجميع لذلك اضع رابط الموضوع بين ايديكم وكلى ثقه انكم لن تتاخرو على رواد المنتدي بعمل مثال له مع شرح بسيط ليستفيد منه الجميع باذن الله http://chandoo.org/wp/2012/04/09/consolidate-data-from-different-excel-files-vba/

ان شاء الله خاصيه الفرز واى شىء اخر سيكون جاهز غدا باذن الله

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

الاخ العزيز / ريان احمد فى الحقيقه عندما وجدت مشكله فى النسخه التى عندك لم اكمل فحص الكود لمعرفه موطن الخلل وانا متاكد انه شىء بسيط ولكنى قمت بتعديل اسم الصفحه كما ترغب فى نسخه اخرى وتحويلها لاوفيس 2003 وارفاقها بالمنتدي وعلى العموم ان شاء الله عند توافر بعض الوقت ساعمل على فحص الكود من نسختك لمعرفه موطن الخلل وبارك الله فيك على همتك ونشاطك فى فى المنتدى

Private Sub CommandButton1_Click() Dim iRow As Long Dim ws As Worksheet Set ws = Worksheets("ÝæÇÊíÑ ÇáÈíÚ") ضع هذا السطر من الكود فى هذا الموضع وان شاء الله يؤدى ما تريد if ComboBox7.Value = "" Or ComboBox8 = "" Then Exit Sub

اخى العزيز جرب وضع هذا الكود اسفل تعريفك للمغيرات اى اول امر سينفذة قبل اى كود اخر كما واخبرنى بالنتيجه If ComboBox7.Value = "" Or ComboBox8 = "" Then Exit Sub

الاخ العزيز / ريان يمكن الاستغاء عن الورقه الاولى ولكن ستواجهك مشكله اتاحه تغير كلمه السر للمستخدم العادي لانه لا يستطيع الوصول الى هذا النموذج الا من الورقه الاولى و دورها فى البرنامج لا يتعدى مجرد ادارة للمستخدم من انتقال للصفحات او تغير كلمه السر ولكن الصفحه التى لا غنى عنها فهى mydate وقد قمت بتغير الاسم من ورقه 1 الى ta كما ترغب وارفقت لك الملف مع ملاحظه ان الكود الموجود فى المديول 3 تخص فقط فتح نموذج تغير كلمه السر من داخل البرنامج وقد وضعت لك ملاحظه عليه فى ذلك وايضا يجب ملاحظه انه عند فتح الاكسيل فلابد له من صفحه مفعله فاذا اردت الاستغناء عنها فلابد ان يكون هناك بديل لها يقوم الاكسيل بالوصول لها ومعذرة عن التاخير نتيجه لاننى اقوم بمتابعه المنتدي بعد عودتى من العمل d-1.rar

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

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

اقصد بعض الاكواد التى لا تعمل على الاصدار السابق عن 2007 مثل كود اخفاء الريبون (شريط الادوات) واعتدق ان كود الحمايه للمستند لا يعمل بشكل صحيح اما الباقى فاعتقد انه يعمل بشكل جيد ولكنه يعمل بنسبه 100% على اصدار 2007 وما فوق

ممكن ترفق صورة من الشاشه بهذة الرساله التى تظهر عند الحفظ

الاخ العزيز / يونس م ان مشكلتك تنحصر على ما اعتقد فى كيفيه حفظ الملف فانت تستخدم اصدار 2007 او اعلى على ما اعتقد وفى هذة الاصدارات فقد ميزت مايكروسوفت بين نوعين من طريقه حفظ الملف اما ان تحفظه بماكرو او لا تحفظه بماكرو وانك فى البدايه تنشىء ملف فيكون افتراضيا لا يدعم حفظ الماكرو ولذلك يعطيك رساله تحذيريه عند حفظ الملف وقد انشئت به كود فاذا اخترت yes سيتم الحفظ بدون كود اما اذا اخترت no فسوف يفتح لك شاشه تمكنك من اختيار نوع الملف المناسب للحفظ بماكرو ومن ثم تحدد الاسم الذى ترغبه للملف او تتركه بنفس الاسم المهم تغيير نوع الملف ولكى تتمكن من ذلك ارفقت اليك بعض الصور التى توضح هذا الامر حفظ ملف اكسيل بالماكرو.rar

اعتقد لان البرنامج معمول على اصدار 2007 و 2010 وعندما يتم تحويله الى اصدار 2003 فانه تتعطل بعض الاكواد لكن اذا جربته على اصدار 2007 او 2010 فانك ستجد كافه امكانيات مفعله

اخي جرب هذا المرفق وان شاء الله يكون به ما تريد time.rar

الاخ ريان الفاضل انت تقوم بفك حمايه صفحه وهو اول اختيار فى فك الحمايه ولكن المقصود حمايه مستند وهو 3 اختيار من قائمه الحمايه وليس اول اختيار ويظهر من النسخه انك تستخدم اللغه الفرنسيه تقريبا وان شاء الله نتواصل مع بعض حتى يتم حل المشكله باذن الله الاخ / alisalem_ali25 اشكر لك مرورك الكريم وكلماتك المشجعه وبارك الله فيك

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

المقصود من الحمايه اولا : فيما يخص ملفك الخاص ان لا يكون عليه حمايه سواء حمايه ميستند او حمايه الصفحه ثانيا فيما يخص البرنامج : تزيل حمايه المستند لكى تتمكن من نقل الصفحات

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

الاخ الفاضل / حمادة عمر مجهود رائع وعمل طيب وبالفعل نستفيد منه وان شاء الله تعم الفائدة

الاخ العزيز / يونس م الحمد لله الذى وفقنى فى ان البى حاجتك وهذا فضل من الله ومن خلال متابعتى لهذا المنتدي العظيم وتعلمي من الاستاذة الافاضل وكما قلت لك اننى لا زلت فى اول الطريق واسال الله التوفيق الاخ الفاضل / حمادة عمر اشكر لك مرورك الكريم وكلامك المشجع وبالنسبه لشرح الكود هذا الكود يتم تنفيذة عند فتح الملف Sub opnen1() Dim us1 As Variant ' متغير لحفظ اسم المستخدم Dim pas1 As Integer ' متغير لحفظ كلمه السر Dim i As Integer متغير للتعبير عن رقم صفحات المستند us1 = "احمد" متغير لتخزين اسم المستخدم pas1 = "1234" متغير لتخزين كلمه السر Application.ScreenUpdating = False كود لمنع اهتزاز الشاشه اثناء تنفيذ المراحل القادمه هذا الكود للتحقق من ان كلمه السر واسم المستخدم مطابقه لما هو مخزن فى المتغيرات السابقه If ورقة1.TextBox1 = us1 And ورقة1.TextBox2 = pas1 Then هذا الكود لفك حمايه المستند ActiveWorkbook.Unprotect هذا الكود لفك حمايه الورقه ActiveSheet.Unprotect هذا الكود لاظهار الصفحات المخفيه For i = 2 To Sheets.Count Sheets(i).Visible = xlSheetVisible Next i تحديد صحه رقم 1 لتكون الفعاله Sheet1.Activate لمسح البيانات من التيكست بوكس ورقة1.TextBox1 = "" ورقة1.TextBox2 = "" لاخفاء الورقه الاولى ورقة1.Visible = xlSheetVeryHidden وفى حاله عدم تحقق الشرط من صحه بيانات اسم المستخدم وكلمه المرور Else تظهر هذة الرساله MsgBox "كلمه السر او اسم المستخدم غير صحيح حاول مرة اخرى " ورقة1.TextBox1 = "" ورقة1.TextBox2 = "" 'ورقة1.TextBox1.Select End If لاعادة تفعيل تحديث الشاشه Application.ScreenUpdating = True End Sub وهذا الكود يتم تنفيذة قبل اغلاق المستند Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.ScreenUpdating = False Application.DisplayAlerts = False لايقاف الرسائل التحذيريه ورقة1.Visible = xlSheetVisible لاظهار الصفحه الاولى التى بها البيانات Sheets("ورقة1").Activate لجعلها صفحه مفعله لتكون هى صفحه البدايه Dim i As Integer كود تكرارى لاخفاء جميع الصفحات الاخرى فى المستند For i = 2 To Sheets.Count Sheets(i).Visible = xlSheetVeryHidden Next i ActiveWorkbook.Protect تفعيل الحمايه على المستند ActiveSheet.Protect تفعيل الحمايه على الصفحه الفعاله Application.ScreenUpdating = True End Sub