مشكلة في تشغيل الماكرو

[WAFD1974]

أعزائي الكرام 

السلام عليكم ورحمة الله وبركاته

صمتت برنامج صغير علي الاكسيل لمتابعة الاقساط والسداد .

وأردت ان أجبر المستخدم علي تفعيل الماكرو قبل الدخول باستخدام كود ، وكذلك قمت بعمل بأقتباس ماكرو لربط شيت الاكسيل بالسريال الخاص بالهارد ديسك 

ولكن المشكلة ان الكودين معاً لا يعملان مع العلم ان عند تطبيق كل كود علي حدا يعمل بكفاءة

 

أرجوا التكرم بمساعدتي في حل هذة المشكلة مع الشرح

 

ولكم الشكر جميعاً

Shrief .rar

[WAFD1974]

الاساتذة الكرام:

 

33 مشاهدة   وبلا مشاركة لعل المانع خير

 

وشكراً  للجميع وفي انتظار الرد

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

المرفق لا يعمل عندي

ثانيا لو تفضلت بالأكواد التي تعمل على حدة بكفاءة يكون أفضل

قد يكون هناك تعارض في سطر ما

ارفق الملف قبل كتابة الأكواد فيه للتطبيق عليه

 

وعليك أخي أن تعذر إخوانك التمس لأخيك 70 عذرا مش عذر واحد

[الصـقر]

اخى الكريم 

الملف لا يعمل

ارفع الملف مره اخرى

[WAFD1974]

أخواني الاعزاء / 

  YasserKhalil / حسام عيسى  /

 

اعلم جيداً مدي انشغالكم واعلم ايضاً انكم لم تتاخروا في الرد علي أي انسان فلكم مائة عذر وليس سبعين فقط

 

مرفق شيتين أحداهما البرنامج بدون أكواد

 

والمرفق الثاني شيت عبارة عن كودين فقط 

 

والمطلوب ادراج الكودين للعمل معاً في شيت البرنامج

 

وشكراً جزيلاً وجازاكم الله خيراً

 

Desktop.rar

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

أخي الحبيب

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

فلابد لنا أن نغير السيريال بالسيريال الخاص بالهارد الخاص بنا .. فيلزم أولا معرفة السيريال الخاص بالهارد ديسك

 

 

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

Function HdNum() As String
    Dim fsObj   As Object
    Dim drv     As Object
    Set fsObj = CreateObject("Scripting.FileSystemObject")
    Set drv = fsObj.Drives("C")
    HdNum = Hex(drv.serialnumber)
End Function

تم تعديل أكتوبر 12, 2014 بواسطه YasserKhalil

[WAFD1974]

أخي الكريم

 

جزاك الله عنا خيراً وجعله في ميزان حسناتك

أريد أن أعرف ما هي المشكلة في حالة أردت ان ادمج الكودين معاً في شيت واحد

فيمكنك تطبيق ذلك عندك وشرح المشكلةوانا أقوم بالتعديل

غالباً المشكلة هنا تكرار نفس الاسم مرتين

 

 

()Private Sub Workbook_Open

 

مرة في كود تشغيل الماكرو و الاخر في كود السريال

 

وشكراً

تم تعديل أكتوبر 12, 2014 بواسطه WAFD1974

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

بالنسبة للكود الثاني لم يعمل معي ..يا ريت حد يجرب ويشوف شغال معاه أو لا

[WAFD1974]

أخي الكريم 

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

أما بالنسبة للكود الثاني فهو يعمل لوحده بدون مشاكل

المشكلة فقط عند محاولة استعمال الكودين معاً

كل الشكر لك مرة أخري

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

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

 

هكذا

هنا يتم لصق الكود

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

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

تم تعديل أكتوبر 13, 2014 بواسطه YasserKhalil

[WAFD1974]

الكود التالي يمنع تشغيل برنامج الاكسيل اذا كان السريال الخاص بالهارد ديسك مخالفلما هو مسجل بالفعل في الكود 

()Private Sub Workbook_Open

                                                                      

If Hex(CreateObject("Scripting.FileSystemObject").Drives.Item("C:").SerialNumber) <> "2E7FAD83" Then

MsgBox "Attention !Error thanks to  ", vbCritical, "Violation des droits du programme"

ThisWorkbook.Close savechanges = True

End If

End Sub

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

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

إذا كان يعمل فسأقوم بتجربة الكودين معاً ومعرفة المشكلة بإذن الله