الصـقر

بعد أذن استاذى الحبيب ياسر خليل من باب اثراء الموضوع والتنوع جرب المرفق ربما يلبى طلبك تم التطبيق فقط على Customer Name كما طلبت فى المشاركة 4 تقبل تحياتى Customers_Form.zip

استاذى الحبيب ياسر خليل جزاكم الله خيرا وسدد خطاكم ترقيه مستحقه كما قال استاذى الحبيب سليم حاصبيا تقبل تحياتى

استاذى الحبيب هانى جزاكم الله خيرا تقبل تحياتى

بصراحه ماكنت ناوى اعلق !!!! ولكن ممكن يا عم المبدع تبدع لنا ش يمنع كسر الحمايه لان بصراحه انا من النوعيه الانانيه اللى محبش حد يطلع على حاجتى فبعد اذنك يا عم المبدع تبدع شئ لى انا وبس ممكن لو مش قادر تبدع فى هذا الموضوع وهو منع كسر الحمايه ترفع الرايه البيضه وتقول فشلت فى الوصول الى ابداع من نوع منع كسر الحمايه أحيانا الانسان لم يتظلم على سبيل المثال يضربه احد وهو عاجز ان ياخد حقه من اللى ضربه لانه ضعيف / يقول انا مسامح اللى ضربنى فى راى هذه ليس تسامح هذا ضعف التسامح وانت قوى وتقدر تاخد حقك وبعدها تقول انا مسامح لكن وانت ضعيف لا تذكر التسامح على لسانك أقرأ فى سورة الشورى من الايه 38 الى 43 الخلاصه خلينا نوصل لحل لموضوع منع كسر الحمايه وبعدها نقول يا جماعه محدش يحمى ملفه لان اللى بيحمى بيكون انانى ويكون محتقر للعلم ووقتها يستجيب من يستجيب

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

استاذى الحبيب هانى لو عايز تفتح vba بدون ما يغلق الملف انا عامل خيار بالكود لو الخليه A1 بشيت 3= 1 لا يتم اغلاق الملف يعنى ادخل على شيت 3 واكتب رقم 1 فى الخليه A1 ودا طبعا بمثابه باسورد تاكيد انك صاحب الملف لو انك مش صاحب الملف مش هتعرف ايه الخلية اللى هيتكتب بها ولا هتكتب ايه فيها قبل الذهاب الى فتح vba وبعدها افتح vba وخد راحتك فى الاضافه او الحذف مش هيغلق الملف تقبل تحياتى

استاذى الحبيب هانى اسف لحضرتك والله ما شفت الرابط ده الا دلوقتى http://www.officena.net/ib/index.php?showtopic=60632 فى الوقت الى كنت شغال على الملف وبعدها رفعته بموضوع جديد لم نتبه الى الموضوع بتاع حضرتك اتمنى من الادارة ضم الاتنين بموضوع واحد

اساتذتى الافاضل فى المنتدى فى البدايه احب اشكر الاستاذ/هانى بدر على اثارة هذا الموضوع ومواجهه المشكله للعمل على حلها ولا ندفن رؤسنا بالرمال ويكون ابداع جديد فى جامعه اوفيسنا هذه محاوله بسيطه منى فى محاوله منع كسر حمايه VBA (يعنى محاولة تلميذ) اتمنى ان تكون نقطه انطلاقه للابداع منكم فى هذا الموضوع مرفق ملف باسورد vba هو 111 بعد فتح vba يقوم الاكسيل بغلق البرنامج اتمنى التجربه منكم المشكله هى فى حاله تعطيل الماكرو سوف يكون بالامكان الوصول الى فتح vba سوء بالباسورد 111 او ببرنامج كسر حمايه (انا حاليا بعمل على فى حال تعطيل الماكرو أيضا يقوم الاكسيل بغلق البرنامج ) اتمنى ان تكون هذه التجربه نقطه فى بحر علمكم فى هذا الموضوع وبدايه للانطلاق منتظر ابداعاتكم تقبل تحياتى PROTECTT VBA.zip

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

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

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

