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 !