نجوم المشاركات

انظر الى الورقة 3 تجريبي salim 1.rar

Private Sub UserForm_Activate() For i = 1 To 200 Step 0.1 With Me DoEvents .Height = i: .Width = i * 2 .Top = .Top - (i / 2000): .Left = .Top - (i / 2000) End With Next End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) For ii = 1 To 20 Step 0.005 With Me DoEvents .Height = .Height - ii: .Width = .Width - ii * 3 End With Next End Sub مرحبا هذه محاولة شبيهة بما قام به الاستاذ الصقر

السلام عليكم ورحمة الله وبركاته إخواني في الله الموضوع ليس جديد وقد تم طرح الكود في مشاركات فرعية بموضوعات مختلفة بالمنتدى ، ولكن لأهميته رأيت ان أقوم بطرح موضوع مستقل ليسهل الوصول إلى الموضوع باستخدام خاصية البحث في المنتدى فكرة الكود هي استخراج القيم الغير مكررة أي استخراج القيم الفريدة في نطاق محدد .. والكود مشروح لمن أرد الشرح لعل وعسى أن يتعلم الجميع كيفية استخدام الأكواد بشكل جيد وهذا هو الكود مصحوب بالشرح ... أرجو أن ينال إعجايكم Sub UniqueByDictionary() 'يقوم الكود باستخراج القيم الفريدة أي الغير مكررة باستخدام الكائن قاموس '---------------------------------------------------------------------- 'المتغير الأول لتخزين قيم النطاق والمتغير الثاني لتخزين مفاتيح القاموس 'الثالث متغير للكائن القاموس والرابع متغير يستخدم في عمل حلقة تكرارية Dim myData As Variant, Temp As Variant Dim Obj As Object, I As Long 'ليساوي الكائن المسمى القاموس والذي يعتبر أداة قوية للتعامل مع القيم الفريدة [Obj] تعيين المتغير Set Obj = CreateObject("Scripting.Dictionary") 'ليساوي قيم النطاق في العمود الأول [myData] تعيين المتغير myData = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value 'حلقة تكرارية تبدأ من أول عنصر في مصفوفة القيم إلى آخر عنصر في المصفوفة For I = 1 To UBound(myData) 'هذا السطر هو أهم سطر في الكود حيث يتم تمرير القيمة للقاموس 'فيقوم القاموس بتخزينها إذا كانت القيمة تصادفه لأول مرة 'أما إذا كانت القيمة مكررة فلا يقوم بتخزينها مرة أخرى Obj(myData(I, 1) & "") = "" Next I 'ليساوي مفاتيح القاموس والتي تمثل القيم الغير مكررة [Temp] تعيين المتغير Temp = Obj.Keys 'حيث يتم تحديد عدد الصفوف [E1] وضع عناصر القاموس الغير مكررة في الخلية 'والتي تقوم بعد عناصر القاموس التي تم تخزينها [Count] من خلال كلمة 'عبارة عن مصفوفة بالقيم تكون على شكل أفقي لذا نستخدم [Temp] المتغير 'لتحويل القيم من الشكل الأفقي إلى الشكل الرأسي ليناسب وضع النتائج في عمود [Transpose] كلمة Range("C1").Resize(Obj.Count, 1) = Application.Transpose(Temp) End Sub وإليكم الملف المرفق مطبق فيه الكود مع مثال بسيط حمل الملف من هنا تقبلوا تحياتي

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

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

بارك الله فيك يا غالي على الدّروس الهامّة و المفيدة و الشّرح البسيط .. لم نشبّع .. و لا نشبع من علمك أبدًا واصل و فّقك الله .. و هأنذا بصدد محاولة فهم الكود ..

السلام عليكم الشكر لجميع الاخوة الكرام تم تعديل الكود ليتوافق مع احجام مختلفة اختر الحجم المناسب و اكتبه في التصريح مثل Const iHeight As Integer = 150 Const iWidth As Integer = 600 الكود '---------------------------------------------------- Const iHeight As Integer = 150 Const iWidth As Integer = 600 '---------------------------------------------------- Private Sub UserForm_Activate() Ap_H = Application.Height Ap_W = Application.Width With Me For iHH = 1 To iHeight .Height = iHH: .Top = ((Ap_H - .Height) / 2) DoEvents Next For iWW = 1 To iWidth .Width = iWW: .Left = ((Ap_W - .Width) / 2) DoEvents Next End With End Sub Private Sub UserForm_Initialize() Me.Height = 0 Me.Width = 0 End Sub

