la protection d'un classeur Excel par un mot de passe

Salut, j'ai un problème sur la protection d'un classeur Excel par un mot de passe
Par exemple si j'ai une feuille Excel nommée test je voudrai maintenant tester si elle est protégé ou non
après l'exécution, le code fait sortir une erreur dont je ne sais pas d'où elle intervient!!?
voici le code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim appxl Dim cible Set WshShell = WScript.CreateObject("WScript.Shell") Set appXl = CreateObject("Excel.Application") Set cible=appxl.ActiveWorkbook   'Teste si le classeur est protégé. If Not (Cible.ProtectStructure Or Cible.ProtectWindows) Then MsgBox "Le classeur actif n'est pas protégé. " & vbCrLf & vbCrLf & "Andouille !", vbOKOnly, "Déprotectionnateur" End If   With appxl .Workbooks.Open "C:\Test.xlsx" .Visible = True .DisplayAlerts=False .Workbooks.Add   End With

---

Salut;

Il s'agit tout simplement de l'ordre des instructions :

Code:

---

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

Dim appxl, cible Set WshShell = WScript.CreateObject("WScript.Shell") Set appXl = CreateObject("Excel.Application")   With appxl .Workbooks.Open "C:\Test.xlsx" .Visible = True .DisplayAlerts=False '.Workbooks.Add ' Pourquoi cette ligne ? End With   Set cible=appxl.ActiveWorkbook If Not (Cible.ProtectStructure Or Cible.ProtectWindows) Then MsgBox "Le classeur actif n'est pas protégé.", vbOKOnly, "Déprotectionnateur" End If

---