enlever et remettre la protection d'un document Word en VBA

enlever et remettre la protection d'un document Word en VBA Sujet résolu

deb56

Posté le 25/01/2018 @ 01:00

Bonjour à tous.
Je cherche à insérer dans une macro VBA la levée puis la remise de la protection du document Word (2003).

J'ai essayé les formules "thisdocument.protect = false (puis true)", mais le test me met en erreur.

Vos lumières me seraient utiles.

Merci d'avance. Cdt

[Configuration automatique à compléter]
Windows 10
Chrome 63.0.3239.132

deb56

Posté le 25/01/2018 à 11:19

Bonjour à tous.

J'ai essayé de résoudre mon problème ci-dessus par enregistrement. Ma formule était fausse: ça s'exprime:

"ActiveDocument.Unprotect" et "ActiveDocument.Protect", mais la seconde formule arrête et annule l'enregistrement, si bien que je ne sais pas donner les arguments, à savoir dans le cas présent: 1) autoriser le remplissage des formulaires 2) ne pas mettre de mot de passe (Password:= None ???).

Enfin, comment faut-il écrire ces arguments en VBA? Entre parenthèses?

A nouveau, merci par avance de vos aides. Cdlt

deb56

Posté le 25/01/2018 à 14:50

Bonjour à tous.

En continuant à tâtonner, j'ai trouvé la solution: ça s'écrit:

ActiveDocument.Unprotect Password:="******" et ActiveDocument.Protect wdAllowOnlyFormFields, Password:="******".

Je vous le donne au cas où ça intéresserait quelqu'un d'autre. Et je note le sujet comme Résolu.

Cdlt

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !

Les bons plans du moment PC Astuces

Tous les Bons Plans

49,99 €

Carte mémoire microSDXC UHS-I SanDisk Ultra 400 Go à 49,99 €
Valable jusqu'au 22 Mai

Cdiscount propose la carte mémoire microSDHC UHS-I SanDisk Ultra 400 Go à 49,99 €. On la trouve trouve ailleurs à partir de 70 €. Cette carte mémoire offre des vitesses jusqu'à 100 Mo/s et est idéale pour les téléphones, caméras et appareils photo HD. Elle est certifiée GoPro, Nintendo Switch et est accompagnée d'un adaptateur SD.

> Voir l'offre

299,99 €

NAS QNAP TS-431P2-1G 4 baies (quad core, 1 Go RAM, LAN 2.5 GbE) à 299,99 €
Valable jusqu'au 21 Mai

Amazon propose actuellement le NAS QNAP TS-431P2-1G 4 baies à 299,99 €. On le trouve ailleurs à partir de 360 €. Doté d'un processeur Quad-Core 1.7 Ghz Alpine AL-314 et d'une connectivité LAN 2.5 GbE, le QNAP TS-431P3 à 4 baies 2.5"/3.5" offre aux particuliers de multiples fonctionnalités dont la sauvegarde basée sur les snapshots, la synchronisation des fichiers et les services de cloud privé. Le TS-431P3 est également un centre de divertissement pour les particuliers pour diffuser des photos, de la musique et des vidéos vers plusieurs appareils que ce soit localement ou par internet.

> Voir l'offre

34,99 €

Télémètre laser POPOMAN (60 m, surface, volume, bluetooth) à 34,99 €
Valable jusqu'au 21 Mai

Amazon fait une promotion sur le télémètre laser POPOMAN qui passe à 34,99 € au lieu de 69,99 € grâce à un coupon à activer sur la page du produit. Précision de mesure de ± 2mm, plage de mesure 60 m, calcule distance, surface et volume, 99 mémoires de données, écran 2.25 pouces rétro éclairé, recharge via USB C, retardateur de mesure, export des mesures via Bluetooth sur téléphone pour création de fichiers CAO : cartographie, finition intérieure, ameublement, analyse d'ensoleillement, ...

> Voir l'offre