ابو تميم

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

الملف المرفق تجربة وعلى افتراض أنه يحتوي على مجموعة أوراق (ورقة1،ورقة2،ورقة3) إضافة إلى أكواد على محرر الاكواد وماكرو وغيرها من الاعدادات المطلوب هو عندما أضغط على الزر ( نقل الملف ) يتم نقل الملف كاملا بكامل محتوياته إلى سطح المكتب ويكون الملف على سطح المكتب بنفس اسمه الاصلي دون أي تغيير أي حفظ نسخة من الملف كاملا على سطح المكتب مع ضرورة حفظ التغييرات على الملف نفسه في موقعه وحفظ نسخة بعدها إلى سطح المكتب جزاكم الله خيرا حفظ نسخة من الملف على سطح المكتب.rar

في المرفقات ملف اكسل يحتوي على كود يعمل على ارسال الورقة النشطة من ملف الاكسل عبر البريد الالكتروني الفعال على الجهاز Outlook هل يمكن التعديل على الكود بحيث يعمل ما يلي: 1. إرسال الملف كاملا وليس الورقة النشطة فقط ( إرسال الملف بكامل الأكواد الموجودة فيه بدون تغيير ) 2. إمكانية تحديد نص الرسالة أو تجهيزه مسبقا ... حيث أن الكود الحالي يعمل على إرسال الملف بدون أن يكون هناك نص للرسالة وتصل الرسالة بالمرفق فقط دون تدوين أية ملاحظات في نص الرسالة وأيضا دون تحديد التوقيع الافتراضي الخاص بالايميل 3. إمكانية إضافة ( نسخة إلى .. ) بحيث يمكننا أن نرسل الملف إلى شخص ونسخة منه إلى شخص آخر أو أشخاص آخرين وليس بالضرورة عدد محدود من المستخدمين. ولكم جزيل الشكر والاحترام والتقدير أضف إلى ذلك فإنه عند الضغط على زر إرسال الملف عبر الإيميل تظهر لدي الرسالة التالية ( مرفقات ) هل يمكن تعديل الكود لمنع ظهور هذه الرسالة sendEmail.rar

أخي يوسف عطا تم إرسال الكراك لك على الايميل مع أني جربت تنزيله عندي من نفس الموقع ونزل بدون مشاكل ... ربما أن الأنتي فايروس عندك يمنع تنزيل هذا الملف على الجهاز وأيضا ربما يمنع تنزيله من الايميل إذا لم يتم تنزيله معك يمكن تعطيل الأنتي فايروس وتثبيت الكراك ثم إعادة تفعيل الأنتي فايروس مرة أخرى مع العلم بأنه يجب تعطيل الأنتي فايروس لتفعيل الكراك على كل الإحتمالات أخي سعد عابد ربما حصل معك مشكلة أثناء تحميل أحد الأجزاء يمكن أثناء فك ضغط الملفات الأربعة مشاهدة الملف التالف وإعادة تحميله مرة أخرى وإذا تم تحميله مرة أخرة ولم يعمل يمكن نسخ اسم الملف الناتج بعد التحميل و وضعه على أحد محركات البحث والبحث عن موقع آخر يحمل نفس الإسم تماما والتحميل منه مثلا 4shared بدلا من mediafire شكرا

تم تخصيص المطلوب من السؤال وتم الاكتفاء بالعامود الأول من البيانات المراد ترحيلها من الملفات في مجلد data إلى الملف ( الرئيسي ) تم وضع مثال للمطلوب داخل المرفق وتم التأشير على المطلوب شكرا لجهودكم ترحيل_بيانات بين_ملفين_بدلالة رقم_محدد.rar

تحية طيبة يمكنني الإفادة في المطلب رقم 1 حاليا أوفيس 2010 عربي الرابط يحتوي على نسختين من اوفيس 2010 32 بت و 64 بت http://www.mediafire.com/?yvjp6bkd66x4u الكراك موجود على نفس الرابط كل نسخة مقسمة إلى 4 أقسام بدون الكراك وطريقة تثبيت الكراك مشروحة بالداخل

up

أسعد الله أوقاتكم في المرفقات مجلد مساره D:\PROGRAMٌ يحتوي هذا المجلد بداخله على ملف اكسل ( الرئيسي ) ومجلد بيانات اسمه data ومجلد data يحتوي بداخله على ملفات اكسل مرقمة بأرقام ( تم وضع ملف اكسل رقم 1 كمثال ) المطلوب من السؤال ما يلي : ترحيل البيانات بشكل تلقائي بين هذا الملف ( الرئيسي ) والملفات الموجودة في المجلد data بالإضافة إلى ترحيل بيانات من الملفات الأخرى في المجلد data إلى هذا الملف ( الرئيسي ) وكل ملف حسب رقمه ، بحيث يتم الترحيل بين الملفات بناء على الرقم الموجود في هذا الملف ( الرئيسي ) والذي يتم ربطه مع الملف بواسطة الزر ( إنشاء ملف ) والذي تم إعداده بجهود العلامة القدير عبد الله باقشير جزاه الله خيرا حيث أن هذا الزر يعمل على إنشاء ملف جديد أو استبدال الملف القديم بملف جديد بحسب ملف Form معد مسبقا ويقوم تلقائيا بنسخ رقم الملف من الملف ( الرئيسي ) إلى داخل كل ملف جديد في الخانة C5 منه . البيانات المطلوب ترحيلها من هذا الملف ( الرئيسي ) إلى باقي الملفات بناء على الرقم هي الاسم ، المهنة ، مكان العمل ، رقم الهاتف بحيث إذا قمت بالتغيير في هذا الملف ( الرئيسي ) في صف أحد الأرقام يتم ترحيل بياناته الجديدة التي تم تغييرها تلقائيا إلى الملف الذي يحمل نفس الرقم البيانات المطلوب ترحيلها من باقي الملفات إلى هذا المف ( الرئيسي )هي الملفات الفرعية من كل ملف حسب رقمه ربما يتناسب مع الارقام في هذا الملف والتي تكون مرتبطة مع باقي الملفات بالرقم الأمر الأهم في الموضوع هو عدم مطالبتي بتحديث البيانات كلما تم فتح ملف من الملفات وجزاكم الله خيرا ترحيل_بيانات بين_ملفين_بدلالة رقم_محدد.rar

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

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

up

أخي fzsss يمكن حماية الاكواد بوضع رقم سري على محرر الاكواد كما في الصورة المرفقة وذلك بالدخول إلى محرر الاكواد من القائمة المطور واتباع الصورة شكرا

عذرا أخي أحمد أي ملف 4 تقصد المطلوب باختصار أنا أقوم بالعمل على الملف الذي اسمه ( الرئيسي ) بشكل أساسي وعندما أكون داخل هذا الملف ( الرئيسي ) يتم الضغط على أحد الخلايا الملونة بلون مختلف وخلال الضغط على هذه الخلايا إذا اختلف الصف يظهر لدينا في الخلية [c3] قيمة وهذه القيمة هي الرقم الموجود في العامود المسمى ( رقم ) وهو يمثل رقم الصف في الجدول هنا وعند الضغط في خلية محددة يصبح لدينا مسار محدد كما هو موضح أعلى الجدول وهذا المسار ثابت ( D:\PRO\data) إضافة إلى قيمة الخلية C3 الموضحة سابقا وبالتالي يصبح لدينا المسار المطلوب هو المسار السابق نفسه بالإضافة إلى قيمة الخلية C3 ويصبح ( D:\PRO\data\[C3].xlsm ) طبعا يضاف الامتداد xlsm لأن المطلوب هو إنشاء ملف اكسل في المسار المحدد D:\PRO\data ويكون اسم هذا الملف هو قيمة الخلية C3 مضافا إليه الامتداد xlsm وهنا ستسألني ما هو الملف الذي ترغب بإنشاؤه ويكون بهذا الاسم ؟؟؟ الجواب الملف المراد إنشاؤه معد مسبقا داخل مجلد data واسمه Form.xlsm وهنا وعند الضغط على الزر المقصود بالإنشاء للملف يتم وضع كود يعمل العمل التالي أولا : يتم البحث في المسار المحدد أعلاه ( D:\PRO\data) عن الرقم أو القيمة الموجودة في الخلية C3 في الملف ( الرئيسي ) الموضحة سابقا وبالامتداد المطلوب فإذا كانت هذه القيمة موجودة وتم إنشاء ملف بهذا الاسم يظهر لدينا رسالة ( أن هذا الملف موجود مسبقا .. هل تريد استبداله ؟ ) وهنا يعطيني خيارين Yes , No فإذا ضغطنا على الخيار No يتم العودة إلى الملف ( الرئيسي ) بدون أي إجراء آخر وإذا ضغطنا على Yes يتم البحث عن الملف Form.xlsm الموجود في مجلد data ويتم فتحه ويتم نسخ قيمة الخلية C3 من الملف ( الرئيسي ) ولصقها في الملف Form.xlsm في الخلية C5 الموجودة بلون أصفر في الملف Form وقيمتها هنا هي 4 وهذه القيمة مثال فقط بعد ذلك وفي الملف Form يتم تسمية الورقة بقيمة الخلية C5 ويتم حفظ الملف باسم جديد وهذا الاسم هو قيمة الخلية C5 من الملف ( Form ) ويتم ربط قيمة الخلية C5 واسم الورقة واسم الملف الناتج النهائي باسم واحد بحيث إذا تغيرت قيمة الخلية C5 يتغير اسم الورقة ويتغير اسم الملف نفسه وطبعا هنا في الملف الجديد امتداده هو xlsm بحيث يتم حفظ الملف الجديد والذي اسمه هو ( قيمة الخلية C5 ) وامتداده xlsm ... يتم حفظه في مجلد data بجانب الملف الذي اسمه Form.xlsm بحيث لا يتم تغيير اسم الملف Form ويتم الاحتفاظ بالاسم نفسه حتى يتم البحث عنه مرة أخرى عند الرغبة بإنشاء ملف جديد باسم جديد بحسب الرقم الجديد أرجو أن يكون سؤالي واضحا وإن كان غير واضح أرجو التنبيه لذلك حتى أعود وأوضح ما هو غامض شكرا جزيلا لجهودكم

