شرح عمل يوزرفورم لاكثر من مستخدم - الجزء الثاني 香港

1- كيفية عمل اكتر من مستخدم لشيت الاكسيل 2- تسجيل محاولات الدخول الي شيت الاكسيل بالتاريخ و الوقة و اسم المستخدم و كلمة المرور 3- تخصيص شيت محدد لكل مستخدم (شاشة عمل المستخدم فقط) 4- حماية الاكواد المستخدمة الاكواد ذر الدخول Private Sub CommandButton1_Click() heets("sheet3").Select Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = UserForm1.TextBox1.Value Range("B1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = UserForm1.TextBox2.Value Range("C1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = Date Range("D1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveCell.Value = Time If UserForm1.TextBox1.Value = "hazem" And UserForm1.TextBox2.Value = 1234 Or UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 4321 Then Application.Visible = True UserForm1.Hide If UserForm1.TextBox1.Value = "hazem" And UserForm1.TextBox2.Value = 1234 Then Sheets("sheet1").Select End If If UserForm1.TextBox1.Value = "ali" And UserForm1.TextBox2.Value = 4321 Then Sheets("sheet2").Select End If 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 الكود الخاص باخفاء شيتات الاكسيل داخل ملف العمل ActiveWindow.DisplayWorkbookTabs = False End Sub #حازم_حسن #دروس_HR_أونلاين #Excel_VBA #userform

Category