ياسر خليل أبو البراء

أخي الكريم ياسر العربي إذا كان ملفك بيسبب صداع .. طيب الملف المرفق في المشاركة دي شوف هيسبب لك ايه؟ دا ملف بالمعادلات من غير أكواد وفيه أوراق عمل مخفية وإعدادات للعملة اللي إنت ترغب فيها وعربي وإنجليزي (وعشان متقولوش حارمكم من حاجة) Convert Numbers Into Words No Codes.rar

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

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

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

شوف الفيديو ده فيه حل المشكلة إن شاء الله

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

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

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

دايماً خليك في السهل الممتنع تقدر تساعد بسرعة وتوصل بسرعة تقبل تحياتي

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله هذا الموضوع من فترة كنت أبحث فيه وأتذكر أن هناك من طلب مثل هذا الطلب ، كما أنه يوجد موضوع بالمنتدى في الأيام الأخيرة لا أتذكره يخص إغلاق التطبيق وكيفية منع الإغلاق عن طريق زر الإغلاق الخاص بالتطبيق ، ووجدت زخم من الأكواد ، ومتاهات إلخ ... فقررت عمل موضوع لإنهاء الأمر والقضاء عليه بهدوء .. بأكواد بسيطة جداً بعيداً عن الزخم الغير مرغوب فيه والتعقيد الذي لا أحبذه في كثير من الأحيان ففي البساطة لو تعمقت في المسألة ، ستجد دائماً الحلول اليسيرة التي قد لا تخطر على بال الكثيرين سيكون محور العملية في كودين أحدهما يوضع في موديول .. ويكون بالشكل التالي Public CloseMode As Boolean Sub CloseMe() CloseMode = True ThisWorkbook.Save Application.Quit End Sub السطر الأول دا إعلان (بس مش في التليفزيون ولا إعلان على مواقع الانترنت ) دا إعلان في مشروع المصنف VBA Project ولا يخص الموديول فقط ، بل هو إعلان عاااااااااااااااااااااااااام أي أنه يمكن التعامل معه في أي موديول (سواء موديول عادي أو موديول ورقة عمل أو موديول المصنف أو موديول الفورم) المتغير اللي بيتم الإعلان عنه اسمه CloseMode ونوعه (يا إما ذكر يا إما أنثى) ..( True أو False) الإجراء المسمى CloseMe (والترجمة اقفلني .. والكلام ليس لي .. لأنك لو قفلتني مش هنزل الموضوع ده >> إنما المتحدث هنا هو الإكسيل .. فالإكسيل بيقولك اقفلني شكراً .. بس متقفلنيش من زر الإغلاق ..ابعد عن زر الإغلاق وغني له) أول سطر في الإجراء بيخلي المتغير العام قيمته True وتاني سطر بيحفظ المصنف والتالت بخرج من التطبيق وبس خلاص دي قفلة الكود End Sub تقريبا دي اختصار هند صبري (إند صب) دا الجزء الأول .. انتهينا منه *************************** شوية نجوم عشان الناس تصحصح تاني وتركز في الجزء التاني (كأننا في مسلسل مهند ونور) Private Sub Workbook_BeforeClose(Cancel As Boolean) If Not CloseMode Then Cancel = True MsgBox "Please Use The button To Close This File" End If End Sub الجزء ده بيوضع في حدث المصنف .. وكما ذكر أخونا إبراهيم أبو ليلة في سلسلة شروحاته إن الحدث دا بيتنفذ قبل الإغلاق .. يعني ببساطة لما أدوس للإكسيل على طرف (اللي هو زر الإغلاق) يتنفذ الأسطر الموجودة الأسطر عبارة عن جملة شرطية بتقول ايه : (نركز ونصحى عشان أنا هنام منكم أهو) لو المتغير العام CloseMode منفي .. يعني قيمته Fasle وممكن نكتب الشرط بالشكل ده If CloseMode = False Then واحد هيسأل طيب لو كانت قيمة المتغير True مش كدا ممكن نستخدم زر الإغلاق ؟؟؟ أقوله صحيح .. بس المتغير العام القيمة الافتراضية له False .. أول ما نفتح المصنف أي متغير بتكون قيمته الافتراضية 0 مثلاً لو كان متغير من النوع Long ، أو فراغ "" لو كان المتغير String ، أما القيمة الافتراضية للمتغير Boolean يا ناس يا حلوين هي القيمة False المهم نرجع للشرط .. فلو كانت قيمة المتغير CloseMode تساوي False ينفذ اللي جاي .. يا إما أروح أمشي أنا يا شيخ عبد الستار وطبعاً زي ما قلت القيمة الافتراضية False بالتالي بالتالي وأكيد هينفذ باقي الكود باقي الكود .. السطر Cancel = True معناها الغي عمل زر الإغلاق ، ومش بس كدا .. أنا مش هسيبك تضرب أخماس في أسداس وتقول نسخة الأوفيس خربت عندي .. لا أنا هظهر لك رسالة عشان تتأكد إن النسخة مخربتش الرسالة بتقول : روح يا ولدي استخدم الزر اللي ياسر خليل عمله في ورقة العمل ، عشان زر الإغلاق بتاع التطبيق ، سعادته ياسر بيه لعب في أساسه وعطله (أصلي من النوع المعطلاتي) وطبعاً زي ما اتعودنا من الأخ شعبولة إننا نقفل ، فالشرط اللي بدأناه كمان لازم يقفل بـ End IF .. زي بس خلاص بتاعة شعبولة ** نقطة أخيرة : واحد سامعه بيفكر (على فكرة هو متكلمش هو لسه بيفكر ..) دلوقتي لو عايز أقفل من زر الإغلاق مع وجود الكودين دووول أعمل ايه ؟؟ الإجابة : بسيطة جداً روح واعمل إجراء فرعي وخلي قيمة المتغير العام CloseMode تساوي True ( وبكدا تقدر تستخدم زر الإغلاق مرة أخرى) Sub EnableCloseButton() CloseMode = True End Sub ونفذ الإجراء الفرعي ده .. ضع مؤشر الماوس داخل الإجراء الفرعي وانقر Run أي تنفيذ الإجراء الفرعي ، أو F5 من لوحة المفاتيح ... تقدر دلوقتي تقفل من زر الإغلاق عادي لأنك جعلت قيمة المتغير العام CloseMode تساوي True وأقفل أنا كمان موضوعي بالقفلة المعروفة بالنسبة لي .. دمتم على طاعة الله ، ولا تنسونا من صالح دعائكم حمل الملف من هنا

