كيفية عمل يوزر فورم باسم المستخدم و كلمة المرور | 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

Category