Savoir si un le code VBA est protégé

Re bonjour je souhaiterais savoir s'il existe une fonction genre IsProtect afin de savoir si le code VBA est protégé ou pas. Car j'ai plusieurs fichiers à traité et pour certain le code VBA est protégé ce qui m'évitera d'envoyer le code via un Sendkey. Merci

Voici un code que j'ai trouvé sur la toile tout fonctionne sans problème:)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function ProtectedVBProject(ByVal wb As Workbook) As Boolean ' returns TRUE if the VB project in the active document is protected Dim VBC As Integer VBC = -1 On Error Resume Next VBC = wb.VBProject.VBComponents.Count On Error GoTo 0 If VBC = -1 Then ProtectedVBProject = True Else ProtectedVBProject = False End If End Function

---

@++