بسم الله الرحمن الرحيم
الصلاة والسلام على أشرف المرسلين محمد صل الله عليه وسلم واصحابه اجمعين
ايها الكرام تشرفني زيارتكم مرحبا بكم في مدونتكم
عمل باسورد لدخول مستخدمين برنامج فاتورة جزء الاول
 |
عمل باسورد لدخول مستخدمين برنامج فاتورة جزء الاول
كود :
'اظهار كلمة السر'
Private Sub CheckBox1_Click()
TextBox2.SetFocus
If CheckBox1.Value = True Then
TextBox2.PasswordChar = ""
Else
TextBox2.PasswordChar = "*"
TextBox2.SetFocus
End If
End Sub
'للدخول'
Private Sub CommandButton1_Click()
If TextBox1.Value = "hamza" And TextBox2.Value = "aa" Then
Unload Me
Application.Visible = True
Else
If TextBox2.Value <> "aa" And TextBox1.Value <> "hamza" Then
x = MsgBox("اسم المستخدم وكلمة المرور خطأ", 16, "تسجيل الدخول")
TextBox1.Value = ""
TextBox2.Value = ""
Label4.Caption = Label4.Caption - 1
TextBox1.SetFocus
Else
If TextBox1.Value <> "hamza" Then
x = MsgBox("اسم مستخدم خطأ", 16, "تسجيل الدخول")
TextBox1.Value = ""
Else
x = MsgBox("كلمة المرور خطأ", 16, "تسجيل الدخول")
TextBox2.Value = ""
Label4.Caption = Label4.Caption - 1
TextBox2.SetFocus
End If
End If
End If
If Label4.Caption = 0 Then
Application.Quit
End If
End Sub
'للخروج'
Private Sub CommandButton2_Click()
End
أو
Application.Quit
End Sub
'لاخفاء برنامج اكسال'
Private Sub Workbook_Open()
Application.Visible = False
UserForm1.Show
End Sub
للمشاهدة كيفية حماية البرنامج
ما شاء الله شكرا جزيلا لك
ردحذف