Bloquer l'enregistrement d'Excel, VBA

Version imprimable

Bonjour,

J'ai un fichier excel que je compte partager avec beaucoup de monde sur un seul ordinateur.
Pour éviter de perdre des données a cause de mauvaises manip de chacun des utilisateurs, je souhaite bloquer l'enregistrement, de sorte que le fichier retrouve son intégrité à chaque fermeture.

Pour cela j'ai utilisé le code suivant :
Code:

1 2 3 4 5 6 7 8 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) On Error Resume Next If Not [Sauvegarde] Then ActiveWorkbook.Names.Add Name:="Sauvegarde", RefersTo:=True Else Cancel = True End If End Sub
Cela fonctionne, à la fermeture il affiche le message "Voulez vous enregistrer les modifications ?", et quelque soit la réponse, il n'enregistre pas.

J'aimerai cependant améliorer la chose en n'affichant pas ce message de demande d'enregistrement des modifications.

Sauriez-vous me dépaner ?
Merci !

Bonjour,

Essaye comme ceci

Code:

1
2
3
4
5
6
7
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ThisWorkbook.Saved = True
End Sub
 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
End Sub

02/10/2008, 10h20
Fredovsky

Bravo et merci !!!

C'est exactement ce qu'il me fallait !!!

:D
15/10/2008, 16h26
yananda

Un petit paradoxe se créer alors

Bonjour !

Un petit paradoxe se créer alors !!
En effet, en effectuant l'essai de ce code je me suis aperçu non sans en :lol:
qu'il est impossible d'enregistrer le fichier excel concerné !!
:P:D
comment faire alors ???
15/10/2008, 17h05
fring

Citation:

Envoyé par yananda

En effet, en effectuant l'essai de ce code je me suis aperçu non sans en :lol:
qu'il est impossible d'enregistrer le fichier excel concerné !!
:P:D
comment faire alors ???

Bonjour,

C'était bien le but de la question empêcher l'enregistrement du fichier, si tu veux pouvoir l'enregistrer bin...tu n'utilises pas ce code :mrgreen:
.