Discussion :

[moumen79]

bonjour

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 ?

[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?

[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

[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.