ياسر العربى

مشكور استاذي لمروركم العطر هذا

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

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

بسم الله الرحمن الرحيم وجدت كثيرا من الاعضاء تطلب هذا الموضوع كثيرا وعندما وضعت مثال لشاشة دخول بكلمة مرورظهر ليا مشرف كدا كالعادة وقالي البوقين دول كنت أفضل يكون في موضوع مستقل لأن المشاركات الفرعية تندثر مع الوقت لما تلاقي نفسك عملت ملف مميز زي كدا .. افتح موضوع جديد واشرح بالتفصيل (مش ترمي الملف وتجري ..) وبعد كدا في المشاركة الفرعية تضع رابط للموضوع ليستفيد أكبر عدد من الأعضاء إذ أن المتابعين للمشاركات قلة .. ولكن هناك كثر في انتظار الموضوعات الجديدة للتعلم والاستفادة .. متنساش كلامي يا سكر زيادة وانا حبيت اوجه له رسالة من هنا واقول له انا بحب الشاي سكر خفيف المهم حبيبي الغالي فعلا صدق في كلامه فا نخش في الموضوع وبلاش رغي بقي اولا نفتح بقي ملف اكسيل جديد ونخش محرر الاكواد ونعمل يوزر فورم جديد ونقوم بوضع عدد واحد ليبل عشان نتكب فيها كلمة المرور او رمز الحماية او أي حاجه في أي حاجه اثنين تكست بوكس الاول لكتابة المستخدم داخلها كلمة المرور اللي هيكتبها عند الدخول الثاني مش مهم لينا كل لزمته انه كل ما المستخدم يحط رقم غلط يزود فيه رقم لحد لما يوصل للرقم المحدد لاغلاق البرنامج وتظهر رسالة تقوله GAME OVER بمعني انه استنفذ كل المحاولات وجاري اغلاق البرنامج وواحد كومند زرار يعني عشان ندوس عليه للدخول ز ما احنا شايفين وطبعا متنسوش تحطه خلفيه حلوة كدا للفورم دا اهم حاجه عندي اه كله الا الجماليات وموضوع الجماليات دا نعمله موضوع قريب ان شاء الله بس تكون عندكو لسعه فوتوشوب بس وطبعا نخلي الخلفية علي وضع الاسترتش اه يعني الصورة تبقي لازقه في الفورم كيبر تكبر معاه يصغر تصغر معاه تمام كلنا عارفين الاسترتش كويس زي ما احنا شايفين نيجي بقي للاكواد اول كود نحطه في الجينرال بقي اول حاجه Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar Lib "User32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 والكود التاني في حدث تهيئة اليوزر فورم Private Sub UserForm_Initialize() Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub toolwindowودول لزوم الفشخرة والمنظره وعشان نقصقص البتاعه دي ويضفي جمالا للفورمة هي الخيارات بتاعتها متاحه في الفيجوال بيسك عادي زي كدا ننفض للحته دي نخش علي الكود اثالث ودا هيبقي في تنشيط اليوزر فورم Private Sub UserForm_Activate() Application.WindowState = xlMaximized With Me .Height = Application.Height .Width = Application.Width .Left = Application.Left .Top = Application.Top End With End Sub ايه الكلام دا دا ياسيدي بنقوله كبر لنا البرنامج ملئ الشاشة Maximized لما تفتح اليوزر فورم زي الشاطر خلي مقاسات اليوزر فورم زي مقاسات البرنامج واحنا مكبرين شاشة البرنامج يبقي كدا اليوزر فورم هيبقى كبير زي البرنامج تمام كدا الكود الرابع Private Sub CommandButton1_Click() If TextBox1.Text = "123" Then Me.Hide Else am = am + 1 MsgBox " لقد استخدمت " & am & " محاولة من اصل 5 محاولات, vbCritical, "elmalak_elhazen_yasser@yahoo.com" If am = 5 Then MsgBox "لقد استنفذت جميع المحاولات" ActiveWorkbook.Save ActiveWorkbook.Close End If End If End Sub اكيد دماغكو لفت معايا معلش انا شرحي علي قده استحملوني دا كود بيقول اذا كانت التكست بوكس واحد بتساوي 123 اذن ياعم اخفيني من وشك ويظهر معاك ملف الاكسيل عادي طيب اذا ما حصلشي بقي نعمل ايه تعالا بقي am دي اسم التكست بوكس اتنين بس انا غيرته الى am ندوس علي التكست بوكس اتنين ونغيره من هنا ومننساش نخفى التكست بوكس دا من هنا واحد فكيك بقي يقول ليه am اقوله ياناصح دول اول حرف من اسيل واول حرف من محمد ولادي تمام يامعلم محدش يشتم ولا يضرب المهم بقي ان am بتساوي نفسها + 1 تمام اه قبل ما انسى نخلي قيمة am دي بصفر نكتب جواها صفر عشان لما يعد يعد من بعد الصفر يعني كل ما المعلم يدوس غلط يزود رقم واحد وتطلع رسالة تقوله وصلت لكام محاولة ولما يوصل للمحاولة الخامسة يقوله بالسلامة ياحبي انا هقفل وانام وتمام كدا زي الفل والكلام خدنا والدرس خلص شفتوا انتو مش مصحصحين ازاي نسينا نحط كود فتح الفورم في حدث فتح الملف Private Sub Workbook_Open() UserForm1.Show End Sub وبعدين انا مش هحط امثلة زي واحد صاحبي وحبيبي بيقول انكم لازم تتعبوا شوية وتعملوها بنفسكوا بدل ما تخدو كوبي وبست وخلاص للحديث بقية باذن الله لاستكمال اضافات تانيه اتمنى من الله ان ينفعكم هذا الشرح تقبلو تحياتي ياسر العربي قلت اضيف صورة الكود لكمعشان ميبقاش ليكو حجه

