اكسل | كيفية عمل شاشة الدخول فى الاكسل Login user form Password

بسم الله الرحمن الرحيم 
اهلا بكم متابعى موقع عالم الاوفيس

درس جديد وكود جديد من مكتبة اكواد الاكسيل 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 وفى حالة ان المستخدم ادخل كلمة سر غير صحيحة يعطية رسالة خطا ان كلمة السر غير صحيحة ويفرغ التكست بوكس من القيم الموجود فية  ويضع المؤشر داخل التكست بوكس من جديد

كود سهل جدا وبسيط 

عزيزى الزائر 
لاتقرأ ...... وترحل
ضع بصمتك.... اترك لنا تعليقا ....وضح لنا رائيك 

Emad ghazi
كاتب المقالة
كاتب ومحرر اخبار اعمل في موقع عالم الاوفيس .

جديد قسم : اكسل متقدم