Protection de document Word depuis Visual Studio 2010
vbjpc
Messages postés7Date d'inscriptionmercredi 1 novembre 2000StatutMembreDernière intervention 3 avril 2012
-
3 avril 2012 à 12:49
vbjpc
Messages postés7Date d'inscriptionmercredi 1 novembre 2000StatutMembreDernière intervention 3 avril 2012
-
3 avril 2012 à 17:55
Bonjour,
Je développe une application qui interface avec Word et Excel. Après avoir créer un document Word (depuis Visual Studio 2010) je le protège afin que les utilisateurs ne puissent pas le modifier, c'est à dire qu'une fois ouvert il ne peuvent que lire sans pouvoir modifier. Par contre, je voudrais pourvoir autoriser certains utilisateur à apporter des modifications.
Voici mon code
Private Sub ButtonTestDivers_Click(sender As Object, e As System.EventArgs) Handles ButtonTestDivers.Click
Dim WordApp As Microsoft.Office.Interop.Word.Application
Dim WordDoc As Microsoft.Office.Interop.Word.Document
Dim WordSection As Microsoft.Office.Interop.Word.Section
Dim WordRange As Microsoft.Office.Interop.Word.Range
WordApp = CType(CreateObject("Word.Application"), Microsoft.Office.Interop.Word.Application)
WordApp.Visible = True
WordDoc = WordApp.Documents.Open("P:\Compta\_Essais.docx")
WordSection = WordApp.ActiveDocument.Sections(1)
WordRange = WordSection.Headers(Microsoft.Office.Interop.Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
WordRange.Delete()
WordApp.ActiveDocument.Protect(Microsoft.Office.Interop.Word.WdProtectionType.wdAllowOnlyReading, False, "xxxxx", False, False)
End Sub
La dernière ligne protège le document. Que faut-il ajouter pour permettre à certains utilisateurs de modifier ?
En VBA Word j'avais ceci qui me permettait de le faire :
Sub Macro1
Selection.Editors.Add "serveur\util1"
Selection.Editors.Add "serveur\util2"
ActiveDocument.Protect Password:="xxxxx", NoReset:=False, Type:=wdAlloOnlyReading, UseIRM:=False, EnforceStyleLock:=False
end sub
Merci d'avance si vous avez une solution
A voir également:
Protection de document Word depuis Visual Studio 2010