الصـقر

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

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

الاخت الكريمه كويس انك بديتى تسالى علشان تتعلمى وان شاء الله قريب اشوفك كدا زى الاخت الكريمة أم عبدالله أسال الله تعالى ان تكون بخير السطر التالى دا بيعمل على فك الحمايه للورقه ActiveSheet.Unprotect Password:="111" والسطر ده بيعمل على ارجاع الحمايه مره اخرى للورقه بعد الانتهاء من تنفيذ الكود ActiveSheet.Protect Password:="111", DrawingObjects:=True, Contents:=True, Scenarios:=True علشان تغيير لازم تغير كل الاسطر دى فى كل الاكواد ومتنسيش الكود اللى فى حدث فتح الورقه ايضا يتتغير تقبلى تحياتى

الاخت الكريمة الطبيعى طالما فى حمايه لابد من عدم اظهار القايمة طيب ايه الفايده من انك تفك الحماية ما الداعى ولو عايزة تفكى الحمايه الكود برضوا هيرجع يقفلها عند الضغط على اى زر لو عايزة تتعلمى وتشوفى الكود اضغطى ALt+F11 هيفتح معك محرر الاكواد هتلاقى جوه مغاره على بابا بس مش الاربعين حرامى هتلاقى اكواد حاولى اتعملى منها لكن وقوفك على الزر وكليك يمين مش هيظهر معك حاجه تفيدك غير الماكرو الذى تم تعيينه على الزر 2-الكود بيطلب منك ادخال بداية الارقام ازاى هيكون فى سهو ومش هينفذ الكود الا اذا كتبتى رقم (يعنى مفيش سهو ) عموما انظرى المرفق به طلبك اختارى البداية من القائمة المنسدله عايزه حمايه عند الرجوع برضوا موجود بالمرفق تقبلى تحياتى رقم الجلوس3.zip

أخى الاستاذ / محمد بيك حسن جزاك الله خيرا على دعائك ولك بمثل ما دعوة ان شاء الله فور الانتهاء من الجزء الثانى برفع البرنامج كامل هنا بالمنتدى هدية لكل الاخوة تقبل تحياتى

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

الاخت الكريمة انا مثلك طالب علم ومازلت بتعلم وكل الفكرة اننا هنا بالمنتدى بنساعد بعض وبنتعلم من بعض مفيش حد افضل من حد كلنا اخوة يجمعنا الحب فى الله والدعاء بظهر الغيب بس لى ملاحظة اسمحى لى بها هى مش لك لوحدك هى لكل الاعضاء حاول تعرف حل موضوعك ازاى تم بمعنى اتعلم ازاى تم الحل لوحدك مش انك تاخد الحل وخلاص ( لا تعطنى سمكة ولكن علمنى كيف اصطاد / دا اللى انا ماشى عليها بكل المنتديات ) بحول اعرف ازاى الشئ ده تم واستفيد منه على فكرة طلبك فوق انا اول مره اعمله يعنى مكنش عندى دراية بيه (طبعا هو عمل للعلامه عماد الحسامى الغائب عن اليوم الحاضر باعماله جعلها الله فى ميزان حسناته وان يكون بالف صحه وعافيه ) لكن بفضل ابحث وادور واتعلم وافكر ازاى نحل الموضوع ده ( على سبيل المثال مشكلة ALT+F4 دى كانت جديده بالنسبالى خلتنى ادور واتعلم واعرف ازاى نواجه المشكله ) اما بخصوص طلبك ههههه اقصد طلباتك 1- يعنى ايه تكون الازرار من النوع الذي تضغط عليه باليمين فتظهر فائمه ( مش فاهم قصدك ) 2- ان تكون بداية ارقام الجلوس في الخليه E1 ( طيب انا عامل لحضرتك خيار فى اول زر بداية الارقام بيظهر لك مربع بتكتبى الرقم والكود بيبدأ من عنده ) انا ارى انى هذا افضل 3-حمايه واخفاء المعادلات بعد فتحها لانريدها مفتوحة باستمرار نرجو عند انتقالنا الى صفحة اخرى والعودة مثلا تتم الحمايه المعادلات بالفعل مخفية طالما فيه حمايه معرفش اذا فى عندك فى اوفيس 2003 شئ اخر او لا ( بنصحك للمرة الالف اشتغلى على اوفيس 2007 ) 4-رجاء خاص ان تغير رقم عنوان الملف الذي ترفقه لنا حتى نعرف التسلسل فيه.... الحديث من القديم ( ان شاء الله هراعى ده بالمرات القادمه) تقبلى تحياتى

