Activer la protection Word en VB.netRésolu

Question

Bonjour, en fait je veux déverrouiller un document Word, écrire dedans et remettre la protection.

J'ai 2 problèmes : 

_ je n'ai pas trouvé comment remettre la protection (je veux activer : "Autoriser ce type de modifications pour ce document : Aucune modifications"),

_ et le test qui vérifie la présence de protection ne fonctionne pas (
If ActiveDocument.ProtectionType <> wdNoProtection Then )
ca me met : "Le nom 'wdNoProtection' n'est pas déclaré. (BC30451)"

merci d'avance.

us_30 · Accepted Answer

Bonjour,

comment remettre la protection (je veux activer : "Autoriser ce type de modifications pour ce document : Aucune modifications"

Si tu utilises l'enregistreur de macro, tu obtiens de suite le code VBA ? :
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
        wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False

qui faudra adapter sous VB.NET pour le passage des paramètres (sans référence des paramètres, mais en tenant compte de leurs emplacements) peut-être ainsi :
ActiveDocument.Protect (3, "", False, False, False)

Amicalement,
Us.

us_30 · Answer

Bonjour,

C'est évident "wdNoProtection" est une constante interprétable que dans WORD. Utilise le debug pour en connaitre sa valeur et l'inclure ainsi dans VB.NET.

Ici : wdNoProtection = -1

Amicalement,
Us.

grob1 · Answer

merci ça fonctionne avec -1,

reste à trouver comment remettre la protection sur word.

grob1 · Answer

C'est bon :

ActiveDocument.Protect(Word.WdProtectionType.wdAllowOnlyReading, False, "mdp", False, False)

Merci

Activer la protection Word en VB.net

4 réponses

Votre réponse