Macro affiche attendu :

Version imprimable

bonjour

j'ai un macro qui fonctionne mal, pouvez vous m'aider j'utilise excel 2010

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
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

05/03/2013, 13h59
NEC14

Bonjour,

C'est un peu court comme explication. Peux-tu nous expliquer ce que tu souhaites faire avec ce code. A quoi sert-il ? Le but rechercher ?
05/03/2013, 14h27
el_slapper

Quelle horreur.... Bon, je suis encore sous 2003, et il n'aime pas toutes ces étoiles. Peut-être que c'est accepté en 2010.

Quoi qu'il en soit, la macro semble taper dans des feuillets nommés LLLLLLLLLLLC, ou L vaut "A" ou "B", et C la plupart des caractères standards de la table ASCII(lettre, chiffre, caractère spécial...). Déjà, ça représente 2^11*95 possibilités, soit 194560 feuillets. C'est beaucoup.

Sur chacun des feuillets, on déprotège, et si la déprotection marche, on envoie une msgbox. Enfin, ça, c'est la théorie. Je ne sais pas ce qui se passe si l'onglet n'existe pas(et il y en a forcément).

Surtout, la syntaxe de l'ordre de déprotection me semble douteuse, avec toutes ces étoiles. Bon, je n'ai pas 2010, ça marche peut-être, mais ça me parait quand même hautement foireux. Pour paraphraser NEC14, ça sert à quoi, en théorie?
05/03/2013, 14h51
Guiiand

Bonjour,

A vue de nez, c'est un crackeur de mot de passe pour les protections des feuilles. Le tout en brute force, avec je ne sais combien de possibilités.

Que tout cela tourne pendant des lustres que ca ne m'étonnerait pas.

Cdt
05/03/2013, 15h46
NEC14

Oui, je pense la même chose en voyant ce code. Cela à l'air d'un crackeur de mots de passe sur des feuilles de calcul.:cfou: