بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم الاوفيس
درس جديد وكود جديد من مكتبة اكواد الاكسيل VBA
كيفية عمل شاشة الدخول فى الاكسل
فى كثير من الاحيان يتطلب عملنا على ملف الاكسل نوع من الخصوصية او السرية والتى من شانها هى ايضا نوع من الحماية لملف الاكسل فيلزم لنا ان نقوم بعمل شاشة دخول بباسورد لمنع دخول المستخدمين او المتطفلين من الاطلاع على البيانات الموجود فى ملف الاكسل .
فى درس اليوم سوف نتعلم كيفية عمل فورم دخول بباسورد من خلال كود سهل جدا وبسيط من خلال الخطوات الاتية
- نقوم بفتح تبويب المطور Devloper
- نفتح قائمة محرر الاكواد Visual basic
- نقوم بانشاء يورزفورم من خلال ادراج FORM
- نقوم بعمل Textbox1 على الفورم
- نقوم بادراج زر Commandbuttonn1
- ثم نضغط دبل كليك على Commandbuttonn1 ليفتح لنا نافذة الكود فى حدث Click ونكتب الكود التالى
الكود
Private Sub
CommandButton1_Click()
If TextBox1.Value =
"admin" Then
Unload Me
UserForm2.Show
Else
MsgBox "كلمة السر خاطئة", vbOKOnly, "تنبية هام"
TextBox1.Value =
""
TextBox1.SetFocus
End If
End Sub
نضع شرط لتنفيذ الكود من خلال IF لو ان قيمة التكست بوكس تساوى كلمة admin يلغى تحميل الفورم ويظهر فورم 2 وفى حالة ان المستخدم ادخل كلمة سر غير صحيحة يعطية رسالة خطا ان كلمة السر غير صحيحة ويفرغ التكست بوكس من القيم الموجود فية ويضع المؤشر داخل التكست بوكس من جديد
كود سهل جدا وبسيط
عزيزى الزائر
لاتقرأ ...... وترحل
ضع بصمتك.... اترك لنا تعليقا ....وضح لنا رائيك