saad abed

اخى الزبارى موضيعك مميزة جزاك الله خيرا

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

حبيبى ابويوسف عمل ممتاز بارك الله فيك

اخى انس دروبى الف الف مبروووووووووووك ننتظر برنامج انس المحاسبى

السّلام عليكم و رحمة الله و بركاته ألف ألف مبروك للإخوة الأفاضل : حسام " الصّقر " ياسر العربي إبراهيم أبو ليله نتمنى لكم التوفيق والى الامام ثلاثتكم اعزاء علينا اخوكم سعد عابد

اخى ابوعيد جزاك الله خيرا اكواد رائعة يا ريت شرح كود الترحيل على الاسطر ولك الشكر

كل عام وانت بخير كل عام وكل مشرفى ومديرى الموقع بخير كل سنة وكل أعضاء المنتدى واصدقائى واحبائى بالف خير اخوكم / سعد عابد

احنا متابعين الدروس بشغف حتى ولو لم نستطيع الرد عليها

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

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

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

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

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

اخى ياسر العربى اسال الله العظيم رب العرش العظيم ان يفتح عليك أبواب رحمته وصلت لكيف اربط الاكسيل بالفيجوال الله عليك نتابع الشرح بشغف هناك سؤال اخر مهم بالنسبه لى بعض الناس بتصدر الفورم لبرامج الفوتوشوب ليجمل شكله حاولت ولكنه لم يقبل التنسيق (صدرت من الاكسيل userform name.frm) برنامج الفوتوشوب وبرنامج اخر ادرو ولم يقبل ايضا كيف احسن شكل الفورم على برامج الصور اشكرك اخى ياسر

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

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

اخى الحبيب م/ياسر فتحى اكواد ممتازة ومفيده شكرا لك وفقكم الله

ارجو عمل مثال ولو صغير ولك الشكر

اخى مختار افكارك واكوادك ممتازة وفقكم الله

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

اخى م/ياسر كل سنة وانت بخير اللهم اجعلها سنة نتقرب فيها الى الله بالاعمال الصالحه

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

م/ياسر فتحى شرفنى مرورك يا هندسه تقبل تحياتى كود اخر يؤدى نفس الغرض بطريقة منظمة Option Explicit Public Sub ListFormulasInWorkbook() ' by J.E. McGimpsey ' revised 04 July 2003 by Tom Ogilvy to add ' sheets when reaching ROWLIM formulas Const SHEETNAME As String = "Formulas in *" Const ALLFORMULAS As Integer = _ xlNumbers + xlTextValues + xlLogical + xlErrors Const ROWLIM As Long = 65500 Dim formulaSht As Worksheet Dim destRng As Range Dim cell As Range Dim wkSht As Worksheet Dim formulaRng As Range Dim shCnt As Long Dim oldScreenUpdating As Boolean With Application oldScreenUpdating = .ScreenUpdating .ScreenUpdating = False End With shCnt = 0 ListFormulasAddSheet formulaSht, shCnt ' list formulas on each sheet Set destRng = formulaSht.Range("A4") For Each wkSht In ActiveWorkbook.Worksheets If Not wkSht.Name Like SHEETNAME Then Application.StatusBar = wkSht.Name destRng.Value = wkSht.Name Set destRng = destRng.Offset(1, 0) On Error Resume Next Set formulaRng = wkSht.Cells.SpecialCells( _ xlCellTypeFormulas, ALLFORMULAS) On Error GoTo 0 If formulaRng Is Nothing Then destRng.Offset(0, 1).Value = "None" Set destRng = destRng.Offset(1, 0) Else For Each cell In formulaRng With destRng .Offset(0, 1) = cell.Address(0, 0) .Offset(0, 2) = "'" & cell.Formula .Offset(0, 3) = cell.Value End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If Next cell Set formulaRng = Nothing End If With destRng.Resize(1, 4).Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 5 End With Set destRng = destRng.Offset(1, 0) If destRng.row > ROWLIM Then ListFormulasAddSheet formulaSht, shCnt Set destRng = formulaSht.Range("A5") destRng.Offset(-1, 0).Value = wkSht.Name End If End If Next wkSht With Application .StatusBar = False .ScreenUpdating = oldScreenUpdating End With End Sub

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

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