مساعدة في برنامج عمال شارف على الانتهاء

[angelloay]

السلام عليكم

قمت بعمل برنامج للعمال بحسب خبرتي ومساعدة الاساتذة لي وهو يفي بالغرض المطلوب منه تماما

ولكن هناك بعض المشاكل والملاحظات ارجو منكم مساعدتي بها

موجود بالمرفق

برنامج عمال 1.rar

[angelloay]

المساعدة اخواني جزاكم الله خيرا

[الشهابي]

أخي العزيز / angelloay

هذه محاولة لحل جزء من المطلوب إن شاء الله يكون فيه مبتغاك

والعفو

برنامج عمال 1.rar

[angelloay]

جزالك الله خيرا كفيت ووفيت

هناك بعض الملاحظات

بالنسبة الى ادراج اسم الصفحة تلقائيا في العمود m يقوم بالاضافة ولكن بعد النقر على خلية في العمود وانا اريد ان يقوم باضافته تلقائيا بدون اي تدخل مني

وايضا هناك صفحات مخفية لااريدها ان تظهر اسمائها في العمود ولا اريد ان تظهر الصفحة الرئيسة ايضا في العمود

بالنسبة للفورم

عندما تقوم بالضغط على اشارة اغلاق الفورم فانه يغلق الفورم ويتابع العمل بالملف (في هذه الحالة مافائدة الاسم والباس وورد )

وانا اريد عند الضغط على شارة الاغلاق ( علامة الضرب الحمراء ) ان يقوم باغلاق الاكسل بشكل كامل ولا يستطيع تخطي الاسم وكلمة المرور

وشكرا

[angelloay]

هل من مجيب جزاكم الله خيرا

[الـعيدروس]

هذا الكود الصقه في حدث Userform

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

With ThisWorkbook

Application.DisplayAlerts = False

.Save

.Close

Application.DisplayAlerts = True

End With

End Sub

وكود حدث Thisworkbook إستبدله بالتالي

Private Sub WorkBook_Open()

Dim i As Integer

Dim x As Worksheet

i = 2

For Each x In ThisWorkbook.Worksheets

If x.Visible = xlSheetHidden Or x.Visible = lSheetVeryHidden Then

Else

ورقة1.Cells(i, 13).Value = x.Name

i = i + 1

End If

Next x

End Sub

تم تعديل ديسمبر 25, 2012 بواسطه عباد