استفسار بخصوص حماية ملف يغلق بعد شهر

[ابو ميشيل]

السلام عليكم

اود الاستفسار عن نوع الحماية لملف لدي

ملف اكسل 2003

الملف يفتح لمدة 30 يوم فقط بعدها يصبح غير قابل للفتح

الا بعد فرمتة الكومبيوتر او فتح الملف في كومبيوتر متفرمت جديد اي لم يمضي على فرمتته اكثر من شهر

يعني لو نقلت الملف الى كومبيوتر متفرمت من زمان  لن يفتح ايضا

كيف يتعرف الملف على الكومبيوتر ويعرف انه متفرمت من زمان؟

معقول في هيك حماية لملفات اكسل

[ياسر خليل أبو البراء]

أخي الكريم

يرجى إرفاق الملف للإطلاع عليه ..

قد تكون الحماية مرتبطة بالبارتشن C .. وعند عمل فورمات يقوم الملف بإعطائك فرصة لمدة 30 يوم على السيريال الجديد الخاص بالهارد (مجرد تخمين)

ارفق الملف ليساعدك الأخوة في المنتدى

[ياسر العربى]

مثل ما قال اخي الغالي ابو البراء ياريت ترفق الملف 

عشان نقدر نحدد طريقة العمل

وتظل كلها طرق حماية فاشلة 

وربنا يكرمنا ونتوصل لمستوى حماية عالي

 

[ابو ميشيل]

شكرا على مداخلتكم اساتذتي الاجلااء

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

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

بفضل ملف الاستاذ ياسر خليل ابو البراء المطروح في المنتدى والخالص بكسر حماية محرر الاكواد

http://www.officena.net/ib/topic/60289-كسر-حماية-محرر-الأكواد-بدون-برامج-قنبلة-الموسم/

تم كسر حماية  محرر الاكواد وكان يحتوي على الصيغة التالي لمشاركتها معكم وتققيم قوة الحماية لتعم الفائدة

Public Sub unlock_page(n As Integer)
'
'
'
    str1 = CStr((n - 1) * 28 + 2)
    end1 = CStr(n * 28 - 2)
    Range("H" + str1 + ":" + "H" + end1).Select
    Selection.Locked = False
    Range("J" + str1 + ":" + "J" + end1).Select
    Selection.Locked = False
    Range("L" + str1 + ":" + "L" + end1).Select
    Selection.Locked = False
    Range("N" + str1 + ":" + "N" + end1).Select
    Selection.Locked = False
    Range("P" + str1 + ":" + "P" + end1).Select
    Selection.Locked = False
    Range("R" + str1 + ":" + "R" + end1).Select
    Selection.Locked = False
    Range("T" + str1 + ":" + "T" + end1).Select
    Selection.Locked = False
    Range("V" + str1 + ":" + "V" + end1).Select
    Selection.Locked = False
    Range("X" + str1 + ":" + "AG" + end1).Select
    Selection.Locked = False
    Range("AI" + str1 + ":" + "AI" + end1).Select
    Selection.Locked = False
    Range("AK" + str1 + ":" + "AK" + end1).Select
    Selection.Locked = False
    Range("AM" + str1 + ":" + "AM" + end1).Select
    Selection.Locked = False
    Range("AO" + str1 + ":" + "AO" + end1).Select
    Selection.Locked = False
    Range("AQ" + str1 + ":" + "AQ" + end1).Select
    Selection.Locked = False
    Range("AS" + str1 + ":" + "AS" + end1).Select
    Selection.Locked = False
    Range("AU" + str1 + ":" + "BH" + end1).Select
    Selection.Locked = False
    Range("B2").Select
End Sub

 

تم تعديل أكتوبر 21, 2015 بواسطه ابو ميشيل