بعد أذن اخى الجموعى جربى المرفق اضغطى Alt+f4 هيقفل الملف ومش هيفتح تقبلى تحياتى واجهه كنترول للاستاذ الحسامي1.zip

ضع هذا الكود فى الفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = vbFormControlMenu Then Cancel = True Application.DisplayAlerts = False Application.Quit End Sub وايضا يطبق على الفورم الرئيسى للدخول تقبل تحياتى

اخى الجموعى جرب انك فى شاشة تعديل الباسورد متكتبش اى شئ واضغط من الكيبورد Alt+F4 ستجد البرنامج فتح عادى تقبل تحياتى

كانت المعادله الاول كدا زى ما حضرتك تفضل بها ولكن الاخت قالت انها بتعمل على 2003 ونسخة 2003 مفيهاش على ما اعتقد مش متاكد Iferror لذالك تم الاستعاضه ب IF تقبل تحياتى

الاخت الكريمة جربى المرفق تقبلى تحياتى رقم الجلوس2.zip

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

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

اخى الحبيب كلنا هنا تحت امرك اطلب ما تريد وان شاء الله ما نقصر معك جرب المرفق تقبل تحياتى Book1.zip

الاخت الكريمة جربى الملف المرفق هل كل المعادلات به سليمه عندك على 2003م رقم الجلوس2.zip

بعد أذن الاستاذ احمد اخى الحبيب انظر الملف المرفق هل هو ما تريد عند كتابة الوقت مثلا 7:30 اكتبها كدا 730 فقط هتلاقيها اتحولت الى الصيغه 7:30 تقبل تحياتى Book1.zip

اولا انصحك بالتغيير الى 2007 افضل ثاانيا جربى المرفق انا عدلت بالمعادله فى رقم الجلوس الاول فقط اللى باللون الاصفر لو عندك مظبوطه اطبقها على كل الارقام تقبل تحياتى رقم الجلوس2.zip

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

حبيبي حسام حاولت ابعتلك على الخاص لكنه مغلق، عودا حميدا يا غالى ولا بأس طهور ان شاء الله .. انا تخيلت انك مشغول بالجرد السنوي الأروع هي عودتك والأجمل هو مرورك الكريم خالص تحياتي اخى الحبيب الاستاذ احمد الخاص غير مغلق ولكن بعد رسالتك عرفت ان السبب حد تخزين الرسائل عندى 100% فقمت بمسح رسائل كتير / شكرا على اهتمام وجزاكم الله خير وتقبل تحياتى

الاخت الكريمة تفضلى المرفق هل هو المطلوب اسم المستخدم ايناس الباسورد111 ويمكنك التغير تقبل تحياتى واجهه كنترول للاستاذ الحسامي.zip

حضرتك بتعملى على اوفيس ايه 2003؟

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

الاخت الكريم شوفى الملف المرفق هل هو المطلوب تقبلى تحياتى رقم الجلوس2.zip

الاخت الكريمة بفرض ان اسم المستخدم فى الخلية E5 والباسورد بالخلية E6 اكتبى بالتكست بوكس 1 اسم المستخدم والتكست بوكس 2 الباسورد طبعا الكود المرفق يوضع فى حدث كموند بوطن 1 وان كنت افضل ارفاق ملف للعمل علية Private Sub CommandButton1_Click() If TextBox1.Value = Sheets("sheet1").Cells(5, 5) And TextBox2.Value = Sheets("sheet1").Cells(6, 5) Then Unload Me Application.Visible = True Exit Sub Else MsgBox "كلمة المرور غير صحيحه" End If TextBox1.Value = "" TextBox2.Value = "" TextBox1.SetFocus End Sub