Discussion :

[Fredovsky]

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 :

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

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 !

[fring]

Bonjour,

Essaye comme ceci

Code :

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

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

[Fredovsky]

Bravo et merci !!!

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

[yananda]

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
qu'il est impossible d'enregistrer le fichier excel concerné !!

comment faire alors ???

[fring]

En effet, en effectuant l'essai de ce code je me suis aperçu non sans en
qu'il est impossible d'enregistrer le fichier excel concerné !!

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
.