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

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

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.