Discussion :

[DonkeyPuncher]

Bonjour à tous,

Mon programme VBA a pour but de charger des classeurs Excel de même types et de même structures.
Dans mon code j'ai une partie dé-protection des feuilles qui marche à marveille.

Cependant, des nouveaux fichiers vont arriver, toujours avec la même structure, mais avec un nouveau mot de passe (sur chacune des feuilles du classeur).
Du coup, je vais devoir adapter mon programme afin de prendre en compte l'ancien, et le nouveau mot de passe. Le but étant, à terme, de migrer totalement avec le nouveau mot de passe.

Je viens vers vous afin de savoir ce que vous pensez de ma façon de gérer ce traitement, et si vous avez un moyen plus propre, adéquat pour se faire :

Code :

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

1
2
3
4
5
6
7
 
On Error GoTo otherPWD 'si la feuille est protégée par le nouveau code, la ligne suivante retournera une erreur
           .UnProtect "ancienCode" ' On déprotège la feuille // si erreur on passe à otherPWD
           GoTo suite 'si on est encore là c'est que c'était le bon code donc on passe à la suite du programme
otherPWD:
           .UnProtect "nouveauCode"
suite:

J'ai vraiment besoin de m'assurer que ce code sera stable, et efficace pour n'importe quel cas de figure.

Merci d'avance à tous.

[Gado2600]

Bonjour,

Pour ma part, j'utiliserais plutôt la fonctionnalité .protectcontents qui est prévue pour vérifier si ton onglet est protégé ou non.
Et plutôt qu'une gestion avec des goto, utiliser un resume next.

Ces points te permettraient de réaliser une fonctionnalité avec une boucle pour avoir un seul code pour tous les mdp possibles.

Cordialement,

[Theze]

Bonjour,

Si tu peux encore avoir accès à tes classeurs, tu peux inscrire le mot de passe dans un Nom (proc "AjouterNom") que tu définis invisible (on ne pourra pas le voir dans le gestionnaire de Noms) et il te suffira de le récupérer au moment de déprotéger (proc "LireNom"). Chaque classeur pourra avoir son propre mot de passe qu'il soit ancien ou nouveau, le MDP est embarqué avec lui enfin, c'est une piste :

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
 
Sub AjouterNom()
 
    Dim N As Name
 
    'défini un Nom invisible dans Gestionnaire des Noms...
    'cette ligne de code peut être exécutée plusieurs fois
    'il n'y aura malgré tout qu'un seul Nom portant ce nom (MotDePasse)
    Set N = Names.Add("MotDePasse", "DonkeyPuncher", False)
 
    'il est tout à fait possible de changer sa valeur
    'Set N = Names.Add("MotDePasse", "AutrerMotdePassePourDonkeyPuncher", False)
 
End Sub
 
Sub LireNom()
 
    Dim N As Name
    Dim MDP As String
 
    Set N = Names("MotDePasse")
    MDP = Replace(Replace(N.RefersTo, "=", ""), """", "")
 
    MsgBox MDP
 
    '.Unprotect MDP
 
End Sub

[Invité]

Code :

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

1
2
3
4
pass=array("","pass1","pass2","pass3")
For i =1 to 3
Seets(i).UnProtect pass(i)
Next

[kiki29]

Salut, à titre d'info voir ceci

[DonkeyPuncher]

Merci à tous pour vos réponses, je vais tester chacune d'entre elles et voir laquelle s'adapte le mieux !

kiki29, je suis assez stupéfait qu'une telle méthode puisse marcher !

[Gado2600]

Bonjour,

Je ne connaissais pas non plus cette petite partie de la fonctionnalité de Protect.
Peux-tu nous dire pourquoi cela réalise cet "effet" de la fonctionnalité ? C'est un peu bizarre pour une fonctionnalité de protection car cela veut dire que n'importe qui, via le VBA, peut modifier le mot de passe et déprotéger ce qui l'était...

Cordialement,

[Marc-L]

Bonjour,

oui c'est bien connu depuis des lustres, Excel est un gruyère côté sécurité ‼ …



______________________________________________________________________________________________________
Je suis Paris, …