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

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

أخي الكريم جزاك الله عنا خيراً وجعله في ميزان حسناتك أريد أن أعرف ما هي المشكلة في حالة أردت ان ادمج الكودين معاً في شيت واحد فيمكنك تطبيق ذلك عندك وشرح المشكلةوانا أقوم بالتعديل غالباً المشكلة هنا تكرار نفس الاسم مرتين ()Private Sub Workbook_Open مرة في كود تشغيل الماكرو و الاخر في كود السريال وشكراً

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

الاساتذة الكرام: 33 مشاهدة وبلا مشاركة لعل المانع خير وشكراً للجميع وفي انتظار الرد

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

أخواني الاعزاء / شكراً جزيلاً علي الاهتمام والرد ولكن يوجد بعض الملاحظات التي لم أفهما ومرفق الشيت لكم مرة أخري للنظر فيه والرد 1- من المفترض عندما اشتري منتجات جديدة لبيعها بالفرع يتم اضافتها تلقائياً علي المخزن السابق. 2- البيع بالفرع يتم عن طريق كود بيعي وليس وصف المنتج. 3- اريد أن اكتب الشهور باللغة العربية ( يناير، فبراير........الخ). 4- كمية البيع وسعر البيع بالشيت الثالث بتكتب وحدها ولا اعرف السبب. 5- من المفترض انني عندما ابيع كمية من منتج ان يتم خصمها اتوماتيك من المخزون. أعرف اني اثقلت عليكم بطلباتي ولكني احتاج جداً للمساعدة وشكراً جزيلاً لكل من ساهم gestion_stock1.rar

اخي العزيز / نزار الف شكر علي اهتمامك وردك علي الرسالة وفي انتظار رد الاخوة علي عمل برنامج للجرود وشكراً

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

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