مطلوب شرح للشاشه الاتيه

[ماجد2014]

مطلوب شرح للشاشه الاتيه حتى استطيع ان اتعلمها ( هى من اعمال هذا المنتدى العظيم )

شكرا

عمل شاشه افتتاحيه.rar

[ماجد2014]

اضافة رد مطلوب شرح للشاشه الاتيه

[الجموعي]

تفضل أخي الشرح البسيط إن شاء الله يفيدك

'يوضع هذا الكود في حدث (ThisWorkbook)
'-----------------------------------
Private Sub Workbook_Open()
'-----------------------------------
Application.EnableCancelKey = xlDisabled
'-----------------------------------
' إخفاء ورقة العمل
Application.Visible = False
'-----------------------------------
' عند وجود أخطأ إنتقل للحدث التالي
On Error Resume Next
'-----------------------------------
'إظهار الفورم
UserForm1.Show
'-----------------------------------
End Sub

'توضع هذا الأكود في حدث (UserForm1)
'-----------------------------------
Private Sub CommandButton1_Click()
'-----------------------------------
'هذا الكود لإظهار ورقة العمل 
 Application.Visible = True
'-----------------------------------
 ' تفعيل الورقة الأولى
 sheet1.Activate
'-----------------------------------
 'للخروج من الفورم
 Unload Me
'-----------------------------------
End Sub
'-----------------------------------
Private Sub CommandButton2_Click()
'-----------------------------------
' للخروج من الفورم + ورقة العمل
Workbooks.Application.Quit
'-----------------------------------
End Sub

[Yasser Fathi Albanna]

سلمت يداك أستاذ الجموعى وذادك الله من العلم الكثير والكثير

[ماجد2014]

شكرا على مرورك الكريم وهذه المعلومات الرائعه .وارجوا استكمال الشرح كيفيه عمل شاشه تمتد تدريجيا