كما قال اخي الغالي ابو البراء هناك ملفات مختلفة بعدد صفوف مختلف xlsm ملف بامتداد Xlsx 1048576 صف ملف امتداده xls 65536 صف وشوف رقمك كام وقارن بالملف لو صغير يعني 65536 يبقي مينفعشي حول الملف لصيغة تانية لو رقم الترحيل اقل من رقم اخر صف وبه غلط يبقي كدا تحط لنا الكود نشوفه اه نسيت لو قصدك اتنين مليون مينفعشي حط الرقم دا 1048576 وشكرا

ديوان المحافظة.rar

تمام يامعلم كله تمام بس فيه بردو خطأ في كود التايمر ياريت تشوفه بتاع الساعة

ارجو عدم تكرار المواضيع انت مكرر الموضوع فوق ال6 مرات

معذرة لتأخري اخي تفضل مساجد.rar

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

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

اخي الغالي انظر داخل الشيت اذهب الى اخر صف في الشيت وشوفه كام وانت تعرف الغلط فين

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

تفضل اخي الغالي ولكن اتيت لك متأخر واظن احدهم سبقني مشكور اخي عمرو رحيل مساجد.rar

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

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

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

جرب حبيبي وبلغني تفضل اخي عشان متقولشي سيبتك تعوم لوحدك بس مش عارف فيه اخطاء بتظهر من كود الساعة دي حاول تحلها المشكلة في الحدث تايمر وضع صورة للموظف في الفورمة بدلالة رقم الكود.rar

انت كدا جيت في ملعبي تفضل الموضوع دا لو عرفت تطبقه كان بها معرفتش هحاول اظبطه ليك وارفقه http://www.officena.net/ib/topic/64269-لمسة-جمالية-لبرنامجك-ايا-كان-هو-عرض-صور-بطريقة-جميلة/

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

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

تم تنفيذ هذا البرنامج بلغة الفيجوال بيسك 6 فمن يتعامل مع الVBA داخل محرر الاكواد في الاكسيل او معظم برامج الاوفيس يعرف يشتغل عليه ولك كل الشكر والتقدير لمرورك الكريم اخي الغالي

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