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