Bonjour,
Je souhaiterais savoir s'il est possible de désactiver "enregister" pour obliger l'utilisateur à passer par "enregistrer sous" afin d'éviter de m'écraser automatiquement le fichier à chaque enregistrement. J'ai trouvé beaucoup de discussions pour faire l'inverse mais pas pour ça. Quelqu'un pourrait-il me donner un coup de main ?
Re : Désactiver "enregister" pour obliger à passer par "enregistrer sous"
Bonjour,
essaye ceci, à placer dans le module "thisworkbook" :
Code:
Option Explicit
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not SaveAsUI Then MsgBox "passer par enregistrer sous...": Cancel = True
End Sub