Discussion :

[skystef]

Bonjour,

J'ai une fonction qui déprotège un classeur excel et une autre qui doit reproteger ce classeur. Je déprotège un classeur pour pouvoir copier la feuille dans une autre.

La déprotection fonctionne mais la protection ne semble pas marcher même si à l'exection je n'ai aucun message d'erreur.

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
'cette fonction déprotège la feuille Excel ciblée
Sub SheetUnprotect(ByVal sFeuilleADeproteger As String, ByVal Password As String, wsExcel As Excel.Worksheet)
        Application.ScreenUpdating = False
        'Worksheets(sFeuilleADeproteger).Unprotect (Password)
        wsExcel.Unprotect (Password)
        'ActiveWorkbook.Close savechanges:=True
        MsgBox ("La feuille est déprotegée")
End Sub
 
Sub SheetProtect(ByVal sFeuilleADeproteger As String, ByVal Password As String, wsExcel As Excel.Worksheet)
        Application.ScreenUpdating = False
        'Worksheets(sFeuilleADeproteger).Unprotect (Password)
        wsExcel.Select
        wsExcel.Protect (Password)
        'ActiveWorkbook.Close savechanges:=True
        MsgBox ("La feuille est protegée")
End Sub

Je ne comprends vraiment pas pourquoi...

[ouskel'n'or]

Tu passes une feuille sFeuilleADeproteger en paramètre à ta Sub SheetProtect mais tu ne l'utilises pas.
Tu utilises wsExcel qui doit être l'instance, soit l'appli soit le classeur mais tu ne la déclares pas, ni avec Dim ni avec set.
Comme tu l'as bien pris quelque part, mets nous le code qui l'instancie, on tâchera de trouver quelque chose

[skystef]

Tu passes une feuille sFeuilleADeproteger en paramètre à ta Sub SheetProtect mais tu ne l'utilises pas.
Tu utilises wsExcel qui doit être l'instance, soit l'appli soit le classeur mais tu ne la déclares pas, ni avec Dim ni avec set.
Comme tu l'as bien pris quelque part, mets nous le code qui l'instancie, on tâchera de trouver quelque chose

Voici le code qui appelle ces fonctions :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub Traitements_Mois()
Dim p As String, f As String, S As String, a As String, r As Byte, Tete As String, Aorig As String
Dim c As Byte, file As file, templateFile As file
Dim appExcel    As Excel.Application
Dim wbExcel     As Excel.Workbook
Dim wsExcel     As Excel.Worksheet
 
Application.ScreenUpdating = False
For Each file In dossier.Files
    'Ouverture de l'application
    Set appExcel = CreateObject("Excel.Application")
    'Ouverture d'un fichier Excel
    Set wbExcel = appExcel.Workbooks.Open(file)
    'wsExcel correspond à la première feuille du fichier
    Set wsExcel = wbExcel.Worksheets("Activité mois")
    f = file.Name
    'Workbooks.Open file
    CopieActivite file, wsExcel
 
Next
End Sub
'Cette fonction permet de déproteger les fichiers des collaborateurs et d'appeler le module de copie (module 1)
Sub CopieActivite(file As file, wsExcel As Excel.Worksheet)
    Dim Dfile As String
    Dim nomFeuille
    'nomFeuille = Worksheets("Activité mois").Cells(1, 10).Value     'on récupère le nom du salarié de la feuille en cours
    nomFeuille = wsExcel.Cells(1, 10).Value
    Dfile = DestinationFile & ".xls"
    MsgBox ("je suis là")
    Call SheetUnprotect("Activité mois", "viveVBA", wsExcel)
    'Workbooks.Open PathTemplate 'on ouvre le template que si on est au dernier passage
 
    Call CopierFeuilleExcel(file, Dfile, "Activité mois", nomFeuille)
    Call SheetProtect("Activité mois", "ViveVBA", wsExcel)
 
    Exit Sub
 
End Sub

Ce qui est bizarre c'est que la déprotection fonctionne!

[ouskel'n'or]

Y'a un truc qui me gène. Tu utilises file comme variable. (Dim file as file, ça ne te fait pas bizarre ?) C'est un mot clé et ce n'est pas recommandé. Il y a des moments où Excel ne doit plus savoir où il en est.
Ceci dit, je ne pense pas que ça vienne de là mais je n'ai pas encore trouvé