ممكن اثناء تنفيذ الكود يظهر معاك خطأ ان لو اسم المستخدم غير موجود فى جدول المستخدميين يظهر خطا عدم التمكن من البحث عن اسم المستخدم ولذلك تم عمل اضافة الكود لمنع ظهور هذا الخطا الكود كامل www.officeforworld.com/2023/05/excel-vba-userlogin.html
جزاكم الله خيرا لكن عندي سؤال عملت برنامج بعد مشاهدة فيديوهات كتير لحضرتك ولكن عندي مشكلة وهي علي الرغم من اخفاء صفحة الاكسل وجعل userform يظهر مباشرة عند فتح البرنامج لكن عند فتح ملف أكسل آخر بيفتحي معاها صفحة الاكسل اللي عليها البرنامج علي الرغم من اخفاؤها سابقا هل في حل؟
وعليكم السلام ورحمة الله وبركاتة اشكرك على الملاحظة الجيدة وهذا يدل على متابعة حضرتك وتنفيذ الكود عندك الكود فى حالة عدم وجود اسم المستخدم فى قائمة المستخدميين 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
بارك الله فيك أستاذي ممكن لو سمحت تشوف اي ايه هي المشكلة ب ده الكود لتغيير لغة الكيبورد تظهر معي المشكلة في 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
ممكن اثناء تنفيذ الكود يظهر معاك خطأ
ان لو اسم المستخدم غير موجود فى جدول المستخدميين يظهر خطا عدم التمكن من البحث عن اسم المستخدم ولذلك تم عمل اضافة الكود لمنع ظهور هذا الخطا
الكود كامل
www.officeforworld.com/2023/05/excel-vba-userlogin.html
أفضل مهندس المهندس الوحيد الذي لا يبخل عليك بشيء شكرا لك من الجزائر
جزاك الله خير وبارك الله فيك
جزاكم الله خيرا
جزاك الله خيراً وبارك الله فيك اخي الكريم
إيه الجمال دة ياباشمهندس 🤙🌹
جزاك الله خيراً وبارك فيك اخي الكريم ❤❤❤❤❤❤
سلام عليكم استاذ
ممكن كود حساب عدد تكرارات كل بند من بنود في عمود ليستبوكس
مشكور استاي الكريم
اخوك نذير من الجزائر 🇩🇿
جزاكم الله خيرا
لكن عندي سؤال
عملت برنامج بعد مشاهدة فيديوهات كتير لحضرتك ولكن عندي مشكلة وهي علي الرغم من اخفاء صفحة الاكسل وجعل userform يظهر مباشرة عند فتح البرنامج
لكن عند فتح ملف أكسل آخر بيفتحي معاها صفحة الاكسل اللي عليها البرنامج علي الرغم من اخفاؤها سابقا
هل في حل؟
استاذ عماد من ابحث عن اسم غير موجود في جدول users يظهر خطا. يجب تعديل الكود في حالة عدم وجود الاسم المطلوب يستمر الكود بالبحث ولا يظهر رسالة خطاء
وعليكم السلام ورحمة الله وبركاتة
اشكرك على الملاحظة الجيدة وهذا يدل على متابعة حضرتك وتنفيذ الكود عندك
الكود فى حالة عدم وجود اسم المستخدم فى قائمة المستخدميين
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
بارك الله فيك أستاذي
ممكن لو سمحت تشوف اي ايه هي المشكلة ب ده الكود لتغيير لغة الكيبورد تظهر معي المشكلة في 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