> Tous les forums > Forum Bureautique
 enlever et remettre la protection d'un document Word en VBASujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
deb56
  Posté le 25/01/2018 @ 01:00 
Aller en bas de la page 
Petit astucien

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

Publicité
deb56
 Posté le 25/01/2018 à 11:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Page : [1] 
Page 1 sur 1

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

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

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

Sujets relatifs
Aucun sujet pertinent lié trouvé
 > Tous les forums > Forum Bureautique