اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

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

السادة / مشرفي المنتدى المحترمين

السادة / خبراء الإكسل المحترمين

السادة / الأعضاء المحترمين

نداء عاجل أرجو من الجميع المساعدة في فك الحمايةالموجودة على وحدات الماكرو للملف المرفق وبالأحرى فك الحماية عن الملف بالكامل.

ملحوظة : الملف تم تحميله من موقع أجنبي وبه معلومات مفيده جدا والغرض من فك الحماية ليس التعدي على حريات وخصوصيات الآخرين وانما النفع والفائدة للجميع

أرجو الرد في جميع الأحوال لأني أحتاج الملف ضروري

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

Macro_Excel_Stocks_warehouses.rar

قام بنشر

مشكور اخي الغالي على البرنامج

برنامج رائع جدا

ولكن امل من الخبراء شرح البرنامج او ترجمته وكيفية عمله وما هو الملف

واليك كلمة السر في المرفقات

تحياتي

Pass.rar

قام بنشر

السلام عليكم

أخي العزيز / DVB Software

إسمح لي

1. لم يكن هنك داعي لعمل إرفاق لملف صغييييييير فقط يحتوي علي كلمة السر 2B3F

2. كلمة السر 2B3F خطأ ولاتفتح الكود حتي إن غيرت الأحرف إلي 2b3f

أرجو إعادة المحاولة وإن كنت فتحته ، ممكن ترسل الكود نفسه

قام بنشر (معدل)

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

اٌلإخوة الأفاضل / DVB Software & Salamaxp لكم كل الشكر والتحيه والتقدير

جزاكم الله خيرا على هذا العمل الرائع وأخص بالذكر الأخ Salamaxp وهل من الممكن أن نتواصل عبر ايميلي sayed.zarzoura@yahoo.com وجعل الله هذا العمل خالصا لوجه الله تعالى

أخوكم في الله / السيد عبد الفتاح

تم تعديل بواسطه السيد عبد الفتاح
قام بنشر

الملف الذي أرسلته بدون أكواد

تأكد من خيارات الأكواد عندك

أرجو إعادة المحاولة

وإن كنت فتحته ، ممكن ترسل الكود نفسه

الأخ الغالي / salamaxp

كما تفضل الأخ / TareQ M جزاه الله خيرا فالملف لا يحتوي على أكواد ولكن على العموم جزاك الله خيرا :clapping: انت وكل من حاول المساعدة واتمنى ان يتم حل مشكلة الأكواد واعادة رفع الملف مرة أخرى

قام بنشر

الأكواد موجودة

Private Sub CommandButton1_Click()

Dim i As Integer

Dim j As Integer

Dim final As Integer

Dim actual As Integer

For i = 1 To 1000

If Hoja2.Cells(i, 1) = "" Then

final = i

Exit For

End If

Next

Hoja2.Cells(final, 1) = UserForm2.ComboBox1

Hoja2.Cells(final, 2) = UserForm2.TextBox1

Hoja2.Cells(final, 3) = UserForm2.TextBox2

Hoja2.Cells(final, 4) = UserForm2.TextBox4

Hoja2.Cells(final, 5) = UserForm2.TextBox6

Hoja2.Cells(final, 6) = UserForm2.TextBox7

For j = 1 To 1000

If Hoja6.Cells(j, 1) = Hoja2.Cells(final, 1) Then

actual = Hoja6.Cells(j, 3)

final = UserForm2.TextBox2 + actual

Hoja6.Cells(j, 3) = final

Exit For

End If

Next

UserForm2.ComboBox1 = ""

UserForm2.TextBox1 = ""

UserForm2.TextBox2 = ""

UserForm2.TextBox4 = ""

UserForm2.TextBox6 = ""

UserForm2.TextBox7 = ""

UserForm2.TextBox8 = ""

UserForm15.Hide

UserForm2.Hide

End Sub

Private Sub CommandButton2_Click()

UserForm15.Hide

End Sub

قام بنشر

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

اٌلإخوة الأفاضل جزاكم الله خير الجزاء وأثابكم كثيرا من الحسنات وأشكر كل من قام بالمرور

أخي عبد الفتاح ، الله يفتحها عليك

ملف رائع يحتاج فقط للترجمة لكي يستفاد منه : )

الأخ العزيز / الجزيرة

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

الأخ Salamxp أرجو أن ترسل لى إيميلك فأنا أريد التواصل معك

رزقنا الله وإياكم الصدق في الأقوال والأعمال

قام بنشر

تأكد يا أخي الكريم

بحصولك على الكثير من الأجر والدعاء إن ترجمته أو لم تترجمه : )

اسأل الله العظيم إن ييسر لك ويعينك على عمل الخير

قام بنشر

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

الإخوة الأعزاء

مشكورين على الجهد المبذول في الملف وشكر وافر لكل من ساهم في الرد على المشاركة :clapping::clapping::clapping:

الأخ salamaxp

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

أولا : فإن الـ Modeul التالية:Mdulo1 & Mdulo2 فارغة وليس بها أكواد هل من الممكن أن تعيد إرسال الملف وبه الأكواد الخاصة بهذين Modeul ان أمكن.

ُثانيا: عندما أقوم بفتح بعض التقارير يظهر الرسالة المرفقه والتي تفيد بأن التقرير المطلوب غير متاح في النسخة الDemo فكيف يمكن التغلب على هذه الرسالة واظهار التقرير

أرجو الرد

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

pic.rar

  • 6 years later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information