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

[EducationDZ]

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

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

[kamy57]

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

ملف vba لتفعيل الماكرو
http://www.4shared.com/file/-iKTjEVy/ter_protection_fichier_excel.html
مشكووووووور أخي ُEducation DZعلى المجهودات الجبارة التي استفدنا منها جميعافقط طلب إن أمكن أخي وهو رابط تنزيل برنامج فك التشفير في الاكسل ولو تكرمت كيفية استعماله علما أنني أملك office2003ولك جزيل الشكر مسبقا ونطلب من الله أن يضعها في ميزان حسناتك.وشكرا.

[morgan5456]

merci beaucoup pour la recherche

[syphaxus]

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




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


Dans le menu Outils de Microsoft Excel, pointez sur Macro, puis cliquez sur Visual Basic Editor.
Dans le menu Insertion, cliquez sur Modules.
Tapez ou copiez votre code dans la fenêtre de code du module.
Pour exécuter la macro à partir de la fenêtre du module, appuyez sur F5.
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]

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

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


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

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

[EducationDZ]

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

اخي كلما اردت ان اشفر خلية اجد ان الورقة كلها مشفرة
ما هو المشكل ؟
وبارك الله فيك مرة اخرى
اتبع الخطوات التالية وإن بقي الشرح مبهما لا تتردّد في السؤال مرّة ثانية وسأجيب إن شاء الله !
http://images4.hiboox.com/images/2511/diapoa3ead60c1ba97157bfd1cbac6084f9df.jpg?22
http://images4.hiboox.com/images/2511/785a60ae89a031a3aa85a50dd2a86102.jpg
http://images4.hiboox.com/images/2511/da7350769e78ee6239f5ad9737e1410f.jpg

[EducationDZ]

وهذا شرح ثان بواسطة صور متحركة (إذا لم تتحرك الصور مرّر الفأرة عليها باستمرار !)
http://data.imagup.com/8/1123743622.gif

[kamy57]

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

[الميعادي]

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

[EducationDZ]

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

[kamy57]

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

[zoheira]

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

[انيس1]

اتبع الخطوات التالية وإن بقي الشرح مبهما لا تتردّد في السؤال مرّة ثانية وسأجيب إن شاء الله !
http://images4.hiboox.com/images/2511/diapoa3ead60c1ba97157bfd1cbac6084f9df.jpg?22
http://images4.hiboox.com/images/2511/785a60ae89a031a3aa85a50dd2a86102.jpg
http://images4.hiboox.com/images/2511/da7350769e78ee6239f5ad9737e1410f.jpg

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

[توفيق09]

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

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

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