Mise en place d’une protection et deprotection document en vba

Bonjour à tous,

Je n’arrive pas à créer une macro pour protéger ou deproteger mon document en VBA.
Je suis en word 2003.

J’ai essayé en mode apprentissage, après la protection je n’ai plus d’accessibilité pour arrêter la macro. il y a bien une macro d'enregistrée mais avec rien comme code.

J’ai essayé les codes si dessous mais ça ne marche pas.
J’ai affecté les deux macros à deux touches (Ctrl+D et Ctrl+P) pour les lancer.

<code><Sub retrait_protection_doc()
'
' Retrait protection Macro
'
ActiveDocument.Unprotect

End Sub

Sub protection_doc()
'
' Je reprotège le document :

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End Sub
/code>

Merci pour votre aide

Bien cordialement