[VBA-W] probleme de protection formulaire

[benco]

bonjour jje pensais toucher au but, mais voilà qu'il me met un debogage sur la derniere ligne de mon code (erreur d'exe 4641 : L'instruction ToolsProtectDocument est actuellement désactivée)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_ Click
 
num = ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value
num = num + 1
 
ActiveDocument.Unprotect
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
ActiveDocument.AttachedTemplate.AutoTextEntries("numéro").Value = num
Selection.TypeText Text:="N° " & num & /2006
num = Right("0000" & num, 4)
SendKeys "o"
ActiveDocument.SaveAs FileName:="N" & num & ".doc"
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True     'meme avec False ça ne marche pas 
 
End Sub

c'est un formulaire avec une numerotation et sauvegarde auto, activé par un bouton

si quelqu'un pouvait me dire en fait comment reproteger mon formulaire ? merci d'avance

[ouskel'n'or]

Et si tu prends la syntaxe de l'aide en ajoutant With ?

Code :

1
2
3
4
Set myDoc = ActiveDocument.name
With myDoc
     .Protect Type:=wdAllowOnlyFormFields
End with

si NoReset:=false, comme c'est l'état par défaut, tu n'as pas besoin de le mettre

A+

[benco]

ça ne marche pas non plus, toujours la meme erreur

de plus, j'ai essayé aussi en enregistrant lla macro qui permet de remettre la protection formulaire, j'ai recopié cette ligne de commande dans mon code... je relance et là il me ressort un debogage!!!!!!

aurais je oublié qque chose dans le code ailleurs ?? je ne vois pas du tout d'ou viens le probleme !!!

si qqu'un y voit plus clair ? merci d'avance

[ouskel'n'or]

As-tu vérifié si une "Référence" n'est pas désactivée ou absente ? Outils -> Références. Si elle n'existe pas, elle est marquée "MANQUANT"

A+

[benco]

je viens de regarder, je ne vois pas marqué "manquant" et j'en ai qques unes de cochées !!!

je viens d'essayer en mettant comme ligne de code une protection sur les modifcations et celle ci fonctionne !!! mais la protection du formulaire toujours pas !!!

j'y pige plus rien 8)

[ippo_master]

Benco, je me retrouve dans le même cas que toi avec ce message d'erreur mystérieux qui ne veut pas reprotéger le formulaire.
Je visais à la fermeture un unprotect et un protect enchaîné et il me dit "va te ..."
J'ai donc visé une solution alternative.
En fermeture, je fais mon unprotect car j'en ai absolument besoin dans le déroulement de la macro mais je ne remets pas la protection (il veut pas de tt façon).
Donc en ouverture du fichier word, je lui dit de recoller la protect et là ça roule comme sur des roulettes.