شرح كيفية عمل صندوق للسرى للاسم والرقم السرى الجزء الثانى برمجة

Private Sub Workbook_Open()
magdi.Show
MsgBox ("مرحبا بك واهلا وسهلا بكم مع تحيات مجدى يونس من بورسعيد")
End Sub
--------------------------------------
If TextBox1.Text = "مجدى" And TextBox2.Text = "123" Then
Me.Hide
MsgBox "تفضل بالدخول"
دخول
Else
MsgBox "لقد ادخلت اسم او رقم سري خاطئ لذا حاول مره اخرى"
TextBox1.Text = ""
TextBox2.Text = ""
Me.TextBox1.SetFocus
End If
----------------------------------
خروج
Application.DisplayAlerts = False
Application.Quit