Comment savoir si unclasseur est protege par un mot de passe avant de l'ouvrir

[yo]

Bonjour,
Est-ce que quelqu'un sait comment on peut savoir si un classeur Excel est protégé par un mot de passe avant d'essayer de l'ouvrir.

Je dois lancer une "moulinette" sur beaucoup de fichiers Excel.
Si, dans le tas, il y a en 1 qui est protégé, celà va bloquer le traitement des fichiers, sur la fenêtre demandant le mot de passe.

D'avance Merci.

 

[Ti]

Voilà un test simple qui te permettra de savoir si le fichier que tu veux ouvrir est bien ouvert ou non et donc de réagir en conséquence :

Private Function OuvreFichier(StrFichier As String) As Workbook
Dim Fichier As String
On Error Resume Next
Set OuvreFichier = Workbooks.Open(StrFichier, Password:="")
On Error GoTo 0
End Function

Sub testOuverture()
Dim Fichier As String, WbK As Workbook
Fichier = "c:\temp\test.xls"
Set WbK = OuvreFichier(Fichier)
If WbK Is Nothing Then
MsgBox "Erreur à l'ouverture de " & Fichier
Else
MsgBox "Je m'appelle " & WbK.Name
End If
End Sub

 

[yo]

Merci beaucoup

Ca marche très bien.
Effectivement, c'est un test très simple ,mais encore fallait-il y penser !!!

Merci encore et bonne continuation.