Message d'erreur MVB

[3xceln4ute]

Bonjour,

En ouvrant un fichier excel, j'ai une autre fenetre de code qui apparait, stipulant qu'il y a une erreur.
Ci-dessous le code généré:

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*

Photo 1 :


Photo 2 :


Et aussi le message d'avertissement pour les macros
Photo 3 :



Merci de m'éclairer.

Cordialement.

 

[pierrejean]

Re : Message d'erreur MVB

Bonjour subirubi

A tester

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

 

[3xceln4ute]

Re : Message d'erreur MVB

Merci pierre jean c'est gentil, j'ai remplacé le code et ça marche à première vue.
Mais pourrais tu m'expliquer ce que la macro dit, grosso modo ?