Bonjour,
Voici le code te permettant d'ouvrir un fichier Excel protégé par mot de passe :
Sub ouvre()
Dim mdp As Variant
debut:
mdp = Application.InputBox("Saisissez votre mot de passe", _
"Protection fichier", "Mot de passe", , , , , 1 + 2)
If mdp = False Then Exit Sub
If mdp <> "toto" Then
GoTo debut
End If
Workbooks.Open "c:\windows\bureau\classeur1.xls", , , , mdp, mdp
End Sub
Dans le code ci dessus, si l'utilisateur clique sur le bouton Annuler ou sur la croix de fermeture, le programme se termine sans rien faire :
If mdp = False Then Exit Sub
Par contre, si un mot de passe est saisi, il est comparé avec le vrai mot de passe et s'ils sont différents, le mot de passe est redemandé jusqu'à ce que le mot de passe saisi soit le bon :
If mdp <> "toto" Then
GoTo debut
Une fois le bon mot de passe saisi, le classeur demandé est ouvert en y spécifiant le mot de passe de lecture et le mot de passe d'écriture :
Workbooks.Open "c:\windows\bureau\classeur1.xls", , , , mdp, mdp
Voilà.
@+
Ronan