لما لا تقوم بجمع الشروط في دالة واحدة؟! صراحة لم أجرب قبل استدعاء دالة من دالة أخرى ، رغم أنه من المنطقي أن تتم بسهولة ، ربما الخطأ يرجع إلى أنك تستخدم نفس المتغيرات في الدالتين .. طيب جرب تغير في المتغيرات في الدالة الثانية يعني بدلاً من a, x, y, d, e خليها a1,x1,y1,d1.e1

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

أخي الحبيب أحمد هل النسخة التي تعمل عليها هي نفس النسخة الموجودة الرابط الخاص بها في الموضوع الأصلي لأخونا ياسر العربي ..؟؟ نريد توحيد النسخة حتى نتلافى الأخطاء أو على الأقل حتى يكون الخطأ عند الجميع في حالة وجود خطأ .. ميبقاش كل واحد في حاله !! وكل واحد عنده أخطاء غير اللي عند التاني تقبل تحياتي

بعد اذن اساتذنا الكرام هذا حل بسيط وممكن يوذي الغرض ضع هذا الكود في الفورم الواجهة في حدث عند التحميل للفورم If Dir("j:\sndesk\MOVI.txt") = "" Then MsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "67749199*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*" DoCmd.Quit End If شرح الكود If Dir("j:\sndesk\MOVI.txt") = "" Then هي مسار الفلاش عندي اي ان الفلاشه علي برتشن ال ( j ) ويوجد ملف تكست اسمة MOVI داخل ال (الجي) في فولدراسمه sndesk طبعا لو انت مش موصل الفلاش الي عليها الملف ده علي الكمبيوتر مش هيفتح البرنامج وتظهر لك الرسالة MsgBox "áíÓ áÏíß ÍÞ ÊÔÛíá ÇáäÙÇã", vbOKOnly, "67749199*íÑÌí ÇáÇÊÕÇá ÈãÏíÑ ÇáäÙÇã*" DoCmd.Quit ثم يغلق البرنامج

انسخ هذه المعادلة الى الخلية B2 واسحب نزولاً =IFERROR(INDIRECT("'"&A2&"'!E4"),"") اذا لم تعمل معك المعادلة استبدل الفاصلة بالفاصلة المنقوطة

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

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

الثوابت تنقسم الثوابت في لغة الفيجوال بسيك إلى ثلاثة اقسام رئيسية وهي نصية او رقمية ومنطقية ويمكننا تعريف ثابت في البرنامج من خلال الكلمة المحجوزة const ولاحظ هنا اخي الكريم في الفيجوال بيسك لا يمكنك تعريف ثابت إلا من خلال المبدأ التالي Const name as type = value Const اسم الثابت as قيمته = نوعه عند كتابة الثابت لا يمكنك نسب قيمة له إلا في نفس السطر الذي قمت بكتابة الثابت فيه . اي انه لايمكنك ان تكتب الثابت في سطر وقيمة الثابت في سطر اخر وهذا من الاشياء التي تميز المتغير عن الثابت امثلة على تعريف ثوابت جديدة لاستخدامها في البرنامج Const name As String = "Yasser" ثابت من نوع نص Const age As Integer = 30 ثابت من نوع عدد صحيح Const marry As Boolean = True ثابت من نوع قيمة منطقية الطرق التي من خلالها تستطيع تعريف ثوابت لبرنامج الطريقة التقليدية تعريف ثابت ونسب قيمة له مثل Const name As String = "Aseel" كتابة الثابت بدون تحديد نوع له مثل Const name = "Mohamed" كتابة اكثر من ثابت مع تحديد القيمة لها في سطر واحد :- مثل Const name As String = "Mohamed", age As Integer = 30 كتابة اكثر من ثابت بدون تحديد نوع الثابت مثل Const name = "Mohamed", age = 33, marry = False لاحظ هنا اننا لم نستخدم كلمة تعريف الثابت إلا في بداية الجملة فقط الأخطاء المتوقع حدوثها عند تعاملك مع الثوابت تغيير قيمة الثابت في البرنامج او اثناء التشغيل مثال لذلك Const age As Integer = 20 age = 22 تعريف الثابت في سطر ونسب القيمة له في سطر اخر كما قلنا سابقاً مثال لذلك Const age As Integer age = 18 ملاحظة هامة عند تعاملنا مع الثوابت يجب علينا ادخال القيمة للثابت في نفس جملة تعريف الثابت تقبلو تحياتي ياسر العربي يتبع

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

