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

[l_autodidacte]

Salut;

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

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
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