مطلوب هذا الكود

[محمد عبد الناصر]

السلام عليكم ورحمة الله وبركاته ؛؛؛؛

طلبى هو انى عايز كود يقفل ملف اكسيل مثلا بعد 48 ساعه بحيث انى لو فتحت الملف ده مره يخصم 24 ساعه من الوقت والمره التانيه يخصم بردو 24 ساعه يبقى المجموع 48 ساعه ويطلب باسورد ولو الباسورد صح يبدأ يعد 48 ساعه جديده  ولو غلط يقفل الملف

تم تعديل سبتمبر 8, 2015 بواسطه التابعين

[محمد عبد الناصر]

؟ ليها حل دى

[جعفر الطريبق]

الحل يعتمد على vba

المشكلة هي أن لو المستخدم  لديه ال VBA  غير شغال عند فتح الملف فان الكود لن يشتغل

على أية حال ... جرب هدا الكود ... أضف الكود الى ThisWorkbook Module

Private Sub Workbook_Open()
    Dim lDaysDiff As Long
    
    On Error Resume Next
        lDaysDiff = DateDiff("d", [LastOpen], Now)
        If Err = 13 Then Names.Add "LastOpen", Now, False: ThisWorkbook.Save
    On Error GoTo 0
    
    If lDaysDiff > 2 Then
        If InputBox("Enter Password") = "EnterYourPasswordHere" Then
            Names.Add "LastOpen", Now, False: ThisWorkbook.Save
        Else
            MsgBox "Wrong Password", vbCritical
            Me.Close True
        End If
    End If
End Sub

 

 

 

تم تعديل سبتمبر 9, 2015 بواسطه جعفر الطريبق

[محمد عبد الناصر]

تمام حضرتك بس المشكلة كده لو المستخدم لعب فى تاريخ الجهاز ورجعو ليوم ورى الملف هايفتح عادى :D

تم تعديل سبتمبر 9, 2015 بواسطه التابعين

[جعفر الطريبق]

نعم لو غير تاريخ الجهاز هايفتح عادي و كدالك لو الماكروس غير شغالين

اكسيل ليس تطبيقا أمن .. من السهل اختراقه  ... ممكن حساب عدد الاستعمالات عوض عدد الأيام  لتفادي اللعب في تاريخ الجهاز

[محمد عبد الناصر]

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

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

[محمد عبد الناصر]

؟؟؟؟

[قصي]

احي التابعين

هل لك من الاعمال الفريده التي اريد حمابتها بهذه الطريقه او بأي طريقه احرى

نرحو ان تشرفنا باي عمل من اعمالك الفريده