غير بقا رقم 60 دا للقب الجميل الخاص بك الحمد لله أن تم المطلوب على خير والحلو كمل

جرب المرفق التالي عله يفي بالغرض 01 V1.rar

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

وهذا كود آخر .. اثراءً للموضوع Private Sub CommandButton1_Click() Application.ScreenUpdating = False With CommandButton1 If .Caption = "إخفاء منتقل" Then HideAll .BackColor = vbBlue .Caption = "إظهار منتقل" ElseIf .Caption = "إظهار منتقل" Then ShowAll .BackColor = vbRed .Caption = "إخفاء منتقل" End If End With Application.ScreenUpdating = True End Sub Sub ShowAll() On Error Resume Next Application.ScreenUpdating = False With ActiveSheet.Cells .EntireRow.Hidden = False End With Application.ScreenUpdating = True End Sub Sub HideAll() Dim RW As Range, R_TB As Range Application.ScreenUpdating = False For Each RW In Range("AR7:AR98") If RW.Value = "منتقل" Then If R_TB Is Nothing Then Set R_TB = RW Else Set R_TB = Union(R_TB, RW) End If End If Next RW R_TB.EntireRow.Hidden = True Application.ScreenUpdating = True End Sub

أخي الكريم عزيز 6000 (يا ريت اللقب بدلاً من الرقم 600 عشان دايماً بشوف الرقم 6) إليك الملف المرفق التالي فيه تعديل بسيط للكود مع استبدال زر Form Button بآخر ActiveX Button حيث أن الأول لا يدعم تلوين الخلفية إليك الكود المستخدم Private Sub CommandButton1_Click() Dim I As Long, N As Long, M As String, XX As Shape M = "منتقل" N = 0 Application.ScreenUpdating = False With CommandButton1 If .Caption = "إخفاء منتقل" Then For I = 7 To 98 If Cells(I, 44) = M Then If Cells(I, 44).EntireRow.Hidden = False Then Cells(I, 44).EntireRow.Hidden = True N = N + 1 End If End If If N > 0 Then .BackColor = vbBlue .Caption = "إظهار منتقل" End If Next I ElseIf .Caption = "إظهار منتقل" Then For I = 7 To 98 If Cells(I, 44) = M Then If Cells(I, 44).EntireRow.Hidden = True Then Cells(I, 44).EntireRow.Hidden = False N = N + 1 End If End If If N > 0 Then .BackColor = vbRed .Caption = "إخفاء منتقل" End If Next I End If End With Application.ScreenUpdating = True End Sub تقبل تحياتي كشف عام مرتبات.rar

