bonjour à tous voici depuis pas mal de temps je voulais bloquer la sauvegarde du document word et je n'avais pas trouvé de solution....

je viens de trouver une solution... donc je vous la partage en espérant que cela vous serve!!

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
Option Explicit
 
Dim WithEvents oWdApp As Word.Application
 
Sub Document_Open()
    Set oWdApp = Word.Application
End Sub
 
Sub oWdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, cancel As Boolean)
    MsgBox "vous ne pouvez pas enregistrer ;)"
    cancel = True
End Sub
 
Private Sub Document_Close()
    ActiveDocument.Saved = True
End Sub
cordialement

PS je me suis basé sur : http://www.developpez.net/forums/d47...foresave-word/