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

[kamy57]

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

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

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

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

[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