Bonsoir bencourrie, le Forum,
D'après fichier de papynovice
INTERDIRE ENREGISTRER SOUS.
De : _Thierry sur Excel-Downloads.
Code à mettre dans le Private Module de 'ThisWorkBook'
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
' SaveAsUI est VRAI si on vient de Fichier / Enregistrer sous
' et FAUX si on vient de Fichier / Enregistrer
' si on met Cancel à VRAI, l'enregistrement n'a pas lieu
If SaveAsUI = True Then
MsgBox 'Le changement de nom est interdit !', vbExclamation + vbOKOnly, 'Attention'
Cancel = True
End If
End Sub
On a plus le droit de faire Sauver Sous (donc pas de possibilité de changer de nom). Ceci n'est valable que depuis le fichier ouvert dans Excel. Mais celà n'empêche pas de sauver le fichier fermé sous un autre nom depuis l'explorateur de Windows.
En espérant que cela te conviendra
Amicalement