Impossible de choisir le type de protection via une macro

* Santadrix
Anonyme
Envoyé le 20/03/2012 à 10:26

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

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:="\TERREDonneesidbcCandidature Hebergement webagrémentTest demande d'habilitationdemande essaiDemande 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


Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum