Discussion :

[bakman]

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

[bakman]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@++