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!!
cordialement
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
PS je me suis basé sur : http://www.developpez.net/forums/d47...foresave-word/
Partager