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