عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
عزيزي الزائر / عزيزتي الزائرة يرجي التكرم بتسجبل الدخول اذا كنت عضو معنا او التسجيل ان لم تكن عضو وترغب في الانضمام الي اسرة المنتدي سنتشرف بتسجيلك شكرا ادارة المنتدي
الاستاذ مجدى
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.
سبحانك لا علم لنا إلا ما علمتنا أنك أنت العليم
مع تحيات مجدى عبد المنعم محمود يونس ببورسعيد " مدير المنتدى "
عدد المساهمات : 3806 تاريخ التسجيل : 22/02/2013 العمر : 70
موضوع: فورم لواجهة شيت كنترول حديثة الدرس 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
موضوع: فورم لواجهة شيت كنترول حديثة الدرس 36 
الإثنين يناير 14, 2019 5:53 am
