interdire d'enregistrer sous un autre nom

  • Initiateur de la discussion fanchic
  • Date de début
F

fanchic

Guest
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

XLDnaute Barbatruc
Repose en paix
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'

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson