omar elhosseini

الاخ مشتاق اشوفك شاهد المرفق ارجو عدم ارسال اى مشاركات الى البريد الخاص Omar_1.rar

وانتم بخير اخى gadelrab لك ماشئت من الاسئلة اخى ولا تخجل حتى تستفيد وانال دعائك فى هذه الايام المباركة اللهم تقبل صيامكم وقيامكم اخى بالنسبة الى السؤال الاول :: نعم اخى يمكنك عمل ذلك مثل جميع دوال الاكسيل الاخرى المبنية فيه ولكن يجب ان تكون عناوين مطلقة وليس نسبية ( $B$5:$B$15 ) بالنسبة الى السؤال الثانى :: عند اختيارك الدالة بالطريقة الاعتيادية التالية :: 1 - من قائمة ( ادراج / دالة ) 2 - او بالضغط على الايقونة الرمز ( fx ) فى شريط الصيغ سيظهر لك المربع الحوارى ( إدراج دالة ) من بند ( أو تحديد فئة ) اختار ( معرفة بواسطة المستخدم ) فتظهر الدوال المعرفة من قبل المستخدم اذا كان هناك اكثر من دالة اختار من بينها دالتنا المشار اليها ( VLOOK2ALL ) فيظهر لك الصندوق الحوارى ( وسائط الدالة ) لإدخال بارميترات الدالة المدخل الاول وهو مدى جدول البيانات يمكنك ادخاله كأسم مدى ( MyRng ) تم تسميتة سابقا او دخال العناوين الخاصة بالمدى كما اشرتم سابقا ( $B$5:$B$15 ) اما اذا كان المدى فى ورقة اخرى فمن الافضل ان يقوم الاكسيل بذلك بدلا منك بدلا من الخطأ كالاتى :: عند ظهور الصندوق الحوارى ( وسائط الدالة ) اضغط على المربع المقابل لكلمة ( جدول_البيانات ) فى الجهة الاخرى من البارميتر الاول او المدخل الاول سيتقلص الصندوق الحوارى ( وسائط الدالة ) لتقوم بإختيار الورقة الاخرى ثم المدى المقصود ويدرج المراجع الخاصة بهم بدلا منك اتوماتيكيا ) وهذا افضل من محاولة كتابتهم بنفشك فسوف تخطئ ) وهنا يجب الضغط على مفتاح F4 لتحويل النطاق الى مدى مطلق حتى يكون مدى جدول البيانات ثابت عند نسخ صيغة المعادلة ثم اكمل ادخال المعطيات الاخرى واذا لم يكن الشرح وافيا انظر الملف المرفق VLOOK2ALL.rar

بأذن الله اخى cat101 سيكون هناك موضوع لطرق تأمين بيانات الملف ( من الضياع او من حفظ الملف بعد تسجيل بيانات خاطئة به وحفظها فتقد البيانات الاصلية الصحيحة )

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

الاخوة الاخ مصطفى كمال الاخ justice الاخ ابو احمد 3 شكرا لكم تقبل الله صيامكم وقيامكم و لجميع الاخوة الاخ ابو احمد 3 فعلا اخى العزيز بعض البيانات من سطر 60 وليس سطر 65 مشفرة ولكنها ليست نتيجة تشفيرك او فك تشفيرك للملف حاليا لقد فقدت هذه البيانات اثناء تجاربى ولم انتبه لذلك وتم رفع الملف وبه هذه البيانات الخاطئة اعد نسخ بيانات سليمة من اعلى الورقة بدلا من البيانات الخاطئة وجرب العمل على الملف ثم طمنى اخى شكرا لك على ملاحظتك

الاخوة الاخ ahmed00 الاخ aah_aah2008 الاخ خبور خير شكرا لكم وجزاكم الله كل خير وكل عام وانم طيبون

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

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

