Protège le document Word courant contre les modifications.
Si un document est protégé, l'utilisateur ne peut lui apporter que des modifications limitées, comme ajouter des commentaires, effectuer des changements (ajouts et suppressions) signalés par des marques de suivi des modifications, ou remplir un formulaire.
Syntaxe
CHGVAR |
VAR(&CMD) VALUE('WPROTECT') |
CHGVAR |
VAR(&PARM1) VALUE(' |
CHGVAR |
VAR(&PARM2) VALUE(' ') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
Paramètres
Paramètres |
|
Parm1 |
Level indique le niveau
de protection à appliquer au document. • wdAllowOnlyComments : Seul des commentaires peuvent être ajoutés. • wdAllowOnlyFormFields : Le document passe en mode saisie de formulaire. • wdAllowOnlyRevisions : Les modifications avec suivi sont autorisées. • wdNoProtection : Aucune protection.
PWD permet d'associer un mot de passe à la protection.
UnProtect permet d’enlever la protection au document. Seule l’option PWD est utile pour enlever la protection, les autres options de la commande sont ignorées
Les options suivantes ne s’appliquent que si Level est égal à wdAllowOnlyFormFields :
- Sections permet de choisir
les sections à protéger, ou à exclure de la protection. Les numéros des
sections sont données entre guillemets, séparés par virgule. - Exclude indique que les sections qui sont listées par le mot clé Sections ne doivent pas être protégées. Les autres sections seront protégées. - Add permet de protéger les sections listées. La protection des autres sections reste inchangée. - Remove enlève la protection des sections listées. La protection des autres sections reste inchangée.
Si les options Exclude, Add et Remove sont absentes, la protection est appliquée aux sections listées, et enlevée aux autres sections.
|
Remarque
Si le niveau wdAllowOnlyFormFields est appliqué à un document qui n'a pas de champs de formulaire, alors aucune modification ne sera possible sur le document.
Exemples
CHGVAR |
VAR(&CMD) VALUE('WPROTECT') |
CHGVAR |
VAR(&PARM1) VALUE('Level=wdallownonlycomments') |
CHGVAR |
VAR(&PARM2) VALUE(' ') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
CHGVAR |
VAR(&CMD) VALUE('WPROTECT') |
CHGVAR |
VAR(&PARM1) VALUE('Level=wdAllowOnlyFormFields') |
CHGVAR |
VAR(&PARM2) VALUE('Sections ="2,3,5"') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
CHGVAR |
VAR(&CMD) VALUE('WPROTECT') |
CHGVAR |
VAR(&PARM1) VALUE('Level= wdAllowOnlyFormFields) |
CHGVAR |
VAR(&PARM2) VALUE('Sections="*CURRENT";Exclude') |
CALL |
PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)) |
MONMSG |
MSGID(LNC0000) EXEC(GOTO CMDLBL(ERROR)) |
Voir aussi