Activer la protection Word en VB.net [Résolu]

Messages postés
8
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
17 novembre 2009
- - Dernière réponse : grob1
Messages postés
8
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
17 novembre 2009
- 17 nov. 2009 à 11:52
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.
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
7
3
Merci
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.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 196 internautes nous ont dit merci ce mois-ci

Commenter la réponse de us_30
Messages postés
2117
Date d'inscription
lundi 11 avril 2005
Statut
Membre
Dernière intervention
14 mars 2016
7
0
Merci
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.
Commenter la réponse de us_30
Messages postés
8
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
17 novembre 2009
0
Merci
merci ça fonctionne avec -1,

reste à trouver comment remettre la protection sur word.
Commenter la réponse de grob1
Messages postés
8
Date d'inscription
mercredi 17 juin 2009
Statut
Membre
Dernière intervention
17 novembre 2009
0
Merci
C'est bon :

ActiveDocument.Protect(Word.WdProtectionType.wdAllowOnlyReading, False, "mdp", False, False)

Merci
Commenter la réponse de grob1