اخي وحبيبي في الله صاحب الأعمال المتميزة والمتألقة في المنتدى حسام عيسى إنه لشرف كبير مروركم العطر بالموضوع بارك الله فيك وجزاك الله كل خير على كلماتك الرقيقة إن شاء الله نتدرج إلى أن نصل لمنطقة الغريق (بس مش عايزين حد مننا يغرق هناك ..!! ربنا يجيب العواقب سليمة) خايف نوصل لمنطقة الغريق دلوقتي آلاقي نااااااااااس بتصرخ وتقول : إني أغرق إني أغرق .. جزيت خيراً على دعواتك الطيبة المباركة ولك بمثل إن شاء الله تقبل تحياتي

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

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

هذا استعلام الحاقي مصدره INSERT INTO ParentsCom ( Stu_eSIS, TheWay, Comu_Reasone, Comu_Date, Mobil_F ) SELECT StudentsNames.eSiS, [Forms]![ParentsCom]![Combo25] AS Expr1, [Forms]![ParentsCom]![Comu_Reasone] AS Expr2, [Forms]![ParentsCom]![Comu_Date] AS Expr3, StudentsNames.Mobil FROM StudentsNames WHERE (((StudentsNames.Section)=[Forms]![ParentsCom]![StuSection])); احفظ الاستعلام وتقدر تشغله اخ علي في الحدث المناسب لك وليكن خلف زر امر جديد ولكن مع وجود شرط ان القائمة مطابقة للنوع المطلوب! فمثلا لو اسميت الاستعلام ب query2 وخلف زر امر نكتب If Me.Combo25 = "إرسال اخطار مع الطالب" Then DoCmd.OpenQuery "query2" بالتوفيق

يا حوسو بلاش تواضع ..إنت عديت بمراااااااااااااحل كبيرة ربنا يبارك فيك ويزيدك من علمه ..بس متنساش تعدي على موضوعات أخوك ! مرورك بأي موضوع شرف كبير لنا يا كبير

السّلام عليكم و رحمة الله و بركاته بارك الله فيك أخي الحبيب " ياسر العربي " على الدّروس الرّائعة و المقدّمات البسيطة جزاك الله خير الجزاء .. و نفع بك الاسلام و المسلمين خالص تحياتي

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

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

هل تقصد مثل هذه الشيء vlooup_dif_sheets.rar

اعمل مثال داخل الفلاش يحتوي على نموذج واحد فقط الصق الاكواد في محرر النموذج وجرب العمل سيتم على نموذج واحد حدث عند الفتح يقرأ رقم الفلاشة وحدث عند التحميل يقارن اذا ضبطت يمكنك استبدال العبارة exit sub بعبارة اخرى لفتح ما تريد Dim i Private Sub Form_Load() If i = "1210253353" Then Exit Sub Else MsgBox "البرنامج محمي لا يمكن فتحه" DoCmd.Quit End If End Sub Private Sub Form_Open(Cancel As Integer) strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems i = objItem.SerialNumber Next End Sub ويمكن جعل الكود في حدث الفتح في وحدة نمطية عامة يتم نداؤها داخل كل نموذج لتضمن عدم التمكن من فتح اي نموذج عند مخالفة الشرط

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

