السلام عليكم ورحمة الله تعالى وبركاته الرجاء المساعدة في الكود التالي يعمل بشكل ممتاز Private Sub CommandButton1_Click() Dim password As String If TextBox1.Text = "aa" And TextBox2.Text = "1111" Then password = "True" End If If password = "True" Then MsgBox "مرحبا بك" Unload Me Sheets(2).Select Else MsgBox "إسم المستخدم/كلمة المرور خاطئة.حاول مرة ثانية" TextBox1.Text = vbNullString TextBox2.Text = vbNullString TextBox1.SetFocus End If End Sub الكود الذي اريد التعديل عليه بحيث أضفت مستخدم ثا