ياسر العربى

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

حقك ياحبيبي يا ابو يوسف تسلم ياغالي ظبطت معاك بقيت محترف

اجعل الخلية نصية واكتب زي ما انت عايز ان كانت مرتبطة بمعادلات ياريت ترفق مثال بالخلايا المراد التعديل عليها aa.rar

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

اخي الغالي قمت بوضع تشغيل ماكرو التنسيق داخل عملية الترحيل شوف كدا وبلغني بالنتيجة استدعاء بيانات + 111.xlsb.rar

استاذ نضال الغالي مواضيعك ممتازة ومنسقة ومنظمة وشرح اكثر من انه يكون رائع تقبل مروري المتواضع

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

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

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

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

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

ههههههههه الف سلامة يابو براء متخفشي الشعب المصري كله بيعاني من المشكلة دي

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

عذرا الحل مثل نا قال الاخ خالد بارك الله فيه

لا اعرف اذا كان موجود مثل هذه التطبيقات ولكن الموجود هو تشغيل امتدادات swf فهل يمكن تحويل الفلاش exe الى swf كل البرامج الموجودة تحول العكس swf to exe علي حد علمي

نخش الاول هنا ناخد بدايات http://www.officena.net/ib/topic/64472-بداية-الطريق-لإنقاذ-الغريق/ وكمان ندخل هنا http://www.officena.net/ib/topic/64037-سلسلة-علمنى-كيف-اصطاد-الفورم-forms/ وبعدين نيجي هنا ونستفسر عن النقط اللي مش مفهومه ولو في اسئلة كتير نعمل موضوع مستقل ونمشي فيه خطوة خطوة تمام وشكرا

بسم الله الرحمن الرحيم اليوم سنشرح عمل شاشة دخول ولكن باسم مستخدم وكلمة مرور بسم الله نبدأ بالشكل الموضح يوجد المشار لهم بالسهم الأخضر 7 label السهم الأحمر 1 textbox السهم الأسود 1 combobox وزر دخول وزر خروج وطبعا اتنين image لشعار الشركة بعد تصميم نفس الشكل السابق نقوم بعمل شيت جديد اسمه users كما بالصورة بعد تسمية الشيت وخصوصا برمجيا مثل التحديد الأحمر نضيف البيانات كالأتي نيجي بقي للاكواد اولا كما تعلمنا في الدرس السابق نقوم بوضع هذه الاكواد في اليوزرفورم في general)) 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 في حدث الاغلا ق Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If unloadmode = vbFormControlMenu Then Cancel = True MsgBox "غير مسموح" End If End Sub اما في حدث تنشيط الفورم فنقوم باضافة اكواد ربط الليبل الخاصة ببيانات الشركة بالخلايا التي تحتوي علي البيانات Private Sub UserForm_Activate() Application.WindowState = xlMaximized Application.Visible = False Label1.Caption = users.[e1] Label2.Caption = users.[e2] Label3.Caption = users.[e3] With Me .Height = Application.Height .Width = Application.Width .Left = Application.Left .Top = Application.Top End With End Sub وفي زر الخروج Private Sub CommandButton2_Click() ActiveWorkbook.Save ActiveWorkbook.Close End Sub تبقي لنا الكود الاهم وهو زر الادخال Private Sub CommandButton1_Click() On Error GoTo 86 If Application.WorksheetFunction.VLookup(ComboBox1.Value, users.Range("a2:l0"), 2, 0) = TextBox1.Text Then Me.Hide Application.Visible = True MsgBox ComboBox1.Value & " مرحبا بك/ ", , "elmalak_elhazen_yasser@yahoo.com" Else 86 Label7= Label7+ 1 MsgBox " لقد استخدمت " & Label7 & " محاولة من اصل 5 محاولات" ,vbCritical, "elmalak_elhazen_yasser@yahoo.com" If Label7= 5 Then MsgBox "لقد استنفذت جميع المحاولات" ActiveWorkbook.Save ActiveWorkbook.Close End If End If End Sub استخدمنا هنا دالة vlookup للبحث والمقارنة عن المستخدم وكلمة المرور ان لم يحقق الشرط يتم التحويل الى عدد المحاولات ومنها الى اغلاق البرنامج وطبعا زي كل مره ننسى نحط كود في حدث فتح الملف Private Sub Workbook_Open() Userform1.Show End Sub وطبعا لسه مش ربطنا الكمبوكس اللي فيها اسم المستخدم عشان نسهل عليكم نعملها بالطريقة التقليدية وبعدين نبقي نعملها باحترافيه شوية نحدد الكمبوكس ونكتب اسم الشت والرينج اللي فيه اسم المستخدم كما موضح بالصورة المظلل بالاحمر الى شاشة دخول اخرى باذن الله مع تحياتي ياسر العربي اي مشاكل تواجهكم يرجى ابلاغنا لحلها

اخي الغالي احفظ هذا الموضوع اولا http://www.officena.net/ib/topic/64472-بداية-الطريق-لإنقاذ-الغريق/ وفي كتب كتيرررررررر وشروحات اكتر داخل هذا المنتدى العظيم بس انت حاول تبحث كويس ثم اطرح ما الذي تود ان تقوم بعمله ونحن نبدأ معاك خطوة خطوة

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

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

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