Discussion :

[payadz2]

bonjour
j'ai un formulaire que je dois remplir (nom, dates, action prévue, etc...)
j'arrive à bien enregistrer sous un nouveau nom (celui du champ "nom") le formulaire de départ en conservant les valeurs entrées, il est donc censé servir ensuite en cas de modifications
merci https://www.developpez.net/forums/d1...d-fichier-doc/
en revanche je n'arrive pas à l'enregistrer avec les restrictions de modifications identiques
j'ai essayé "enregistrer macro": développeur > restreindre modification > remplissage de formulaires > activer la protection > mot de passe
et cela donne une macro vide
je n'ai pas trouvé sur google la manière d'enregistrer un doc avec ces restrictions, soit refaire le même formulaire, mais avec des valeurs par défaut différentes
si quelqu'un a une idée je suis preneur
merci d avance

[Invité]

Bonjour,

A tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
 
Option Explicit
 
Sub TestProtection()
 
    MettreLaProtection Documents("Essai de formulaire.docm")
 
End Sub
 
Sub MettreLaProtection(ByVal DocDuFormulaire As Document)
 
    With DocDuFormulaire
         .CommandBars("Restrict Editing").Visible = False
         .Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields, UseIRM:=False, EnforceStyleLock:=False
    End With
 
End Sub
 
 
 
Sub TestDeDeprotection()
 
    Deproteger Documents("Essai de formulaire.docm")
 
End Sub
 
Sub Deproteger(ByVal DocDuFormulaire As Document)
 
    With DocDuFormulaire
         .Unprotect
         .CommandBars("Restrict Editing").Visible = True
    End With
 
End Sub

[payadz2]

merci
je teste ce matin
je ne connaissais même pas l existence de ces fonctions de word !

[payadz2]

probleme!
j ai une erreur 5 "Erreur au moment de l'exécution 5 : appel de procédure non valide ou argument"
j'ai appelé la procédure par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call MettreLaProtection(activedocument)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub MettreLaProtection(ByVal DocDuFormulaire As Document)
 
    With DocDuFormulaire
         .CommandBars("Restrict Editing").Visible = False '<<<< ERREUR 5
         .Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields, UseIRM:=False, EnforceStyleLock:=False
    End With
 
End Sub

[Invité]

Il vous faut lancer la procédure depuis le document d'origine pas sur la copie.

[payadz2]

oui c'est le cas
appel avant enregistrement sous un autre nom.
je me suis servi de vos indications pour modifier directement le formulaire d origine avant enregistrement sous un nouveau nom...
et ça fonctionne
j'ai ensuite un enregistrement en pdf pour "fixer" les items modifiés
et un nouveau formulaire vec un nouveau nom sur lequel je peux à nouveau faire la même manœuvre
MERCI

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
'Call MettreLaProtection(ActiveDocument) 'inactivé
With ActiveDocument
.Protect Password:="", NoReset:=True, Type:=wdAllowOnlyFormFields, UseIRM:=False, EnforceStyleLock:=False
End With
 
    ActiveDocument.SaveAs2 FileName:= _
        ttnomDOC, FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=True, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False, CompatibilityMode:=0

Merci encore

PS le truc curieux c'est que a chaque changement on a password="" alors que le nouveau formulaire est bien protégé par le même passw que celui d origine.
c'est exactement ce que je souhaite, mais je ne comprend pas pourquoi !