Discussion :

[santadrix]

Bonjour à tous,

J'ai un problème tout con mais qui n'est pas encore résolu malgré mes recherches...Je me tourne vers vous!

J'ai un doc Word. Ce document à pour but de remplir une demande (d'habilitation), puis, en appuyant sur un bouton poussoir de la sauvegarder et d'envoyer un message mail (Cette partie fonctionne).

A la base ce document est protégé de la façon "remplissage de formulaire". Je souhaite, qu'après le "click" du bouton poussoir, faire que cette protection devienne "en lecture seule". Le problème est le suivant :

J'arrive à enlever le protection d'origine, puis à remettre une protection MAIS celle ci reste celle d'origine (Remplissage de formulaire). Je n'arrive pas à choisir mon type de protection....

Please help! Voici ma macro

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
Private Sub CommandButton1_Click()
    Dim ol As Object, monItem As Object
    Set ol = CreateObject("outlook.application")
    Set monItem = ol.CreateItem(olMailItem)
    
    CommandButton1.Enabled = False
    
    ActiveDocument.Unprotect
    ActiveDocument.Protect wdAllowOnlyReading, NoReset = True
    
    ActiveDocument.SaveAs FileName:="\\TERRE\Donneesidbc\Candidature Hebergement web\agrément\Test demande d'habilitation\demande essai\Demande de révocation-suspension du compte " & TextBox1.Text & " " & Format(Date, "dd") & "-" & Format(Date, "mm") & "-" & Format(Date, "yy") & ".doc"
    
    monItem.To = " foger@a2com.fr "
    monItem.Subject = "Demande de révoquation-suspension d'un compte utilisateur"
    monItem.Body = "Bonjour," & vbCrLf & vbCrLf & "Une demande de révoquation-suspension blablabla."
    
    monItem.Send
    Set ol = Nothing
    MsgBox "la demande a bien été transmise "
   
End Sub

[Heureux-oli]

Salut,

Le ReadOnly passe par la méthode SaveAs du document.

[santadrix]

Salut,

Bon en fait, ce sont mes boîtes de texte de formulaire que je n'arrive pas à protéger...

[Heureux-oli]

Salut,

Peut-être là : http://heureuxoli.developpez.com/off...mulaires/#L5-A

[santadrix]

J'étais déjà allé voir ce lien...mais rien n'y fait.

Par contre j'ai eu une autre idée, je voulais créer une boucle sur mes textbox et checkbox qui fasse passer leur statut "Locked" à True au lieu de false.

Je comptais intégrer cette macro avant la sauvegarde.

Problème toutes les macros que j'ai testées ne fonctionnent pas, et je suis allé voir sur bcp de pages...

Pourrais-tu m'aider une dernière fois?

Ps: Je viens de m'apercevoir que je me suis trompé de catégorie, je suis sous Word 2007...je ne sais pas si cela change bcp ou pas.

[santadrix]

Voici un code qui fonctionne chez les autres mais pas chez moi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim ctl As Control
 
 'Pour chaque contrôle du formulaire
For Each ctl In Me.Controls
 
    ' On verifie que le contrôle soit bien une zone de texte
    If TypeOf ctl Is textBox Then
 
            ctl.Locked = True
 
    End If
Next ctl

Il me renvoie Erreur de compilation sur "Me.Controls"

[Heureux-oli]

Salut,

Quels types de champs de formulaire utilises-tu ?

Je pense que c'est la source des problèmes.

[santadrix]

Salut,

Quels types de champs de formulaire utilises-tu ?

Je pense que c'est la source des problèmes.

Voici un lien vers mon fichier :

http://cjoint.com/?0CDkEk0MKBq

[Heureux-oli]

Salut,

ce ne sont pas des contrôles, mais des objets ActiveX qui sont des objets OLE

[santadrix]

Salut,

ce ne sont pas des contrôles, mais des objets ActiveX qui sont des objets OLE

Ma première tentative avait été avec cela mais j'avais le code erreur suivant "erreur de compilation, type défini par l'utilisateur non défini" avec "Dim obj As OLEObject" surligné...

[Heureux-oli]

Salut,

Pour avoir une idée, lance l'enregistreur de macro et ajoute un contrôle sur ton document.

[santadrix]

Pour avoir une idée, lance l'enregistreur de macro et ajoute un contrôle sur ton document.

Voici ce que cela donne :

Selection.InlineShapes.AddOLEControl ClassType:="Forms.TextBox.1"

[Heureux-oli]

Salut,

ça je le savais, mais c'est de là que tu dois partir, mais c'est pas gagné, comme on commence avec des inlineshapes, il faut faire une boucle sur les inlineshapes, ensuite en fonction du type, tu peux travailler sur ces objets.

[santadrix]

Pour le moment, j'en suis là (on m'a aidé) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Dim mesctl As InlineShape
 
For Each mesctl In ActiveDocument.InlineShapes
 
        'If.....Then
        'Action
 
 
          End If
 
 
Next mesctl

Et là je cherche la bonne formulation pour la condition et pour l'action.

[santadrix]

Voilà c'est enfin fini!

voici donc le code :

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
Dim mesctl As InlineShape
 
 
For Each mesctl In ActiveDocument.InlineShapes
 
        If Left(mesctl.OLEFormat.Object.Name, 7) = "TextBox" Then
        mesctl.OLEFormat.Object.Locked = True
End If
 
 
 
Next mesctl
 
 
 
End Sub

Merci à vous et merci à "Le Pingou" qui a écrit ce code!

Bonne fin de journée.