راااااااااااااااااااااااائع يا ابو المفهوميه يا استاذ ياسر خليل الكود سريع وسهل .. الله يحفظك ويبارك لك .. الله يحفظك ويبارك لك .. الله يحفظك ويبارك لك ... ولكن بعد اجراء الكود الصفحات تظهر باللون الداكن كأنها محده فممكن لو تكرمت نزيل هذا التحديد ممكن شرح لهذه الاسطر Ws.Range("A" & sRow + 1).Resize(cnt, LC).SpecialCells(xlCellTypeConstants, 3).ClearContents Application.CutCopyMode = False هذه الاكواد ستعمل مع اكواد حمايه .. لعدم التعارض فقط

السلام عليكم ورحمة الله اتمنى يكون هو هذا ماتقصده خلاصة بمشتريات الزبون - استاذ زيزو العجوز.rar

الاستاذ ياسر خليل جزاكم الله خيرا فائق الشكر و التقدير و الاحترام

هذا الكود يظهر رقم الفلاشة التسلسي في الرسالة strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems s = objItem.SerialNumber Next MsgBox s يمكنك استبدال الرسالة بمتغير يتم فحصه عند فتح النموذج فان كان موافقا لهذا الرقم والا يتم غلق البرنامج ملحوظة : يجب ان تتأكد ان الفلاشات لا تتشابه ارقامها خاصة اذا كانت من مصنع واحد انا جربت فلاشة واحدة عندي قبل الفورمات وبعد الفورمات لم يتغير الرقم

بعد تحويل النموذج الى ( من اليسار الى اليمين ) و بعض الترتيب ... هذا ما وصلت اليه ... مع ان النموذج الفرعي مازال يحتوي على فراغ لم استطع ان ازيله ... اجوا من احد الاساتذة ان يسعفنا في الحال ... برنامج الصيدلية - Copy.rar

لم تجب على تساؤلي اي برنامج متقدم يحتاج الى خدمات مصاحبة يتم تثبيتها على الجهاز المستخدم

تأثيرات قمة في الجمالية مشكور أخانا الكريم

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

أخي الكريم ميدو جرب المعادلة التالية في الخلية C3 =EOMONTH(A3,0)+1 إذا صادفتك مشكلة في المعادلة قم باستبدال الفاصلة العادية بفاصلة منقوطة تقبل تحياتي

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

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

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

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

ايش رايك اعطيك طريقة لطلبك وتنفع لترقيم الاقساط كذلك ضعي لحدث بعد التحديث للمدفوع ويصبح الكود بالشكل التالي Private Sub المدفوع_AfterUpdate() Me.رقم_القسط = Parent![عدد الاقساط] & "/" & CurrentRecord End Sub وللترقيم فقط Private Sub المدفوع_AfterUpdate() Me.رقم_القسط = CurrentRecord End Sub هذه الفكره اخذتها من الاستاذ والمحاسب كمال النحال من زمان وما نسيتهاش ! بالتوفيق

السلام عليكم رجاء افادتي عملت البرنامج وتريد اخفاء اكسس من الخلفية مع العلم انا استخدم ويندوز 7 و اوفيس 2010

السلام عليكم ورحمة الله وبركاته. ماشاء الله أخي بارك الله لك في علمك

السّلام عليكم و رحمة و بركاته ماشاء الله أخي الغالي " حسام عيسى " .. ما أحلى و أجمل إطلالاتك .. قمّة الرّوعة .. ملف و أمثلة رائعة من أستاذنا رائع الابداعات .. حركات فعلاً جميلة .. أنا شخصيًّا أهتم كثيرًا بهذه اللّمسات الفنيّة و اللوحات المميّزة جزاك الله خير الجزاء و زادك من علمه و فضله و نفع بك الاسلام و المسلمين خالص تحياتي

أخي العزيز صلاح الدين تفضل البرنامج Passware Password Recovery Kit Professional 11.1.4 ومعه السيريال ويا رب يساهم في حل مشكلتك .. أخبرنا بالنتائج بعد التجربة كلمة السر لفك الضغط officena حمل البرنامج من هنا

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

