interdire d'enregistrer sous un autre nom

[fanchic]

J'ai parcouru le forum, sans doute la réponse a déjà été donnée, mais je n'arrive pas à la trouver.

Je voudrais interdire l'enregistrement d'un fichier Excel sous un autre nom avec un message le signalant.

merci d'avance

 

[_Thierry]

Bonjour Fanchic, le Forum

Si si on a déjà répondu sur ce genre de question dans l'ancien Forum, mais bon vu que je l'ai sous la main, je ne te fais pas perdre du temps sur ton dimanche !

NB 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

A partir de là tu sauves ton fichier, mais tu n'auras 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..

Bon Dimanche
@+Thierry

Message édité par: _Thierry, à: 13/03/2005 11:21

 

[fanchic]

merci de préserver le reste de mon dimanche !
ça convient tout à fait à ce que je demandais.
encore merci et bonne fin de W.E.