مايكروسوفت اوفيس ايكسل | تصميم شاشة دخول اسم المستخدم وكلمة المرور لملف الاكسل Login Userform

[@Emad_ghazi]

ممكن اثناء تنفيذ الكود يظهر معاك خطأ ان لو اسم المستخدم غير موجود فى جدول المستخدميين يظهر خطا عدم التمكن من البحث عن اسم المستخدم ولذلك تم عمل اضافة الكود لمنع ظهور هذا الخطا الكود كامل www.officeforworld.com/2023/05/excel-vba-userlogin.html

[@1comicon]

أفضل مهندس المهندس الوحيد الذي لا يبخل عليك بشيء شكرا لك من الجزائر

[@Emad_ghazi]

جزاك الله خير وبارك الله فيك

[@saidgad6585]

جزاكم الله خيرا

[@Emad_ghazi]

جزاك الله خيراً وبارك الله فيك اخي الكريم

[@АхмедЭлкади]

إيه الجمال دة ياباشمهندس 🤙🌹

[@Emad_ghazi]

جزاك الله خيراً وبارك فيك اخي الكريم ❤❤❤❤❤❤

[@mohamedosman5457]

جزاكم الله خيرا لكن عندي سؤال عملت برنامج بعد مشاهدة فيديوهات كتير لحضرتك ولكن عندي مشكلة وهي علي الرغم من اخفاء صفحة الاكسل وجعل userform يظهر مباشرة عند فتح البرنامج لكن عند فتح ملف أكسل آخر بيفتحي معاها صفحة الاكسل اللي عليها البرنامج علي الرغم من اخفاؤها سابقا هل في حل؟

[@nadhirnadhir7684]

سلام عليكم استاذ ممكن كود حساب عدد تكرارات كل بند من بنود في عمود ليستبوكس مشكور استاي الكريم اخوك نذير من الجزائر 🇩🇿

[@mahmoodjasem5227]

استاذ عماد من ابحث عن اسم غير موجود في جدول users يظهر خطا. يجب تعديل الكود في حالة عدم وجود الاسم المطلوب يستمر الكود بالبحث ولا يظهر رسالة خطاء

[@Emad_ghazi]

وعليكم السلام ورحمة الله وبركاتة اشكرك على الملاحظة الجيدة وهذا يدل على متابعة حضرتك وتنفيذ الكود عندك الكود فى حالة عدم وجود اسم المستخدم فى قائمة المستخدميين Dim strUsername As String Dim strPassword As String Dim iRow As Integer strUsername = Me.TextBox1.Value strPassword = Me.TextBox2.Value On Error GoTo 1 iRow = Application.WorksheetFunction.Match(strUsername, Worksheets("Users").Range("A:A"), 0) 1 If Err.Number 0 Then MsgBox "عفوا اسم المستخدم غير موجود": Exit Sub If Worksheets("Users").Cells(iRow, 2).Value = strPassword Then MsgBox "تم تسجيل الدخول بنجاح!" 'إضافة البيانات اللازمة لعملية تسجيل الدخول هنا' Unload Me UserForm2.Show Else MsgBox "اسم المستخدم أو كلمة المرور غير صحيحة" Me.TextBox1.Value = "" Me.TextBox2.Value = "" Me.TextBox1.SetFocus End If

[@yemimmigrant445]

بارك الله فيك أستاذي ممكن لو سمحت تشوف اي ايه هي المشكلة ب ده الكود لتغيير لغة الكيبورد تظهر معي المشكلة في Call Keyboard Private Declare PtrSafe Function Keyboard Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal ss As String, ByVal sss As Long) As LongPtr Sub arabic() Call Keyboard("00000401,1") End Sub Sub english() Call Keyboard("00000409,1") End Sub