سعيد ابا

مرفق ملف يشتمل على : 

- ميعاد حضور الموظف او العامل وميعاد الانصراف 

- ميعاد الوردية من- الى  حتى لو تجاوزة منتصف الليل 

- فترة التاخير المسموح بها بالدقائق 15 دقيقة مثلا 

-لائحة جزاءات بعد 15 دقيقةتاخير خصم ربع يوم - 30 دقيقة خصم نص يوم -  60 دقيقة خصم 1 يوم ويمكن التعديل فيها من المربعات الحمراء 

- حساب ساعات العمل - ساعات التاخير عن ميعاد الحضور - ساعات الانصراف المبكر عن ميعاد الانصراف 

والكثير لعل يكون مفيد

نهائىhr - Copy.rar

ا / ياسر خليل ابو البراء 

لقد قمت بحذف الكود من ملف الاكسيل وحذف الريجيسترى 

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

شكر مرة اخرى وندعو الله ان يحفظكم دائما 

السلام عليكم 

شكرا على سرعة الرد 

لكننى بعد الحذف من الريجيسترى يظهر مربع اخر يظهر به عدد مرات فتح املف مثلا1 

واذا تم الحذف من الريجيسترى يظهر مربع جديد برقم 2  وهكذا الى ان ينتهى عدد المرات الموجود بالكود مثلا 10 ثم يتم ظهور مربع بالرسالة مرة اخر ى

السادة خبراء اكسيل اريد المساعدة فى حذف مربع يتم ظهوره عند فتح اى ملف للاكسيل 2010

المربع ظهر عند تطبيق كود يغلق ملف الاكسيل  بعد عدد معين من فتح ملف الاكسيل 

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

هل من طريق لحذفها وشكرا 

الكود هو 

Private Sub Workbook_Open()
Dim Retvalue As String, GD As Integer
    Retvalue = GetSetting("A", "0", "Runcount")
    GD = Val(Retvalue) + 1
    SaveSetting "A", "0", "RunCount", GD
    If GD > 10 Then ' الرقم (10) يحدد عدد مرات التشغيل
        MsgBox ("انتهت مدة تشغيل البرنامج ،،، قم بشراء النسخة الكاملة من المنتج")
        ThisWorkbook.Close 0
    End If
    MsgBox GetSetting("A", "0", "Runcount")
End Sub
 

اريد برنامج معرفة باسوورد الاكسيل وشكرا

saidzikre@yahoo.com