ياسر العربى

ياريت ترفق المثال لانه كدا مش واضح وبعدين كتابته كدا فيها غلط المفروض يبقي كدا kh_wVisible = False kh_w.Visible = False منتظر المرفق او التوضيح

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

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

جزاكم الله خيرا وجعله في ميزان حسناتكم جميعا احبتي في الله حيث كدا بقي وانتو متجمعين كدا عاوز منكم شوية حسنات كدا علي الماشي تجارة بقي

جرب حبيبي aseel.rar

من عيني حبيبي بس واحده واحده كدا شوف كدا دا الاول ماشي معاك تمام قبل ما نشوف حكاية تعدد السيريلات دا aseel.rar

اتمني ان يكون هذا ما تريد تفضل اخي الغالي هذه مدد التمديد الموجودة بالبرنامج كل ما عليك اختيار مدة التمديد وتدخل الكود المخصص للمدة وستعمل معك 01/01/2016 jkgk1-gfdrg-5cfg6-xvbb8 01/01/2017 aserf-jkuy2-cvbg2-24hgt 01/01/2018 zxae2-qwer3-kjio6-98sam 01/01/2019 rfg2i-bnjk2-kjl36-azxq6 01/01/2020 ghy2t-swed2-nhji6-mki36 والتاريخ القديم عشان تختبر عليه عمل البرنامج 01/01/2015 1 aseel.rar

مشكور حبيبي علي الاضافة ايوه كدا حسسونا ان احنا مبتدئين لسه شكرا لمرورك الكريم تعديل البيانات بطريقة سهلة.rar

شكرا مروركم الكريم احبتي في الله

مكرررررر انظر الموضوع السابق

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

الاخ وائل الاسيوطي ارجوا ان يكون هذا المثال يفي بالغرض لو في اي ملاحظات انا موجود aseel.rar

الاخ وائل الاسيوطي ارجوا ان يكون هذا المثال يفي بالغرض لو في اي ملاحظات انا موجود aseel.rar

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

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

وهذا يسهل عليك العملية yasser10.rar

جرب دا كدا يمكن ينفعك yasser.rar

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

بسم الله الرحمن الرحيم اليكم نموذج لانتهاء صلاحية الملف عندما يكون التاريخ الحالي اكبر من التاريخ الموجود في الخلية A1 يقوم البرنامج بعمل Application.Visible = False ويعرض لنا فورم يفيد انتهاء المدة وتاكيد كلمة المرور وعند كتابة كلمة المرور خطأ لك5 محاولات وبعدها يغلق البرنامج اما ان كانت صحيحة وتحقق الشرط If TextBox1.Value = "aseel" Then Me.Hide Application.Visible = True كلمة المرور aseel طبعا واكيد ايقاف الماكرو هيفتح الملف عادي ونضيع الحماية نعمل ايه بقي نيحي في الحدث Private Sub Workbook_Open() Sheet1.Visible = xlSheetVeryHidden End Sub ونخفي الشيت عشان ميشفشي شغلنا رخامة بقي ولما يتحقق الحدث If TextBox1.Value = "aseel" Then 'Unload Me Me.Hide Application.Visible = True 'نحط هنا كود اظهار الشيت مرة اخرى sheet1.Visible = xlSheetVisible ياريت اكون وصلت المعلومة صح واي ملحوظة او خطأ انا موجود انتهاء صلاحية الملف.rar

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

بسم الله الرحمن الرحيم بما اني نويت التفاعل هنا ساقوم بوضع الامثلة والنتائج التي توصلت لها في مجال الاكسيل واحدة تلو الاخرى اما الان فاقدم لكم نموذج لتعديل بيانات find and replace بخاصية ولكن بطريقة جميلة قد تحتاجوا اليها في اعمالكم وضعوا هذا الكود في البداية ليقوم البرنامج في العمل في صمت دون تغيير النوافذ Application.ScreenUpdating = False تعديل البيانات بطريقة سهلة.rar

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

شكرا حبيبي الغالي اللهم وفقنا واياكم وجميع المسلمين ملحوظة انا كنت مبرمج وعندي موهبة كويسة في مجال البرمجة خصوصا من ايام vb6 انا بدأت الموضوع دا في 2005 وكنت ممتاز في المجال دا وعملت برامج كتيررررررررر بس تقدر تقول عدم الممارسة مع الوقتا وقع مني حاجات كتيررررر والمسئوليات شغل وبيت واسرة وعيال ربنا يعنيا جميعا دي احد برامجي قديما في 2006

Private Sub UserForm_Initialize() TextBox2.Enabled = False 'دي بالوز With ComboBox1 .RowSource = "d2: e12" .ColumnHeads = True .BoundColumn = "2" .ListRows = "4" .ListStyle = fmListStyleOption .ColumnWidths = "150 pt;90 pt" .ListWidth = "260 pt" .Style = fmStyleDropDownList End With 'دي بالبط 'ComboBox1.RowSource = "d2: e12" 'ComboBox1.ColumnHeads = True 'ComboBox1.BoundColumn = "2" 'ComboBox1.ListRows = "4" 'ComboBox1.ListStyle = fmListStyleOption 'ComboBox1.ColumnWidths = "150 pt;90 pt" 'ComboBox1.ListWidth = "260 pt" 'ComboBox1.Style = fmStyleDropDownList End Sub