كيفية عمل يوزر فورم باسم المستخدم و كلمة المرور | How to create a login form Excel VBA

النهاردة حنتعلم من بعض :- ازاي نعمل يوزرفورم يكون فيها اسم المستخدم و كلمة المرور للدخول الي ملف الاكسيلبمجرد فتح ملف الاكسيل يظهر اليوزرفورو و يختفي الاكسيل لحين ادخال اسم المستخدم الصحيح و كلمة المرور الصحيحةاحكام المستخدم بعدد محدود من المحاولاتايقاف ذر قفل اليوزرفورمعمل ذر تحكم في اظهار و اخفاء اسم المستخدم و كلمة المرور و تحويلهم الي رموز
الأكواد ذر الدخول
Private Sub CommandButton1_Click()
If UserForm1.TextBox1.Value = "hazem" And UserForm1.TextBox2.Value = 1234 Then
Application.Visible = True
UserForm1.Hide

Else
MsgBox "برجاء مراجعة اسم المستخدم و كلمة المرور", , "Error"
Label3.Caption = Label3.Caption - 1
If Label3.Caption = 0 Then
ThisWorkbook.Save
Application.Quit
End If
End If

ذر اظهار و اخفاء كلمة المرور
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
TextBox1.PasswordChar = ""
TextBox2.PasswordChar = ""
End If

If CheckBox1.Value = False Then
TextBox1.PasswordChar = "*"
TextBox2.PasswordChar = "*"
End If
End Sub
الكود الخاص بايقاف ذر غلق شاشة اسم المستخدم و كلمة المرور
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

If CloseMode = vbFormControlMenu Then
Cancel = True

End If
End Sub
الكود الخاص باخفاء شيت الاكسيل و اظهار شاشة اسم المستخدم و كلمة المرور
Private Sub Workbook_Open()

Application.Visible = False
UserForm1.Show
End Sub

#حازم_حسن
#دروس_HR_أونلاين
#User_Form
#Excel_VBA

Видео كيفية عمل يوزر فورم باسم المستخدم و كلمة المرور | How to create a login form Excel VBA канала دروس HR اونلاين