Désactiver la commande "Enregistrer sous"

Signaler
-
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
-
Bonjour
je veux bloquer l'enregistrement d'un classeur excel par l'utilisation de la commande "enregistrer sous".Pour cela,j'ai créé une macro dans le Thisworkbook;voici ma macro:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox ("Vous n'avez pas le droit d'enregister ce fichier sous un autre format")
End Sub

Mon probleme est que cette macro m'empeche totalement d'enregistrer or je veux simplement ne pas permettre l'enregistrement dans un autre format different de"xlsm"et un autre nom different.
Veuillez m'aider s'il vous plait

2 réponses

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
235
Bonjour,
Et qu'est-ce qui t'empêche de forcer alors le save au lieu du saveas ?
Ouvre ton aide vba sur chacun de cesd deux mots.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" facilitera les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement répéter son contenu. Je n'interviendrai que si nécessité de la compléter.
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
23 août 2018
18
Autrement tu peux regarder ce lien qui explique comment manipuler les rubans/menus sous 2007
http://silkyroad.developpez.com/excel/ruban/

et aussi celui-ci qui automatise le processus
http://www.vbfrance.com/codes/PERSONNALISATION-RUBAN-SOUS-EXCEL-2007-EME-VERSION_55169.aspx


MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI