تصميم شاشة تسجيل الدخول في Login Form in Excel VBA

 طريقة تصميم شاشة تسجيل الدخول في Login Form in Excel VBA

نموذج تسجيل الدخول هو أحد الطرق الآمنة للوصول إلى الصفحات المعتمدة والتطبيق والمحتويات في أي نظام أساسي.

لنفترض أنك قمت بتطوير أي تطبيق أو جدول بيانات Excel معقد وتريد تطبيق قيود بحيث يمكن للمستخدمين المصرح لهم فقط الوصول إلى التطبيق الخاص بك ، فستكون هذه الميزة مفيدة للغاية.

في هذا المنشور ، سنتعلم كيفية إنشاء صفحة تسجيل دخول لجدول بيانات أو تطبيق آلي يعتمد على Excel.

هنا ، سأستخدم نموذج إدخال البيانات الحالي . في نموذج إدخال البيانات هذا ، سنضيف ميزة نموذج تسجيل الدخول بحيث عندما يفتح المستخدم هذا التطبيق ، سيطلب من بيانات اعتماد المستخدم متابعة مهمة إدخال البيانات. إذا قدم المستخدم معلومات تسجيل الدخول وكلمة المرور الصحيحة ، فسيفتح التطبيق لمزيد من الاستخدام وإلا فسيتم إنهاؤه.

فيديو شرح:

تحميل الملف:

من قناة تلغرام

من ميديا فير

الكود:

Private Sub cmdLogin_Click()

Dim user As String

Dim password As String

user = Me.txtUserID.Value

password = Me.txtPassword.Value

If (user = "admin" And password = "admin") Or (user = "user" And password = "user") Then

Unload Me

Application.Visible = True

Else

If LoginInstance < 3 Then

MsgBox "Invalid login credentials. Please try again.", vbOKOnly + vbCritical, "Invalid

Login Details"

LoginInstance = LoginInstance + 1

Else

MsgBox "You have exceeded the maximum number of login attempts.", vbOKOnly + vbCritical, "Invalid Credentials"

Unload Me

ThisWorkbook.Close Savechanges:=False

Application.Visible = True

LoginInstance = 0

End If

End If

End Sub