تشفير وفك تشفير ورقة إكسل

[EducationDZ]

https://www.youtube.com/watch?v=t35Tv0V1v9w

ملف vba لتفعيل الماكرو
https://www.4shared.com/file/-iKTjEVy...ier_excel.html

[kamy57]

المشاركة الأصلية كتبت بواسطة EducationDZ

https://www.youtube.com/watch?v=t35Tv0V1v9w

ملف vba لتفعيل الماكرو
https://www.4shared.com/file/-iKTjEVy...ier_excel.html

مشكووووووور أخي ُEducation DZعلى المجهودات الجبارة التي استفدنا منها جميعافقط طلب إن أمكن أخي وهو رابط تنزيل برنامج فك التشفير في الاكسل ولو تكرمت كيفية استعماله علما أنني أملك office2003ولك جزيل الشكر مسبقا ونطلب من الله أن يضعها في ميزان حسناتك.وشكرا.

[morgan5456]

merci beaucoup pour la recherche

[syphaxus]

المشاركة الأصلية كتبت بواسطة kamy57

مشكووووووور أخي ُEducation DZعلى المجهودات الجبارة التي استفدنا منها جميعافقط طلب إن أمكن أخي وهو رابط تنزيل برنامج فك التشفير في الاكسل ولو تكرمت كيفية استعماله علما أنني أملك office2003ولك جزيل الشكر مسبقا ونطلب من الله أن يضعها في ميزان حسناتك.وشكرا.

أشكر الصديق EducationDZ وسأجيب مكانه
Pour créer une macro à l'aide de Microsoft Visual Basic

1. Dans le menu Outils de Microsoft Excel, pointez sur Macro, puis cliquez sur Visual Basic Editor.
2. Dans le menu Insertion, cliquez sur Modules.
3. Tapez ou copiez votre code dans la fenêtre de code du module.
4. Pour exécuter la macro à partir de la fenêtre du module, appuyez sur F5.
5. Lorsque vous avez fini d'écrire la macro, dans le menu Fichier, cliquez sur Fermer et retourner à Microsoft Excel.

ها هو الكود الذي تنسخهالملف في المرفقات)

Sub enleve_protection()
Dim a, b, c, d, e, f, g, h, i, j, k, l As Integer
On Error Resume Next
For a = 65 To 66
For b = 65 To 66
For c = 65 To 66
For d = 65 To 66
For e = 65 To 66
For f = 65 To 66
For g = 65 To 66
For h = 65 To 66
For i = 65 To 66
For j = 65 To 66
For k = 65 To 66
For l = 32 To 126
ActiveSheet.Unprotect Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)

If ActiveSheet.Protect*******s = False Then
MsgBox "La protection a été enlevée - Un mot de passe satisfaisant est :" & Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l)

Exit Sub
End If
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
End Sub

[انيس1]

المشاركة الأصلية كتبت بواسطة educationdz

https://www.youtube.com/watch?v=t35tv0v1v9w

ملف vba لتفعيل الماكرو
https://www.4shared.com/file/-iktjevy...ier_excel.html

تحية اجلال و اكبار اخي على مشاركاتك الفعالة
و بعد

اخي كلما اردت ان اشفر خلية اجد ان الورقة كلها مشفرة
ما هو المشكل ؟
وبارك الله فيك مرة اخرى

[EducationDZ]

المشاركة الأصلية كتبت بواسطة انيس1

تحية اجلال و اكبار اخي على مشاركاتك الفعالة
و بعد

اخي كلما اردت ان اشفر خلية اجد ان الورقة كلها مشفرة
ما هو المشكل ؟
وبارك الله فيك مرة اخرى

اتبع الخطوات التالية وإن بقي الشرح مبهما لا تتردّد في السؤال مرّة ثانية وسأجيب إن شاء الله !

[EducationDZ]

وهذا شرح ثان بواسطة صور متحركة (إذا لم تتحرك الصور مرّر الفأرة عليها باستمرار !)

[kamy57]

مهما قلت شكرا لاأوافيك حقك الأخ EducationDZ

وبودي أن أبق معك على انصال ان سمحت كما أشكر الأخ synaulux علي المساعدة.

[الميعادي]

الله الله الله الله الله الله الله

[EducationDZ]

العفو.....................

[kamy57]

يابارع ننتظر جدسدك

[zoheira]

يعطيك الصحة أخي و بارك الله فيك , مساهمتك جاءت في وقتها....

[انيس1]

المشاركة الأصلية كتبت بواسطة educationdz

اتبع الخطوات التالية وإن بقي الشرح مبهما لا تتردّد في السؤال مرّة ثانية وسأجيب إن شاء الله !

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

[توفيق09]

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

[طهراوي ياسين]

بارك الله فيك
الله يعطيك حجة