اساتذتى الافاضل اسمحوا لى وانا تلميذكم فى هذا المنتدى أبداء رأى فى هذا الموضوع لماذا نهتم بمواضيع كسر الحمايه ولا نهتم بالبحث عن حل وابتكار جديد فى الاكسيل وهو كيفية عمل كود يمنع كسر الحمايه بدلا من ان نضيع وقتنا فى البحث فى ابتكار كسر الحمايه هل وقفنا عاجزين عن حماية ملفاتنا امام برامج كسر الحمايه ؟؟؟!!! خاصه لو هذه البرامج تحوى على معلومات خاصه بشركات او اشخاص فأصبحنا نتجه الى التنافس فى برامج كسر الحمايه ونتباها بها الفطره اللى ربنا خلقنا بيه ان كل واحد بيفكر ازاى يفكر يحمى نفسة ويحمى بيته ويحمى اولاده فأذا كانت فطرتنا هى البحث دائما عن حمايتنا فلماذا نتجه الى كسر الحمايه أنا اتفق معكم وبشده ممكن يكون الوحد ممنا نسى الباسورد لملف خاص به وبه كل بيانات عمله فلابد من حلول مثل كسر الحمايه حتى يتم استرجاع الملف وفتحه مره اخرى ولكن للاسف ممكن شخص يستخدم برنامج فك الحمايه لملف ليس خاص به بل خاص بزميل اخر وليكن على سبيل المثال 2 محاسبين فى العمل واحد يسرق مجهود اخر ؟؟؟؟!!! وهذا حصل معى بالفعل سرقة ميزانيه وتقارير كنت قمت بأعدادها على الاكسيل *********************************************************************************** سوف اكون اكثر مرونه فى رأى واتفق معكم فى انه لابد من وجود برامج كسر الحمايه والبحث عن ما هو افضل وجدييد لتفيدنا كما ذكرت فى فك ملف شخصى تم نسيان الباسورد بتاعه ولكن يكون هناك خط متوازى اخر وهو البحث عن برامج او اكواد لمنع كسر الحمايه وبكدا يكون التنافس والابتكار والابداع يسيران فى خطين متوازين متساويين ولكن كما ذكرت بأننا وقفنا عاجزين امام برامج كسر الحمايه وهذا شئ مؤسف ويجعلنا نفقد حبنا للاكسيل وعدم الثقه فيه لانه غير قادر على حمايه بياناتنا واتذكر استاذى الحبيب عماد الحسامى حاول مرارا وتكرار فى مواجهه كسر الحمايه للاسف مش متذكر الرابط اللى كان بيقدم فيه ذالك ولكن يكفية شرف المحاوله * فهل قمنا نحن ولو مجرد محاوله فى ابداع وابتكار جديد لمواجهه برامج كسر الحمايه او حتى اكواد تفك الحمايه واخيرا ارجوا على الاقل ان نمشى فى خطين متوازيين تقبلوا تحياتى

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

السلام عليكم ورحمة الله وبركاته الفيديو الخامس والمرفق باستخراج كشف حساب . استخراج كشف حساب الفيديو الخامس هذا الملف الذي تم العمل عليه اثناء تسجيل الفيديو . كشف حساب.rar وهذا الفيديو مشاهدة مفيدة وممتعة أتمناها لكم

أخي الحبيب واستاذنا / مجدي يونس بارك الله فيك علي متابعة الموضوع وبالنسبة لموضوع الكهرباء وانقاطعها المتكرر بمصر فانصحك ((بسيبسليزر) (Stabilizer) لانه من مميزاته تثبيت التيار علي 220 فولت مهما انخفض او ارتفع التيار المدخل والميزة الاخري والهامة جدا عند انقطاع التيار يعطيك فترة 30 دقيقة فيها الفرصة الكافية للقيام بحفظ اعمالك وعمل اغلاق للكمبيوتر وحتي لو انت مثلا غير متواجدامام الجهاز بيقوم بعمل شيت داون للجهاز وفي منه تعطي فترات اعلي لكن اغلي وحسب النوع وبلد المنشا لكن متوسط السعر بالسعودية 270 ريال وسعره بباب اللوق 340 ج لكن بالنسبة لمنطقة بورسعيد لا اعرف ماهو السعر وهتلاقي تكاليف تغيير الرامات او البور صبلاي مجمعة علي فترة معينة بنفس سعر الجهاز عن تجربة تقبل تحياتي