كيفية إنشاء شاشة دخول وتغيير كلمة السر وتحكم بالمستخدمين في Excel VBA UserLogin

يمكن إنشاء شاشة دخول وتغيير كلمة السر وتحكم بالمستخدمين في VBA باستخدام UserForms وتخزين المعلومات المتعلقة بالمستخدمين وكلمات المرور في ورقة عمل Excel.

إليك الخطوات الأساسية لإنشاء هذا النظام:

فى البداية :

1. نقوم بإنشاء UserForm للشاشة الرئيسية لتسجيل الدخول.

2. في UserForm ، يتم إنشاء 2 مربع نص Text Box لاسم المستخدم Usernameوكلمة المرور Password وزر لتسجيل الدخول Login_commandButton1.

3. عند النقر على زر تسجيل الدخول ، يجب التحقق من صحة اسم المستخدم وكلمة المرور المدخلة. يمكن استخدام التعليمات البرمجية التالية للقيام بذلك:



Private Sub UserLogin_Click()

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 "Sory User Name NOT Found": Exit Sub
If Worksheets("Users").Cells(iRow, 2).Value = strPassword Then
    MsgBox "Login Succefuly!"
    
    Unload Me
    UserForm2.Show
Else
    MsgBox "UserName OR Password Is Not Correct"
    Me.TextBox1.Value = ""
    Me.TextBox2.Value = ""
    Me.TextBox1.SetFocus
End If

End Sub

يتم استخدام ورقة العمل "UserList" هنا لتخزين معلومات المستخدمين (الأسماء وكلمات السر)، وتم التحقق من صحة هذه المعلومات ضد المدخلات الحالية.

4. بمجرد التحقق من صحة اسم المستخدم وكلمة المرور ، يمكن فتح UserForm الرئيسية (التي تتضمن قائمة بالمهام المسموح بها للمستخدم).

5. يجب إنشاء UserForm أخرى لتغيير كلمة المرور. يمكن القيام بذلك باستخدام مربعات النص لمعرفة كلمة السر الحالية والجديدة وزر لتأكيد التغيير. يجب التحقق من صحة كلمة السر الحالية وتحديث كلمة السر في ورقة العمل "UserList".

6. يمكن إضافة التحكم في المستخدمين عن طريق استخدام مستويات الصلاحية (على سبيل المثال ، يمكن منح المستخدمين مستويات "مشاهدة فقط" أو "إضافة / تعديل البيانات"). يجب أن يتم التحقق من صحة مستوى الصلاحية قبل تنفيذ عملية معينة. يمكن تخزين مستويات الصلاحية في ورقة العمل "UserList" أيضًا.

وهذه هي الخطوات الأساسية لإنشاء نظام تحكم المستخدم بإستخدام UserForms ولغة الفيجوال بيسك باستخدام Excel-VBA.

لتحميل ملف العمل