عليكم السلام ورحمة الله وبركاتة كل سنة وانتم طيبون الاخ الوافي ما رأيك بفكرة جديدة بعيدا عن طرق الحماية ( سواء حماية الملف او حماية الاكواد ) ولنبعد عن الطرق التى يتبعها الكثير من ازلة اشرطة الادوات واشرطة القوائم وعمل باسوورد للأوراق وتجميد الصفحات ويصبح الملف معقدا :: لننظر الى فكرة الحماية مجردة بدون كل التعقيدات السابقة لانها من وجهة نظرى طرق فاشلة على صعيد الاكسيل ففكرة الحماية مجردة هى فى الاساس :: عدم الاطلاع على البيانات ومعرفة محتويتاها فلماذا نقوم يتعقيد الملف بالطرق المعهودة اليك الطريقه اخى :: سيكون الملف مفتوح للجميع بدون اى حماية ولكن لن يستطيع احد غيرك فهم او قراءة محتويات الملف بمعنى ان الملف لن تكون معلوماتة مفهومة الا لك وحدك والطريقة هى تشفير محتويات الملف اى انها ستظهر للجميع بالشكل التالى :: 00C800C8 00CC00CC 015D016A0167017300B600CC00CC00C500C800CD 015D016A01670173 0167015D015E016E015F 017A0183015D015E015F 00C700CC 00C800C9 00CC00CC 015D016A0167017300B600CC00CC00C500C800CE 015D016A01670173 0167015D015E016E015F 017A0183015D015E015F 00CB00CB 00C800CA 00CC00CC 015D016A0167017300B600CC00CC00C500C800CF 015D016A01670173 0167015D015E016E015F 017A0183015D015E015F 00CC00C9 00C800CB 00CD00C6 015D016A0167017300B600CD00C600C500C900C9 015D016A01670173 01790160017A017C017000B600CA 01600175015D01770183017300B601700177015D0162 00CA00CB00C600C400CC00CB 00C800CC 00CD00C7 015D016A0167017300B600CD00C700C500C800CD 015D016A01670173 01790160017A017C017000B600C8 017C0168015D0167015F00B6015D017701700165017700B6015D017701770162017A015F00 B6015D0177017A0174015D015E0183015F 00CA وعلى هذا تكون بياناتك على درجة جيدة من الحماية ولن يستطيع فك الشفرة الا انت او بعض المحترفين فأذا كان يناسبك هذا ارفق ملف به البيانات لعمل مثال لك ويجب ان يكون ملف حقيقى وليس مثال حتى يكون مواكبا للحجم الحقيقى للبيانات

الاخ سفين شاهد المرفق IfMax.rar

مشكور اخى يحيى لن تكون مشكلة الاخ الباحث عن كل جدي اسم الورقة والا اعطى الكود خطأ ( Error 9 ) واخبرنا به الاخ الباحث عن كل جدي وعلى ذلك ستكون المشكلة كالعادة هى مكان الكود من المعتاد ان يتوقع الاخوة ان الكود يكون فى اى موديول ولذلك اخى يحيي انصح فى هذه الحالات التى يمكن الاستغناء عن استخدام الاحداث بأستخدام الماكرو ( Auto_Open ) ليتم وضعة فى الموديل فهو افضل فى الحلول بالنسبة لغير المتمرسين بالاكواد ويكون بذلك الكود كالتالى Sub Auto_Open() Sheets("Omar_1").Select End Sub مؤفق مثال omar_1.rar

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

