Verrouillage d'une liste de fichiers.

[miguelangelo]

Bonjour à tous,

j'ai essayé de bricoler une macro qui me permet de deverrouiller une liste de fichiers.

la macro me demande quel est le mot de passe pour deverrouiller l'ensemble des onglets dans le fichier. Je me demande si cette information doit etre entrée en String.Au déroulement j'ai comme l'impression que l'information est altérée...

ou peut etre que je me fais des films tout seul ..

en tout cas merci d'un ptit coup de main




Sub deverouiller()
Dim Code As String, fichier As String
Dim f As Worksheet, C As Range

Code = InputBox(prompt:= _
"Renseigner le mot de passe pour deverrouiller tous les fichiers", _
Title:="Votre MDP")

If Code = "" Then GoTo fin

Application.Run "ouvre"
traitement:
For Each C In Range("b24:b80")
If C = "" Then GoTo suivant
If C.Offset(0, 1) = "o" Then GoTo suivant

Range("b10") = Range("b6") & "\" & C 'me permet de constituer l'adresse du fichier en fonction de C
fichier = Range("b10")
Workbooks.Open Filename:=fichier

For Each f In ActiveWorkbook.Worksheets
f.Unprotect Password:=Code
suivant2:
Next f

ActiveWorkbook.Close SaveChanges:=True

suivant:
Next C

Application.Run "ferme"
GoTo fin


fin:

End Sub

 

[Pierrot93]

Re : Verrouillage d'une liste de fichiers.

Bonjour miguelangelo,

le type de donnée "string" devrait passer, bien que l'argument "password" soit de type variant, cf extrait de l'aide vba :

Password Argument de type Variant facultatif

bon après midi
@+