الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا
او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي
سنتشرف بتسجيلك
شكرا
ادارة المنتدي







 
الرئيسيةالأستاذ التعليماليوميةس .و .جبحـثالأعضاءضع التسجيلالمجموعاتدخولالتسجيل
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
عزيزى الزائر قم بالتسجيل بالمنتدى لمشاهدة باقى الاقسام المهمه
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
أهلا بك من جديد يا زائر آخر زيارة لك كانت في
آخر عضو مسجل كاري محمد فمرحبا به


شاطر | 
 

 فورم لواجهة شيت كنترول حديثة الدرس 36

اذهب الى الأسفل 
كاتب الموضوعرسالة
مجدى يونس
Admin
avatar

عدد المساهمات : 1096
تاريخ التسجيل : 22/02/2013
العمر : 64

مُساهمةموضوع: فورم لواجهة شيت كنترول حديثة الدرس 36   الإثنين يناير 14, 2019 5:53 am

فورم لواجهة شيت كنترول حديثة الدرس 36


الاكواد

Private Sub Workbook_Open()
HELLO.show
ورقة1.Select
ActiveWorkbook.Application.DisplayFullScreen = True
Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic
End Sub

Private Sub CommandButton1_Click()
If TextBox1 = "" And CommandButton1.Caption = "دخول" Then
MsgBox "من فضلك ادخل كلمة المرور", vbMsgBoxRight + vbOKOnly, "تنبيه"
Else
If TextBox1 = "" And CommandButton1.Caption = "دخول" Then
MsgBox "كلمة مرور غير صحيحة", vbMsgBoxRight + vbOKOnly, "تنبيه"
TextBox1.Text = ""
Else
If TextBox1.Text = "123" Then
HELLO.show
HELLO.ASY2.Enabled = True
HELLO.ASY3.Enabled = True
HELLO.ASY4.Enabled = True
HELLO.ASY5.Enabled = True
HELLO.ASY6.Enabled = True
HELLO.ASY7.Enabled = True
HELLO.asy8.Enabled = True
HELLO.ASY10.Enabled = True
HELLO.ASY11.Enabled = True
HELLO.ASY12.Enabled = True
Else
HELLO.ASY2.Enabled = False
HELLO.ASY3.Enabled = False
HELLO.ASY4.Enabled = False
HELLO.ASY5.Enabled = False
HELLO.ASY6.Enabled = False
HELLO.ASY7.Enabled = False
HELLO.asy8.Enabled = False
HELLO.ASY10.Enabled = False
HELLO.ASY11.Enabled = False
HELLO.ASY12.Enabled = False
TextBox1.Value = ""
End If
TextBox1.Value = ""
TextBox1.Text = ""
End If
End If

End Sub

Private Sub ASY5_Click()
Application.ScreenUpdating = False
HH
ورقة2.Visible = True
ورقة2.Select
End Sub

Private Sub UserForm_Initialize()
HELLO.Left = 0
HELLO.Top = 0
 Dim lngWindow As Long, lFrmHdl As Long
   lFrmHdl = FindWindow(vbNullString, Me.Caption)
   lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE)
   lngWindow = lngWindow And (Not WS_CAPTION)
   Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow)
   Call DrawMenuBar(lFrmHdl)
Me.Height = 77
End Sub
Private Sub Image1_Click()
Application.DisplayFullScreen = False
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",true)"
HELLO.hide
End Sub



_________________
عندما تولد يابن ادم يؤذن فى أذنك من غير صلاة وعندما تموت يصلى عليك من غير أذان وكأن حياتك فى الدنيا ليست سوى الوقت الذى تقضيه بين الأذان والصلاة فلا تقضيهما فيما لاينفع
---((الله ناظرى الله سامعى الله مطلع علي))-

الرجوع الى أعلى الصفحة اذهب الى الأسفل
معاينة صفحة البيانات الشخصي للعضو http://magdi54.forumegypt.net
 
فورم لواجهة شيت كنترول حديثة الدرس 36
الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
الاستاذ مجدى :: قسم مجموعة الاوفيس :: قسم الاكسل-
انتقل الى: