Discussion :

[XceSs]

Bonjour le monde, je souhaiterais qu'à l'ouverture de mon fichier word celui-ci passe en lecture seule. Est-ce possible svp.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Document_Open()
 
 ThisDocument.Activate
 'WordBasic.ViewChanges
 With ActiveWindow.View
        .ShowRevisionsAndComments = False
        .RevisionsView = wdRevisionsViewFinal
 End With
End Sub

Merci de votre aide

[Heureux-oli]

Salut,

Peut-être une piste :

Code :

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

activedocument.ReadOnly = True

[XceSs]

Merci mais cela ne fonctionne pas

Erreur de compilation: Impossible d'affecter à une propriété en lecture seule

[XceSs]

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Document_Open()
 ThisDocument.Activate
  ActiveDocument.ReadOnly = True
 'WordBasic.ViewChanges
 With ActiveWindow.View
        .ShowRevisionsAndComments = False
        .RevisionsView = wdRevisionsViewFinal
 End With
End Sub

[Heureux-oli]

Salut,

En général, on attribue cette propriété lors de l'ouverture, mais pas après l'ouverture.

Document_Open s'exécute lors que le document est déjà ouvert.

[XceSs]

Ok sauf que je connais pas trop les procédures sous word et je ne vois pas comment l'appliquer pendant l'ouverture

[Heureux-oli]

Salut,

Comment le fichier est-il ouvert ?

[XceSs]

Je l'ouvre en double cliquant sur le fichier excel se trouvant dans le répertoire windows

[XceSs]

Sur excel on peut le faire c'est pour ça :

Code :

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

1
2
3
Private Sub Workbook_Open()
 ThisWorkbook.ChangeFileAccess Mode:=xlReadOnly
End Sub

Il y a t'il une procédure similaire sur word ?

[Heureux-oli]

Salut,

Sous Word, lorsque le mode n'est pas demandé par la commande d'ouverture, on peut mettre le document en readonly avec cette commande :

Code :

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

ActiveDocument.Protect wdAllowOnlyReading

[XceSs]

Merci pour ton aide bonne soirée