Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

interdire enregistrer mais pas enregistrer sous

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion sri75
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

sri75

XLDnaute Occasionnel
Bonjour j'ai un fichier que je désire faire enrgistrer uniquement à l'aide d'un bouton qui lance une macro de type saveas.

j'ai essayé d'adapter le code suivant récupéré sur la forum mais ca ne marche pas.

Mon adaptation fonctionne pour un opération manuelle ( clic sur icone ou enregistrer sous du menu mais pas en faisant appel à la fonction saveas qui est alors considérée comme un 'enregistrer'.

Merci de votre aide.

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
 
Trier par date Trier par votes
Bonjour

Si j'ai bien compris, ta fonction doit faire l'inverse du code de thierry

plus simplement cela s'appelle sous l'explorateur : clic droit sur fichier propriétés lecture seule

A+
 
Vote positif 0 Vote négatif
re

donc tu voudrais n'autoriser l'enregistrement que si le nom change ?

j'avoue que j'ai du mal à comprendre ton fil car tu commences enparlant de saveas et ensuite tu donnes un exemple qui interdit l echangement de nom

Que veux-tu ?
 
Vote positif 0 Vote négatif
Je vais essayer d'être plus clair.

Ce fichier sert à saisir des données qui sont récupérées dans une macro pour se rajouter au nom du fichier lors de l'enregistrement via un bouton macro ( le fameux saveas ).

La récupération de ces données étant obligatoire le fichier doit être sauvegardé que par l'utilisation du bouton macro et en aucun cas par les menus 'enregistrer' ou 'enregistrer sous' qui ne permettent pas de récupérer les données stockées dans les variables de ma macro.

j'espère avoir été plus clair cette fois.

Merci encore pour ton aide.
 
Vote positif 0 Vote négatif
Bonjour à tous

Pour le enregistrer sous la personne pourra toujours enregistrer sous en remplacent le classeur actuel.

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Pour empêcher cela tu devras y automatisé une sauvegarde dans🙁si tu la veut on peut te la faire)

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
inputbox ....sous quel nom voulez-vous sauvegarder?
ActiveWorkbook.SaveAs Filename:= _
'ton chemin\\input & .xls', FileFormat:= _
xlNormal, Password:='', WriteResPassword:='', ReadOnlyRecommended:=False _
, CreateBackup:=False
End Sub

Pour lecture seul regarde le zip (code 1234)

A+

Temjeh
[file name=Lecture_seule.zip size=15780]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Lecture_seule.zip[/file]
 

Pièces jointes

Vote positif 0 Vote négatif
Le fichier zippé de thierry est protégé par un mot de passe.

La solution serait peut être d'interdire toute commande via les menus au profit de la commande macro.

J'avais aussi pensé masquer les commandes du menu mais à ce moment là celui qui a saisi les données ne peut plus quitter excel.

je craque un peu !

Merci à tous
 
Vote positif 0 Vote négatif
Finalement la solution était très simple :

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call enreg
Exit Sub

enreg étant ma macro qui récupère les données dans les variables.

Si l'utilisateur clique sur enregistrer il chaine directement sur la macro qui prend en compte les paramètres. C'est pas totalement béton mais c'est un grand pas.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

U
  • Question Question
Autres RÉSOLU ma macro ne fonctionne pas
Réponses
3
Affichages
113
un internaute
U
P
  • Question Question
Microsoft 365 Désactivation/activation Application.CommandBars("ply").Enabled
Réponses
6
Affichages
610
pat66
P
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
280
fredl
F
U
  • Question Question
Autres [RÉSOLU] Problème macro mais lequel?
Réponses
4
Affichages
626
un internaute
U
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
201
Lu76Fer
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
590
un internaute
U
  • Résolu(e)
XL 2021 Bloquer la sélection des autres onglets sous condition (sans les masquer)
Réponses
2
Affichages
580
Usine à gaz
B
  • Question Question
XL 2016 RESOLU _ Reset le minuteur si Userform Actif et activité sur Userform
Réponses
14
Affichages
653
Dranreb
C
  • Question Question
Autres Enregistrer un code barre dans la cellule avant le titre qui est déja enregistré
Réponses
11
Affichages
780
Chatron
C
Office XLS : Fonction simplifiant l'utilisation de la fenêtre FileDialog
Réponses
6
Affichages
371
Lu76Fer
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
3 K
Usine à gaz
L
  • Résolu(e)
XL 2016 Enregistrer sous? Pourquoi mon code ne fonctionne pas?
Réponses
5
Affichages
863
Linda42
L
Méthodes pour ouvrir et afficher un lien, un fichier, ou un dossier
Réponses
0
Affichages
324
Lu76Fer
S
  • Question Question
XL 2016 VBA - problème de code
Réponses
10
Affichages
851
bastring
B
A
  • Résolu(e)
XL 2019 Comment empêcher l'ouverture d'un fichier Excel, si les macros ne sont pas activés sur le pc
Réponses
7
Affichages
2 K
abi_71@
A
  • Résolu(e)
XL 2010 Enregistrer/Enregistrer Sous en .xlsm Nom et emplacement libre
Réponses
11
Affichages
3 K
Orson83
M
  • Résolu(e)
XL 2016 Pb avec code VBA
Réponses
10
Affichages
1 K
MickaeL_D
M
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
798
GADENSEB
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…