up

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

في الملف المرفق ملف اكسل داخل مجلد ومتضمن معه أيقونة محددة وتم أخذ اختصار لملف الاكسل وتم وضعه في نفس المجلد وتم تحديد الصورة المحددة أيقونة له المطلوب هو عندما يتم تشغيل ملف الاكسل لأول مرة يتم تلقائيا إنشاء إختصار لملف العمل على سطح المكتب ( وهو الاختصار المعد مسبقا ذو الصورة المحددة ايقونة له ) وفي كل مرة يتم تشغيل البرنامج فيها يتم البحث عن اختصار البرنامج على سطح المكتب فإذا كان الاختصار موجود يتم إنهاء الكود وعدم إنشاء اختصار جديد وإذا كان الاختصار غير موجود يتم إنشاء الاختصار نفسه بنفس المطلوب أعلاه شكرا لجهودكم Icon.rar

عندما يتم الضغط في أحد المربعات الملونة يظهر لدينا رقم الصف الموجودة فيه البيانات المطلوبة للعمل وهنا يصبح لدينا مسار صحيح هو D:\PRO\data\[C3 وكما هو واضح قيمة الخلية [C3] تتغير بتغير موضع الضغط في المربعات الملونة المطلوب : عندما نضغط بالماوس ونحدد خلية معينة ويتكون لدينا مسار كما هو موضح أعلاه ويتم الضغط على زر إنشاء الملف يتم التالي: أولا : يتم البحث في المسار المحدد \D:\PRO\data فإذا كان الرقم موجود مسبقا يظهر لدينا رسالة مفادها أن هذا الملف موجود مسبقا هل تود استبداله ؟ Yes , No فإذا تم الضغط على No يتم البقاء على هذه الصفحة دون إجراء أي أمر أما إذا تم الضغط على Yes يتم نسخ الملف المرفق في مجلد data والمنسق مسبقا والذي اسمه Form ويتم نسخ قيمة الخلية [C3] من هذا الملف ولصقها في الخلية [C5] في الملف الثاني Form ويتم بعدها حفظ الملف مرة أخرى في نفس المجلد data ويكون اسمه هو نفس قيمة الخلية [C5] التي تم تحديدها ويكون امتدادها xlsm PROG.rar

الآن أصبح الكود شامل و وافي جزاك الله خيرا تم تجربته على ملف العمل وجميع المعادلات تمت حمايتها وإخفائها سلمت يداك أخي ابو حنين جزاك الله خيرا

المعادلات التي لم تنجح معي هي =VLOOKUP(C6;Device;2;FALSE) =SUMPRODUCT(($D$11:$D$540>0)*($D$11:$D$540<>"")) شكرا

up

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

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

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

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

شكرا اخي الكريم الكود يعطيني مشكلة على : ActiveWorkbook.UpdateLink _ Name:=astrLinks(1), _ Type:=xlLinkTypeExcelLinks أضف إلى ذلك فإنه هنا يجب وضع كود في ThisWorkbook وأنا أرغب بوضع الكود في الورقة المعنية فقط دون وضعها في ThisWorkbook لأنه يتم نسخ الورقة التي يتم ربطها بالبيانات من ملف ويتم استخراج الورقة وحدها من الملف وإعادة تسميتها بإسم جديد وهنا فغن هذه الورقة تصبح في ملف جديد وهي تحتفظ فقط بالكود الموجود على نفس الورقة ويصبح لها ThisWorkbook جديد