WAFD1974 قام بنشر أكتوبر 10, 2014 مشاركة قام بنشر أكتوبر 10, 2014 أعزائي الكرام السلام عليكم ورحمة الله وبركاته صمتت برنامج صغير علي الاكسيل لمتابعة الاقساط والسداد . وأردت ان أجبر المستخدم علي تفعيل الماكرو قبل الدخول باستخدام كود ، وكذلك قمت بعمل بأقتباس ماكرو لربط شيت الاكسيل بالسريال الخاص بالهارد ديسك ولكن المشكلة ان الكودين معاً لا يعملان مع العلم ان عند تطبيق كل كود علي حدا يعمل بكفاءة أرجوا التكرم بمساعدتي في حل هذة المشكلة مع الشرح ولكم الشكر جميعاً Shrief .rar رابط هذا التعليق شارك More sharing options...
WAFD1974 قام بنشر أكتوبر 12, 2014 الكاتب مشاركة قام بنشر أكتوبر 12, 2014 الاساتذة الكرام: 33 مشاهدة وبلا مشاركة لعل المانع خير وشكراً للجميع وفي انتظار الرد رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 12, 2014 مشاركة قام بنشر أكتوبر 12, 2014 المرفق لا يعمل عندي ثانيا لو تفضلت بالأكواد التي تعمل على حدة بكفاءة يكون أفضل قد يكون هناك تعارض في سطر ما ارفق الملف قبل كتابة الأكواد فيه للتطبيق عليه وعليك أخي أن تعذر إخوانك التمس لأخيك 70 عذرا مش عذر واحد 1 رابط هذا التعليق شارك More sharing options...
الصـقر قام بنشر أكتوبر 12, 2014 مشاركة قام بنشر أكتوبر 12, 2014 اخى الكريم الملف لا يعمل ارفع الملف مره اخرى رابط هذا التعليق شارك More sharing options...
WAFD1974 قام بنشر أكتوبر 12, 2014 الكاتب مشاركة قام بنشر أكتوبر 12, 2014 أخواني الاعزاء / YasserKhalil / حسام عيسى / اعلم جيداً مدي انشغالكم واعلم ايضاً انكم لم تتاخروا في الرد علي أي انسان فلكم مائة عذر وليس سبعين فقط مرفق شيتين أحداهما البرنامج بدون أكواد والمرفق الثاني شيت عبارة عن كودين فقط والمطلوب ادراج الكودين للعمل معاً في شيت البرنامج وشكراً جزيلاً وجازاكم الله خيراً Desktop.rar رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 12, 2014 مشاركة قام بنشر أكتوبر 12, 2014 (معدل) أخي الحبيب مبدئيا لن يستطيع أحد أن يطبق الكود الأول لأن السيريال الموجود في الكود الخاص بك هو خاص بالهارد خاصتك فقط فلابد لنا أن نغير السيريال بالسيريال الخاص بالهارد الخاص بنا .. فيلزم أولا معرفة السيريال الخاص بالهارد ديسك إليكم إخواني هذه الدالة التي تقوم بمعرفة سيريال الهارد ديسك الخاص بكم 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 رابط هذا التعليق شارك More sharing options...
WAFD1974 قام بنشر أكتوبر 12, 2014 الكاتب مشاركة قام بنشر أكتوبر 12, 2014 (معدل) أخي الكريم جزاك الله عنا خيراً وجعله في ميزان حسناتك أريد أن أعرف ما هي المشكلة في حالة أردت ان ادمج الكودين معاً في شيت واحد فيمكنك تطبيق ذلك عندك وشرح المشكلةوانا أقوم بالتعديل غالباً المشكلة هنا تكرار نفس الاسم مرتين ()Private Sub Workbook_Open مرة في كود تشغيل الماكرو و الاخر في كود السريال وشكراً تم تعديل أكتوبر 12, 2014 بواسطه WAFD1974 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 12, 2014 مشاركة قام بنشر أكتوبر 12, 2014 بالنسبة للكود الثاني لم يعمل معي ..يا ريت حد يجرب ويشوف شغال معاه أو لا رابط هذا التعليق شارك More sharing options...
WAFD1974 قام بنشر أكتوبر 12, 2014 الكاتب مشاركة قام بنشر أكتوبر 12, 2014 أخي الكريم أشكرك جزيل الشكر علي اهتمامك ومحاولاتك المستمرة في تقديم العون لي أما بالنسبة للكود الثاني فهو يعمل لوحده بدون مشاكل المشكلة فقط عند محاولة استعمال الكودين معاً كل الشكر لك مرة أخري رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 13, 2014 مشاركة قام بنشر أكتوبر 13, 2014 (معدل) طيب ممكن تعمل إدراج للكود مرة أخرى بس في المشاركة عن طريق الضغط على زر الكود أولا ثم وضع الكود هكذا هنا يتم لصق الكود طبعا أنا حاولت إني أفتح مجال لباقي الأخوة بالمساعدة عن طريق إعطاءهم دالة التي تستخرج السيريال الخاص بالهارد ديسك كخطوة أولى وإن شاء المولى يتم الحل أما بالنسبة للتعارض الذي تحدثت عنه فهذا أكيد حاول أنت أن تقوم بإزالة هذا التعارض لعل المشكلة أن تنحل تم تعديل أكتوبر 13, 2014 بواسطه YasserKhalil رابط هذا التعليق شارك More sharing options...
WAFD1974 قام بنشر أكتوبر 13, 2014 الكاتب مشاركة قام بنشر أكتوبر 13, 2014 الكود التالي يمنع تشغيل برنامج الاكسيل اذا كان السريال الخاص بالهارد ديسك مخالفلما هو مسجل بالفعل في الكود ()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 رابط هذا التعليق شارك More sharing options...
ياسر خليل أبو البراء قام بنشر أكتوبر 13, 2014 مشاركة قام بنشر أكتوبر 13, 2014 الأخ الحبيب وافد المشكلة ليست في هذا الكود .. المشكلة بالنسبة لي في الكود الثاني .. لا يعمل لدي بشكل جيد ولا أعرف ما السبب ؟ إذا كان يعمل فسأقوم بتجربة الكودين معاً ومعرفة المشكلة بإذن الله 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.