Discussion :

[taratata_69]

bonjour,

J'utilise la méthode unprotect\protect pour ouvrir des classeurs Excel situé dans une arborescence.
je souhaiterai pouvoir récupérer le code retour dans le cas ou le mot de passe est faux, afficher le nom du classeur associé à l'erreur et proposer la saisie d'un nouveau mot de passe.

merci pour toutes vos suggestions

[PMO2017]

Bonjour,

Une piste avec le code suivant à copier dans un module standard.
Adaptez, à votre usage, les constantes cernées par des ###

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
38
39
40
 
'### Constantes à adapter ###
Const FILE_OPEN As String = "c:\test unprotect.xls"
Const NB_ESSAI As Long = 3
'############################
 
Sub Launch()
Dim MotPasse As String
MotPasse = "faux mot de passe"  'dans l'exemple, le mot de passe est "zaza"
Call DemandePassword(FILE_OPEN, MotPasse)
End Sub
 
Sub DemandePassword(FileOpen As String, PassWord As String)
Dim WB As Workbook
Dim NbPasse&
Dim i&
Dim A$
Set WB = Workbooks.Open(FileOpen)
If WB.ProtectWindows Or WB.ProtectStructure Then
  On Error Resume Next
  WB.Unprotect (PassWord)
    If Err.Number = 1004 Then
      For i& = NB_ESSAI To 1 Step -1
        Err.Clear
        If i& = 1 Then
          A$ = "Il ne vous reste qu'une tentative. "
        Else
          A$ = "Il vous reste " & i& & " tentatives. "
        End If
        PassWord = Application.InputBox( _
          prompt:="Le mot de passe saisi n'est pas valide." & vbCrLf & vbCrLf & _
              A$ & "Veuillez le saisir à nouveau.", _
          Title:="Mot de passe incorrect.")
        WB.Unprotect (PassWord)
        If Err = 0 Then Exit For
      Next i&
    End If
  If Err <> 0 Then Exit Sub
End If
End Sub

Mettez le classeur "test unprotect.xls" de l'exemple ci-joint dans C:
Lancez la macro "Launch".

Cordialement.

PMO
Patrick Morange

[taratata_69]

bonjour PMO2017

Merci pour votre code, je souhaiterai adapter le code pour afficher dans le message de mot de passe le nom du fichier (je travaille au niveau du répertoire) de plus je dois récupérer le mot de passe valide pour reprotéger le document à la fin de mon traitement.

merci pour vos suggestions

[ouskel'n'or]

Pour réaliser ce que tu veux je passerais par les collections en associant mot de passe et nom de classeur.
Pour la proposition d'un nouveau mot de passe en cas d'erreur, une simple boucle Tant que Mot de passe pas bon on propose une nouvelle saisie ou un abandon pur et simple. Pour la saisie d'un mot de passe tu as de nombreux exemples sur le forum et dans la FAQ. Je viens de retrouver ça.
Pour les collections, si tu as besoin d'explication, tu dis.
A+

[taratata_69]

bonjour ouskel'n'or

je suis preneur pour une explication des collections en vue d'avancer sur mon souci.

Cordialement

[ouskel'n'or]

Pour le principe

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
Sub Test()
Dim Collect as New Collection, NomFich as String, rep as String
Dim MotDePasse as String, i as Byte 'etc.
    rep = "D:\Classeurs\"
    NomFich = Dir(rep & "*.xls")
    Do While NomFich <> ""
        Workbooks.Open Ret & NomFich
        'appel de l'userform Logon par exemple
        'MotDePasse = InputBox("Mot de Passe") -> Récup du mot de passe
        Collect.Add MotDePasse, NomFich
        NomFich = Dir
    Loop
 
    'Récupération du mot de passe de chaque classeur pour rétablir la protection :
    For i = 1 To Application.Workbooks.Count
        NomDuClasseur = Workbooks(i).Name
        MotDePasse = Collect(NomDuClasseur)
        'Workbooks (NomDuClasseur).Protect... etc
    Next
End Sub

Toujours pour le principe, un exemple de récupération des objets de la collection :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub UserDuneCollection()
 Dim Collect  As New Collection
    ' Remplit la collection
    Collect.Add "Et alors ? ", "Un"
    Collect.Add "C'est ", "Deux"
    Collect.Add "quoi ", "trois"
    Collect.Add "ton problème ?", "Quatre"
    'Affichage
    MsgBox Collect("Un") & Collect("Deux") & Collect("trois") & Collect("Quatre")
End Sub

Tu sauras adapter ?
A+

[LeForestier]

Bonjour tous,
Une autres approche pour gérer des codes passes;
Je ne peu pas mettre le classeur en pièce jointe, il est trop volumineux.
mais il est sur ce lien
Il est peut-être un peu trop complet mais à toi de voir.
A+

[taratata_69]

j'aurai besoin de quelques précisions:

serait il possible d'avoir une explication sur:
" l'appel de l'userform Logon "

La collection crée permet de stocker uniquement sur deux colonnes en mémoire?
Cordialement

[ouskel'n'or]

Le fichier "Logon.xls" n'est pas protégé. Tu retrouves le code dans l'éditeur VB.

Comme je ne connais pas le but de la déprotection (déprotection par un utilisateur autorisé ou nécessité d'une modification du classeur par macro) il est difficile de t'aider plus...
Pour les collections, je suppose que tu veux parler de dimensions ainsi qu'on les rencontre dans les tableaux... En effet, une collection ne concerne que des objets indexés dont les index sont des strings.
Par contre, ces objets peuvent être des concaténations formatés de strings (un séparateur fait l'affaire, ici le point-virgule)
Ex :

Code :

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

1
2
3
4
5
6
7
8
9
Dim Collect as new collection, i as byte, lemot as string, tablo as variant
    lemot = "coucou; " & "c'est; " & "moi; " & "avec; " & "mes; " & "gros; " & "sabots"
    Collect.add LeMot, "un"
 
    'récupération des strings concaténés
    Tablo = split(Collect("un"),";")
    For i = 1 to ubound(Tablo)
         msgbox tablo(i)
    next

[taratata_69]

je n'ai pas de fichiers logon.xls(excel 2002).
le but de la déprotection est de lancer un programme pour modification des données des fichiers xls puis de reprotéger les classeurs avant fermeture de ces derniers.

Cordialement

[ouskel'n'or]

Tu connais donc les mots de passe de tous les classeurs et tu veux que la macro déprotège les classeurs afin d'effectuer les modifs sans intervention de l'utilisateur ?
Si c'est ça, alors c'est beaucoup plus simple

Code :

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

1
2
3
4
5
6
7
Sub Proteger()
    ActiveWorkbook.Protect Password:="blabla" ', Structure:=True, Windows:=False
End Sub
 
Sub Deproteger()
    ActiveWorkbook.Unprotect "blabla"
End Sub

Mais si ce n'est pas ça essaie d'être clair.
Pour les mots de passe, si tu dois les mettre en clair dans la procédure, alors protège également le code -> Dans l'éditeur VB -> Outils -> Propriété de VBAProject -> Onglet Protection
Ce n'est pas terrible comme protection mais c'est mieux que rien
A+