الاخ sft مرحبا بك عضوا جديد بالمنتدى بين اخوانك اخى انت تريد تنفيذ طلبك عن طريق الصيغ وفى حالتك هذه لايمكن تنفيذ ذلك لوجود قاعدة مهمة فى الاكسيل تسمى ( المرجع المعاد ) وهى لا تسمح للصيغة ان تشمل عنوان الخلية المتضمنة بالصيغة بمعنى لا يمكن جمع محتويات خلية فى نفس الخلية حتى لو اضيف اليها قيمة خليه اخرى كما فى حالتك وهنا يكون الحل بما يسمى بالاكواد وهى مثل صيغ المعادلات ولكنها لا تظهر لك فى جداول اكسيل ولكنها تمدنا بما تعجز عنه الصيغ فقدم لك الاخ NooN2 الحل يإ ستخدام الاكود احسنت اخى NooN2 ولذلك ظننت انه فارغ لعدم وجود صيغ ظاهرة لك ولكن اخى sft ادخل اى رقم فى الخلية A1 ستجد انه يتم جمعه على ما هو موجود فى الخلية B1 اعد التجربة ثم قدم الاخ نزار سليمان عيد نفس الفكرة فى ملف ولم تلحظ ذلك ايضا ارجو التجربة ملحوظة الى الاخ aysam :: نرجو الحياد اخى فنحن نشجع الاعضاء الجدد انظر ملف الاخ NooN2 الذى ادرج فبل ملف الاخ نزار سليمان عيد مع تحياتى

لا حول و لا قوة الا بالله اللهم انصر الاسلام و المسلمين اللهم زلزل كراسى الخونة والمرتشين

عليكم السلام ورحمة الله وبركاتة شاهد المرفق اخى _________.rar

اهلا ومرحبا اطلاله جميلة من مؤسس ومعلم فاضل انارت منتدنا ونتمنى تكرارها بصماتكم مازلت تعمل فى قلوبنا بما قدمتم من جهد رائع بالمنتدى لكم منا كل تحية واجلال

الاخ hat السعد والهنا لى اخى بتشريفك واخى ابو اسامة العينبوسي جزاكم الله كل خير واعزكم ونحن على ابوب ايام مباركة الاخ stoic_bird مشكلتك فى التطبيق اخى فلا مشكلة فى ملف الاخ اكسلجى وملفى فعند ادخال 2244 تكون النتيجة 22:44 فى كلا الملفين ولكن عند ادخالك 2244 فى ملفك تكون النتيجة 12:00:00 AM وهذا شئ طبيعى اخى فأنت نسيت نسخ الاكود من ملفات الامثلة وبذلك تكون النتيجة خاطئة ( 12:00:00 AM ) فى اى ملف يتم ادخال 2244 طالما لا يحتوى على الاكواد التى تؤدى مهمة التحويل الى 22:44 توجد موضوعات بالمنتدى تشرح كيفيفة نسخ الاكواد من ملف الى ملف او ارفق ملفك لعمل اللازم عليه

الاخ stoic_bird يمكنك استخدام الكود التالى :: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Target.Column = 6 Then If Target > 1 Then Application.EnableEvents = False Target = Left(Target, Len(Target) - 2) & ":" & Right(Target, 2) Application.EnableEvents = True End If End If End Sub وطبعا يمكنك استخدام تنسيق الخلايا للتبديل بين نظامى 12 و 24 ساعة كما فى المرفق ______________________1.rar

احسنت اخ احمد

الاخ cat101 شاهد المرفق Test.rar

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

الاخ ashraff101 شاهد الرابط التالى :: عدد ايام العمل بدون يوم اجازة محدد

الاخ ismailshvar سريعا اليك هذه الدالة حساب عدد ايام العمل بدون يوم اجازة واحد محدد شاهد المرفق معطيات الدالة ثلاثة معطيات ليتم حساب عدد ايام العمل بدون يوم الاجازة الذى تحدده لها الاول :: تاريخ البداية الثانى :: تاريخ النهاية الثالث :: رقم يوم الاجازة حسب الجدول التالى 1 الاحد 2 الاثنين 3 الثلاثاء 4 الاربعاء 5 الخميس 6 الجمعة 7 السبت فتحسب لك عدد ايام العمل بدون يوم الاجازة الذى تحدده لها __________________________________.rar

الاخ angham مرحبا بك اولا الامر سهل اخى بدلا من اختيارك :: context اختار :: National و طمنا

الاخ justice اخى يحيي نهنئ انفسنا فأنت تستحقها عن جدارة الى الامام دائما موفق بإذن الله