اخى الحبيب هذا السطر موجود فى حدث قبل اغلاق الملف ActiveWorkbook.Unprotect (1234) قم بتغيير الرقم الى ActiveWorkbook.Unprotect (1) وايضا فى اليوزفورم 1 قم بالضغط على زر دخول ستجد هذا السطر ActiveWorkbook.Protect (1234) قم باستبداله ب ActiveWorkbook.Protect (1) جرب وعلمنى بالنتيجة تقبل تحياتى

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

اخى الكريم بخصوص طلبك على ما فهمت قم بأدراج كمبوبوكس جديد فى الفورم ثم قم بتحديد الكمبوبوكس بالوقوف عليه ومن خصائص الكمبوبوكس ( Row source ) قم بكتابة التالى المخزن!B6:B1000 يعنى اكتب اسم الشيت المراد جلب البانات منه وهو كما تفضلت شيت اسمه المخزن ثم علامة التعجب ! ثم كتابة النطاق المراد عرضه بالكمبوبوكس طبعا هذه اسهل الطرق لتغذية الكمبوبوكس بالبيانات وهناك طرق اخرى كتيره جدا انظر المرفق وتقبل تحياتى إدراة المحل جديد 1.zip

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

استاذى الفاضل وجود شئ غلط فى المنتدى لا يعطينا الحق فى المزيد فى الاستمرار بالخطأ والاصرار على مثل ذالك الاعمال التى تعتدى على حقوق الغير فهذه من الاعمال المنافيه لحقوق الملكيه الفكريه وانا ضدها واناشد الادارة بالبت فى هذه الامور التى زادت بكثرة فى الاونه الاخيرة ارجوا الرد فى اسرع وقت ممكن اخى الفاضل اليك هذه الروابط التى تدل على اخلاق الفرسان والتى ترفض مثل ذالك الاعمال وهى على سبيل المثال لا للحصر http://www.officena.net/ib/index.php?showtopic=11469&hl=%D8%A7%D9%84%D8%AD%D9%85%D8%A7%D9%8A%D9%87 http://www.officena.net/ib/index.php?showtopic=10484&hl=%D8%A7%D9%84%D8%AD%D9%85%D8%A7%D9%8A%D9%87 نرجوا وقفه صارمه من الادارة فى اسرع وقت ممكن

استاذى الفاضل / رؤوف ( ابا الاكسيل) بعد كلمات اساتذتى التى سبقت مشاركتى يعجز اللسان عن الزياده بما قالو وكل ما اود قوله هو اننا مشتااااااااااااااااااااااااااقون لنرتوى من بحر علمكم الفياض فتقبلنى من تلاميذك مرحبا بك فى جامعه اوفيسنا وتقبل تحياتى

استاذى الحبيب محمد الريفى جزاكم الله خيرا كل كلمات الاعجاب لا توفى قدرك حته خارج السياق ( بصراحه انا عايز 3 الهدايا اللى بالمشاركة اللى فوق رقم 5 وحلال يا عم على الاستاذ ياسر الورد ) وحقى مش بتنازل عنه تقبلوا تحياتى

استاذى الحبيب طلعت محمد حسن الف مليون مبروك وترقيه مستحقه واتمنى لك مزيد من التقدم والنجاح تقبل تحياتى

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

استاذى الحبيب جزاكم الله خيرا وجعل اعمالكم فى ميزان حسناتكم تقبل مرورى وتحياتى

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

استاذى الحبيب محمد الريفى كم انت مبدع زادك الله علما ونفع بك حته خارج السياق ( رجاء فتح استقبال الرسائل ) تقبل تحياتى

اخى الكريم على حسب فهمى لطلبك فقط ضع هذه المعادله فى الخلية L7 =IFERROR(IF(AND(G7="غ";K7="غ");"غ";SUM(G7;K7))/5;"") ما تم اضافته هو داله IFERROR تقبل تحياتى

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