الاخوة الزملاء
اليوم نشرح كيفية عمل صندوق للسرى للاسم والرقم السرى
الجزء الثانى برمجة
غدا ان شاء الله ساحمل الاكسل الاصلى فى انتظار ان كنت نسيت شيئ
واتمنى من الله ان اكون نقلت جزء صغير يكون نواه لعمل شيت كنترول
الفيديو
تشغيل الفورم
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
------------------------------------------
*