Discussion :

[devjp]

Bonjour,

Je développe une application avec Visual Studio 2010 en VB et je créer des documents Word et Excel (2010).

J'arrive à protéger les documents afin qu'ils ne puissent être modifié. Par contre, je voudrais pouvoir autoriser certains utilisateurs à avoir tous les droits sur ces documents protégés. Comment faire ?

Voici mon code actuel :

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
 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

Comment maintenant autoriser un utilisateur à avoir tous les droits sans supprimer l'interdiction de modification aux autres utilisateurs ?

Merci beaucoup de votre réponse

[devjp]

J'ai trouvé une solution, pas forcément la meilleure :

Code :

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

1
2
3
4
5
6
7
8
9
10
        If WordApp.ActiveDocument.ProtectionType = Microsoft.Office.Interop.Word.WdProtectionType.wdNoProtection Then
            WordApp.ActiveDocument.Protect(Microsoft.Office.Interop.Word.WdProtectionType.wdAllowOnlyReading, False, "xxxx", False, False)
        End If
 
        WordRange = WordApp.ActiveDocument.Sections(1).Headers(Microsoft.Office.Interop.Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
        WordRange.Editors.Add("serveur\xxx")
        WordRange = WordApp.ActiveDocument.Sections(1).Footers(Microsoft.Office.Interop.Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
        WordRange.Editors.Add("serveur\xxx")
        WordRange = WordApp.ActiveDocument.Range
        WordRange.Editors.Add("serveur\xxx")

L'idéal serait de pouvoir donner les droits à l'utilisateur pour tout le document en une seule opération.

Si vous en trouvez une, je suis preneur, merci