yasermohsen

السلام عليكم ورحمة الله الاخوة عمالقة المنتدى لدى شيت اكسيل يوجد فى الحدث Workbook_Open()هذا الكود يجعل الملف لايعمل الا اذا سمى باسم ياسر Private Sub Workbook_Open() Dim MyFlName As String MyFlName = "ياسر.xlsm" If ThisWorkbook.Name <> MyFlName Then Application.DisplayAlerts = False ThisWorkbook.Close Else Application.EnableCancelKey = xlDisabled Application.Visible = False UserForm1.Show Workbooks.Application.Visible = True Application.ScreenUpdating = False Call ShowAllSheets Application.ScreenUpdating = True sheet2.Activate End If End Sub هل من الممكن اضافة هذا الكود حيث فى نفس الحدث بالاضافة الى الكود الموجود بحيث الكود يجعل الملف يعمل لمدة معينة على سبيل المثال 15 يوما وهذا هو الكود المراد اضافتة للحدث والكود عثرت علية بالمنتدى Private Sub Workbook_Open() Dim MyDate As Date, Abu_Ahmed As Integer MyDate = #12/31/2014# Abu_Ahmed = 15 If Date < MyDate Then MsgBox "تاريخ الكمبيوتر غير صحيح " Application.Quit End If If MyDate + Abu_Ahmed < Date Then MsgBox "الملف منتهى " Application.Quit End If

اخى العزيز لقد عانيت معى كثيرا اشكرك جدا لمساعدتى الفاتورة ممتازة ولكن يوجد اختلافات عن الفتورة المطلوب عملها فى الملف المرفق اعذرنى لاننى ليس لى خبرة فى برنامج الاكسيل انا مجرد انى هشتغل بس على البرنامج اشكرك كثيرا وجزاك الله كل خير

ماشى حضرتك مافيش مانع بس انا عايز نفس الفورم اللى موجود فى الملف المرفق حضرتك الفاتورة موجودة فى الملف المرفق انا عايز نفس النموذج

بالفعل عمل اكثر من رائع هل من الممكن تطبيق هذا على الملف المرفق حيث اننى ليس لدى خبرة فى عمل ذلك وشكرا وجزاكم الله كل خير

الاخوة الاعزاء بالبحث فى المنتديات عثرت على منتداكم الاكثر من رائع بالاعمال الموجودة علية جزاكم الله كل خيرا اريد فورم فاتورة وترحيل وحفظ البيانات التى يتم ادخالها بالفاتورة وذلك لحين استعدعائها وطباعتها فى اى وقت وعمل زر طباعه ارجوا المساعدة فى ذلك ومرفق ملف لكم فاتورةس.rar