طيب أخي ياسر عالج الأول مشكلة السيريال الخاص بالهارد لأني لما بفتح البرنامج وبضع أي سيريال بيفتح معي . بالنسبة للسورس (ما عليك فيه .. إنت اخفي أكوادك عشان نتأكد من طريقة الحماية وبعدها ابقا ادنا السورس ، لما نتأكد إننا وصلنا لأفضل طريقة للحماية) بالنسبة لفك حماية السورس كود فدا أنا لي موضوع كامل فيه بدون برامج كمان ، ومعايا ملف مش هرفقه هنا عشان دي مخالفة بس إنت اخفي وأنا هوريك المخفي (وهوريك الخلايا في كل البرامج اللي بتستخدمها ..) وجربت الملف السحري ونجح بكل بساطة في فك الحماية ..دا أمر بسيط جداً خلي تركيزك في حاجة واحدة ألا وهي إن البرنامج لا يسمح بالدخول إلا بالسيريال الخاص بالهارد ديسك ورجاء من الأخوة الأعضاء يجربوا النقطة دي ويشوفوا النتائج ..هل فعلاً يتم الدخول بأي سيريال ولا لازم السيريال الأصلي للهارد؟؟

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

أخي الحبيب ياسر أنا جربت أي سيريال نمبر وفتح عادي .. يا ريت الأخوة اللي جربوا الملف يجربوا ويقولوا على النتائج ...!! بالنسبة لمفتاح Shift كل اللي عملته إنه فتح على الشيت التاني فدخلت عادي على محرر الأكواد وأظهرت الورقة المخفية وظهر الملف والأكواد .. إحنا عايزين حماية بجد بدون تحويل الملف لملف تنفيذي .. فكرتك جميلة وإن شاء الله تكمل مع تكرار المحاولة أرجو لك التوفيق ...

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

لا أخي ياسر بالعكس دا إنت كدا ثروة بالنسبة للمنتدى كونك على علم بلغة الفيجوال بيسك فد هيفيدنا في الإكسيل بشكل كبير جداً بس الموضوع محتاج شوية بحث على شوية محاولات بدون يأس وإن شاء الله نصل للمطلوب إليك الدالة التالية علها تفيدك في إتمام الأمر إن شاء الله Function GetPhysicalSerial() As Variant Dim Obj As Object Dim WMI As Object Dim SNList() As String, I As Long, Count As Long Set WMI = GetObject("WinMgmts:") For Each Obj In WMI.InstancesOf("Win32_PhysicalMedia") If Obj.SerialNumber <> "" Then Count = Count + 1 Next ReDim SNList(1 To Count, 1 To 1) I = 1 For Each Obj In WMI.InstancesOf("Win32_PhysicalMedia") SNList(I, 1) = Obj.SerialNumber I = I + 1 If I > Count Then Exit For Next GetPhysicalSerial = SNList End Function

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

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

أبي الحبيب أبو يوسف الملف المرفق لا يتم تحميله ..هلا قمت برفعه مرة أخرى

هل جربت الكود أخي الحبيب وتم التحويل بنجاح .. هل يمكنك تحميل البرنامج الذي يقوم باستعراض هذا النوع من الملفات DBF؟ فضلاً ارفقه هنا أو ارفعه على موقع من مواقع الرفع (بس يا ريت يكون كامل مش تجريبي)