احمد حمور-ابوعبدالله قام بنشر نوفمبر 23, 2011 الكاتب قام بنشر نوفمبر 23, 2011 الاخوه الاعزاء الرجاء وضع الكود التالي في زر امر CLOSE التابع لUSERFORM4 Application.EnableCancelKey = xlDisabled Application.Quit
الحسامي قام بنشر نوفمبر 24, 2011 قام بنشر نوفمبر 24, 2011 السلام عليكم الاستاذ القدير احمد حمور عمل رائع ومتقن كما عودتنا ودايما نتعلم منك كل جديد نور الله قلبك ودربك للخير وفعله تقبل مروري
احمد حمور-ابوعبدالله قام بنشر نوفمبر 24, 2011 الكاتب قام بنشر نوفمبر 24, 2011 السلام عليكم الاستاذ القدير احمد حمور عمل رائع ومتقن كما عودتنا ودايما نتعلم منك كل جديد نور الله قلبك ودربك للخير وفعله اخي الحبيب الحسامي انت استاذنا وما نفعله هنا ماهو الا قليل مما تملك الله ينور دربك ويرزقك
ريان أحمد قام بنشر نوفمبر 24, 2011 قام بنشر نوفمبر 24, 2011 والله مهما قلت ومهما قلت لا أوافيك حقك في الشكر والتقدير أستاذي فعلا ملف غاية في الدقة والتصميم الجميل تشكر وجزاك الله كل خير
احمد حمور-ابوعبدالله قام بنشر نوفمبر 24, 2011 الكاتب قام بنشر نوفمبر 24, 2011 (معدل) اخي الكريم جزاك الله خيرا وبارك الله فيك على ردك الجميل تم تعديل نوفمبر 24, 2011 بواسطه احمد حمور-ابوعبدالله
احمد حمور-ابوعبدالله قام بنشر نوفمبر 25, 2011 الكاتب قام بنشر نوفمبر 25, 2011 (معدل) الاخوه الكرام الاضافة التاليه مهمه, كونها تخص ظهور الرسائل التحذيريه بشكل دقيق وصحيح الرجاء حذف الكود السابق في زر امر save الموجود في userform3 واستبداله بالكود التالي Private Sub CommandButton2_Click() Dim ahmad As String, HAMOOR As Worksheet On Error GoTo 1 ahmad = TextBox1.Value Set HAMOOR = Sheets("CONTROL") With HAMOOR If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or _ TextBox4.Text = "" Or ComboBox1.Value = "" Then MsgBox "You have to fill all data", 16, "Attetion" ComboBox1.SetFocus '====================================================================== ElseIf TextBox2.Text <> .Range(ahmad).Offset(0, 1).Value Then MsgBox " The old password does not match", 16, "Attention" TextBox2.Text = "" TextBox2.SetFocus '====================================================================== ElseIf TextBox3.Text <> TextBox4.Text Then MsgBox " The new password does not correct", 16, "Attention" TextBox3.Text = "" TextBox4.Text = "" '====================================================================== Else Application.Range(ahmad).Activate .Range(ahmad).Offset(0, 1).Value = TextBox3.Text MsgBox "Editing password done succesfully", vbOKOnly, "editing msg" TextBox1.Text = "" TextBox2.Text = "" TextBox3.Text = "" TextBox4.Text = "" ComboBox1.Value = "" ComboBox1.SetFocus '====================================================================== End If End With 1 End Sub تم تعديل نوفمبر 25, 2011 بواسطه احمد حمور-ابوعبدالله
معتصم محمد قام بنشر نوفمبر 25, 2011 قام بنشر نوفمبر 25, 2011 الأستاذ / ابو عبد الله عمل متقن كالعادة بارك الله فيك، وجعله في ميزان حساناتك
احمد حمور-ابوعبدالله قام بنشر نوفمبر 25, 2011 الكاتب قام بنشر نوفمبر 25, 2011 اخي معتصم بارك الله فيك وجزاك الله خيرا
السيد عبد الفتاح قام بنشر نوفمبر 27, 2011 قام بنشر نوفمبر 27, 2011 السلام عليكم ورحمة الله وبركاته أستاذنا الحبيب / ابو عبد الله تحيه طيبه مرفق نفس الملف وقد قمت باضافة بعض التعديلات عليه مثل اضافة ايقونه " Change Password" الى صفحة الصلاحيات وقد لاحظت انه فور اغلاق الفورم يتم ازالة الاختيار المقابل لها او انها لم تفعل . ارجو المساعدة وفي حالة اضافة اقونات خاصة بصفحات اخرى الى الفورم الخاص بصلاحيات المستخدمين فأي الاكواد اقوم بالتعديل عليها جزاكم الله خيرا Cheque program.rar
احمد حمور-ابوعبدالله قام بنشر نوفمبر 28, 2011 الكاتب قام بنشر نوفمبر 28, 2011 اخي السيد عبدالفتاح لا اوافقك الرأي بحكر تغيير الرقم السري للمستخدمين لانه حق لكل مستخدم ولا يجب ان يكون بصلاحيات ============================================== داخل USERFORM2 وفي حدث LISTBOX Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) اضف نفس البيانات التاليه If .Range(ahmad).Offset(0, 13).Value = "Y" Then UserForm1.CheckBox10.Value = True ElseIf .Range(ahmad).Offset(0, 13).Value = "N" Then UserForm1.CheckBox10.Value = False End If '=================================================================== ============================================================ الموضوع بسيط جدا وتستطيع اضافة كمية الصفحات التي تريدها وبنفس التعديلات التي اجريتها انت وانا
احمد حمور-ابوعبدالله قام بنشر نوفمبر 28, 2011 الكاتب قام بنشر نوفمبر 28, 2011 (معدل) اخي السيد عبدالفتاح تفضل المرفق ========================================= اعتذر عن الكود الموجود في المشاركه رقم 26 واستبدله بالكود التالي Application.Quit Application.DisplayAlerts = False Cheque program edit2.rar تم تعديل نوفمبر 28, 2011 بواسطه احمد حمور-ابوعبدالله
السيد عبد الفتاح قام بنشر نوفمبر 29, 2011 قام بنشر نوفمبر 29, 2011 أخانا العزيز / أبو عبد الله تحيه طيبة ماذا لو أحببت أن أقوم بعمل ملف Login جديد للممستخدمين في ملف اكسيل جديد فكيف يتم ذلك او على الاقل ارجو افادتى بالاكواد الخاصة بذلك وكيفية تنفيذ ذلك بالتفصيل ... لو سمحت مع الشرح جزاكم الله خيرا
احمد حمور-ابوعبدالله قام بنشر نوفمبر 30, 2011 الكاتب قام بنشر نوفمبر 30, 2011 اخي العزيز ملفي في الاصل جديد ولا يوجد به داتا فهو يفي بالغرض انشاء الله اما عن موضوع الاكواد فهي نفسها الموجوده بالملف وتستطيع ان تضيف بكل بساطه ولكن المطلوب منك قراءة الاكواد بشكل جيد وستجد ان الموضوع بسيط وتستطيع ان تلعب بها كما تشاء بخصوص الشرح اعذرني لانني لا استطيع حاليا
السيد عبد الفتاح قام بنشر نوفمبر 30, 2011 قام بنشر نوفمبر 30, 2011 أستاذي الحبيب / أبو عبد الله لقد سعدت جدا لاهتمامك وشكرا جزيلا وسوف أقوم بقراءة الاكواد كما تفضلت ولكني كنت اود ان ترشدني الى الكود المختص بذلك واين اجده جزاكم الله خيرا
احمد حمور-ابوعبدالله قام بنشر نوفمبر 30, 2011 الكاتب قام بنشر نوفمبر 30, 2011 اخي العزيز انا الذي لم افهم ما الذي تريدني ان ارشدك اليه بصراحه مش فاهم طلبك ابدا ارجوا المعذره
ekramy قام بنشر ديسمبر 2, 2011 قام بنشر ديسمبر 2, 2011 11111111111111111111111111111111111111111111111111111111111111111111111111
احمد حمور-ابوعبدالله قام بنشر ديسمبر 2, 2011 الكاتب قام بنشر ديسمبر 2, 2011 ايها العضو الجديد اهلا وسهلا بك في منتدانا الكبير نظرا لعدم فهمي بما تقصده في تعليقك على الموضوع فاسمح لي ان افترض حسن النيه واقول لك حياك الله واهلا وسهلا بك
مرسي قام بنشر فبراير 25, 2012 قام بنشر فبراير 25, 2012 هل من الممكن أن أطبق شاشة الدخول السابقة علي ملفي هذا ويكون اسم المستخدم هو الله وكلمة السر هي الله خاف ربك كيف اسم المستخدم هو الله .... اللهم ارحمنا
ابوجمانة2009 قام بنشر مارس 14, 2012 قام بنشر مارس 14, 2012 اذا اردت ان اشكر لك تميزك فلن استطيع الا ان اقول جزاك الله خيرا
احمد فضيله قام بنشر مارس 14, 2012 قام بنشر مارس 14, 2012 السلام عليكم و رحمة الله و بركاته اخي الحبيب الاستاذ الكبير / احمد حمور عمل اكثر من رائع جزاك الله كل خير سلمت يداك
hussein chechen قام بنشر أبريل 7, 2012 قام بنشر أبريل 7, 2012 موضوع اكثر من رائع اريد كود يقوم بفتح الفورم دون ان يفتح برنامج الاكسل في مجال حدا يعمله على فورم بسيط حتى يتم تطبيقه على برنامج ويستفيذ منه الاخوة اريد كود فقط الذي يفتح الفورم دون ان يفتح الاكسل كاملاً
أنس دروبي قام بنشر أبريل 8, 2012 قام بنشر أبريل 8, 2012 (معدل) السلام عليكم ورحمة الله وبركاته أخي وأستاذي أبو عبد الله ماهو كود إظهار تاريخ دخول المستخدمين الموجود في صفحة (Data) لإنني صراحة لم أعرفه فلو سمحت لي أن تظهره لي وجزاك الله كل خير على ماتقدمه لنا من علم مفيد والسلام عليكم أخوكم أنس دروبي تم تعديل أبريل 8, 2012 بواسطه Creation World
احمد حمور-ابوعبدالله قام بنشر أبريل 12, 2012 الكاتب قام بنشر أبريل 12, 2012 السلام عليكم اشكر الجميع على المشاعر الطيبه الجميله ====================================== الاخ انس الدروبي بالنسبه للكود المسؤول عن اظهار التاريخ اذهب الى حدث صفحة الداتا من vba وستجد الكود انا بصراحه لم افهم ان كان هذا ما تقصده واما ان كنت تقصد الكود المسؤول عن اظهار التاريخ في الليست بوكس فهو موجود في تكست بوكس
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.