Activer désactiver protection structure par macro

Bonjour,

J'ai une protection sur la structure et je souhaiterais l'enlever avant les traitements et la remettre ensuite :

J'ai ce code mais il ne fonctionne pas :

    ActiveWorkbook.Unprotect Password:="toto", structure:=False
    'traitement
    ActiveWorkbook.Unprotect Password:="toto", structure:=True

Merci par avance

Bonjour,

Voir fichier et ses 2 procédures.

Cdlt.

Option Explicit
'Option Private Module
Dim PWD As String

Public Sub ProtectWorkbook()

    On Error GoTo err_Handler

    PWD = InputBox("Entrez le mot de passe.")
    If PWD = "" Then Exit Sub
    ActiveWorkbook.Protect _
            Structure:=True, _
            Windows:=False, _
            Password:=PWD
    MsgBox "Le classeur est maintenant protégé."
    Exit Sub

err_Handler:
    MsgBox "La protection du classeur a échoué."
    Exit Sub

End Sub

Public Sub UnProtectWorkbook()

    On Error GoTo err_Handler
    PWD = InputBox("Entrez le mot de passe.")
    If PWD = "" Then Exit Sub

    ActiveWorkbook.Unprotect _
            Password:=PWD
    MsgBox "La protection du classeur est désactivée."
    Exit Sub

err_Handler:
    Application.DisplayAlerts = False
    MsgBox "La protection du classeur est toujours active - Mot de passe incorrect."
    Application.DisplayAlerts = True
    Exit Sub

End Sub

Bonsoir,

Essaye avec ce code :

Sub test()
    ActiveWorkbook.Unprotect Password:="toto"
    'traitement
    ActiveWorkbook.Protect Password:="toto"
    ActiveWorkbook.Protect Structure:=True
End Sub

    ActiveWorkbook.Unprotect Password:="toto"
    ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:="toto"

Merci fonctionne parfaitement