Oter la protection d'un fichier d'une macro

Bonjour,

J'avais récupéré une macro qui permettait de faire sauter la protection d'un fichier et de donner un mot de passe en "binaire" (ABAABBB etc ...)

Elle fonctionne sur Excel 2007-2010 mais quand j'essaye de l'installer sur Excel 2013, j'ai un message d'erreur (problème de codage je crois).

Pouvez-vous regarder et me dire ce qu'il ne va pas ou avez-vous une Macro équivalente en votre possession ?

Ci dessous le code de la macro en question :

Sub Vire_me_la()

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.ProtectContents = False Then

MsgBox "La protection de la feuille a été enlevée avec succès !" & Chr(10) & Chr(10) & "Les caractères qui ont réalisé cette prouesse sont :" & Chr(10) & Chr(10) & Chr(a) & Chr(b) & Chr(c) & Chr(d) & Chr(e) & Chr(f) & Chr(g) & Chr(h) & Chr(i) & Chr(j) & Chr(k) & Chr(l), vbInformation, "C’est fait !"

Exit Sub

End If

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

Next

End Sub

Merci