اذهب الي المحتوي
أوفيسنا

فك حماية شيتات ملفات الإكسل بجمع إصداراتها وامتداداتها


الردود الموصى بها

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

شكرا لك أخي صافي

رزقنا الله وإياك شربة من ماء الجنة الصافي

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

الصحيح ومنذ زمن طويل وانا ابحث عن برنامج يفك الكلمة السرية أو المرور وجدت برامج كثيرة لكن لم يكن احد من هذه البرامج يفي بالغرض

والبرنامج قيم كثيراً جداً

مشكورين جميع القائمين على هذا الصرح العظيم

الله يعطيكوا الف الف عافية

الحمد لله أخي عصام أنك وزجدت ما تبحث عنه هنا

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

وإياك أخي الكريم

  • Like 1
رابط هذا التعليق
شارك

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

شكرا لك أخي صافي

رزقنا الله وإياك شربة من ماء الجنة الصافي

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

الصحيح ومنذ زمن طويل وانا ابحث عن برنامج يفك الكلمة السرية أو المرور وجدت برامج كثيرة لكن لم يكن احد من هذه البرامج يفي بالغرض

والبرنامج قيم كثيراً جداً

مشكورين جميع القائمين على هذا الصرح العظيم

الله يعطيكوا الف الف عافية

الحمد لله أخي عصام أنك وزجدت ما تبحث عنه هنا

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

وإياك أخي الكريم

رابط هذا التعليق
شارك

  • 1 month later...
  • 3 weeks later...
  • 1 month later...

ما شاء الله تبارك الله

عمل رائع مع أن المدة لا بأس بها حوالي دقيقة

لكن عمل أكثر من رائع

أسأل الله أن يجعلك مباركأً أينما كنت

تم تعديل بواسطه أبو أكرم
  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...
  • 4 weeks later...

أشكر جميع الإخوة على المرور الطيب

نفعنا الله وإياكم به وبالنسبة للأخ الذي لم يعمل معه البرنامج

فهذا اللبرنامج وظيفته فك كلمات السر لأوراق العمل المحمية بكلمات سر

أما الملفات المحمية بكلمة سر فلها برنامج آخر

برجاء مراجعة الموضوع من أول مشاركة به

  • Like 1
رابط هذا التعليق
شارك

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

هل هذه الطريقة تفلح في فك كلمة السر للأكواد داخل البرنامج ام لا حيث انني قد نسيت كلمة المرور

شكرا لمرورك أخي الكريم

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

يوجد برامج أخرى لهذا الغرض

  • Like 1
رابط هذا التعليق
شارك

اخانا الكريم بارك الله فيك وعمل اكثر من رائع ولكن هل يمكن ان تتفضل علي بشرح هذا الجزء من الكود للتعلم ليس الا زادك اللع علما ونفعك بما تعلم

Private Function NewCodeWord()

Dim MaxLong As Integer, Ulimit As Integer, Oline As Integer, lng As Integer, Word As String, i As Integer

MaxLong = 9

Oline = 255

Ulimit = 32

lng = Int(MaxLong * Rnd + 1)

Word = ""

For i = 1 To lng - 1

Word = Word + Chr(Int((34 - 33 + 1) * Rnd + 33))

Next i

Word = Word + Chr(Int((Oline - Ulimit + 1) * Rnd + Ulimit))

NewCodeWord = Word

End Function

  • Like 1
رابط هذا التعليق
شارك

اخي الكريم

هذه الدالة وظيفتها إنشاء كلمة مكونة بحد أقصى 9 حروف

ويتم اختيار كل حرف بصورة عشوائية من خلل كود أسكي الخاص به ثم يتم تحويله إلى حرف

ثم يتم جمع هذه الحروف معا لتكون كلمة ومع كل طول وكل حرف يتم اختبار ذلك ككلمة مرور للملف

فإذا تم الفك يتم بعدها الحفظ

هذه ياختصار عمل الكود الموجود في الإضافة

وكل عام وجميع الخوة والأخوات بكل خير

  • Like 1
رابط هذا التعليق
شارك

  • 1 month later...
  • 3 weeks later...

أستاذي عندي أكسل 2007 وبصراحة توقفت في شرحك عند هذه النقطة وإليك الصورة

http://files03.arb-up.com/i/00263/14x367b8kftj.jpg

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

تم تعديل بواسطه 1aa1
رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
×
×
  • اضف...

Important Information