Discussion :

[medjahedmejdoub]

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 :

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

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