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

Autres Empêcher l'enregistrement par Menu

Créer une discussion

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

chaelie2015

XLDnaute Accro
Bonjour FORUM

Besoin d'un petit coup de main.

Ma question est simple,
Est-il possible d'empêcher l'enregistrement par le menu de l'excel ( enregistrer et enregistrer sous)
l'enregistrement se fait par un bouton dans ma feuille.

Merci d'avance.
 

Pièces jointes

Dernière édition:
Solution
Re,

Dans ThisWorkBook
VB: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Not Flag Then
MsgBox "Sauvegarde uniquement avec le bouton dédié!", vbCritical
Cancel = True
End If
End Sub
Dans le code du CommandButton
VB: 
Private Sub CommandButton1_Click()
Flag = True
ActiveWorkbook.Save
Flag = False
End Sub
Dans un module standard
VB: 
Public Flag As Boolean
EDITION: Même idée que _Thierry que je salue au passage 😉
Trier par date Trier par votes
Désolé, je ne comprends pas mieux...(normal, me diras-tu, puisque ça reprend des phrases précédentes sans rien expliquer)

Que veux-tu que je "constate" en lisant et relisant ce fil ?
Je pensais que ce forum était là pour aider, mais là ça ne m'aide pas à comprendre. Dommage.

Merci quand même.
 
Vote positif 0 Vote négatif
Bonjour le fil, chaelie2015, _Thierry, jmfmarques, Marcel32

jmfmarques à dit:
je ne doute pas une seule seconde de ce que @Staple1600 et @_Thierry ont, eux, parfaitement compris ce mécanisme au demeurant très simple. 🙂
Cliquez pour agrandir...
Personnellement, sans doute que le confinement amoindrit ma réactivité.
Car si j'étais moi, j'aurai du ou pu évoquer les points suivants:
1) Si j'étais l'utilisateur d'un classeur "liberticide", illico presto, j'ouvre celui-ci sans activer les macros et inhibe tout ce qui m’empêche d'utiliser mon Excel à 100% de ses capacités
2) Si je fus moi, et qu'un collègue lambda et balbutiant dans le monde d'Excel eut été destinataire d'un classeur façonné par mes soins, j'aurais pris le temps de le former à l'utilisation de celui-ci plutôt que d'attenter à l'intégrité de son Excel 😉
(Euh, le moi d'aujourd’hui incite fortement le moi d'hier à réviser ses conjugaisons 😉)
 
Vote positif 0 Vote négatif
Bonjour @ tous

S'il eut fut fait froid, nous fusse réchauffé en lisant ce fil !

Pour le synopsis compréhensif en trois phases pour Marcel32 :

1) Chaelie2015 voulait empêcher l’usage des boutons standard « Save » ou « Save As » par l’usage de la macro évènementielle : Workbook_BeforeSave, mais uniquement depuis son propre bouton et sa programmation prévue. Hélas, l’évènementielle ne laissait plus sauver le classeur.

2) Moi-même & Staple1600 avons proposé la même méthode en utilisant un « Verrou » Boolean public à tout le classeur qui désactiverait le Cancel de Workbook_BeforeSave si initialisé à True dans le code de Chaelie2015.

3) Jmfmarques, dans un souci d’économie 😉 , est ensuite venu proposer une solution intéressante qui consiste à désactiver les macros évènementielles avec Application.EnableEvents = False dans le code de Chaelie2015 de son bouton Save (et de le remettre à True en sortie) pour que l’évènement Workbook_BeforeSave soit neutralisé provisoirement et n’empêche pas le bouton de Chaelie2015 de sauver son classeur.

Voilà, c’eusse fusse dit, et nous fîmes un peu d’air frais !

Et comme Staple1600, parfois on perd plus de temps à faire du "faux" blindage par VBA (car un utilisateur avancé et mal-intentionné aura toujours un moyen de trafiquer) qu'à expliquer clairement à l'utilsateur final ce qu'il doit faire pour l'utilisation correcte du classeur...

Bien @ vous
@+Thierry
 
Vote positif 0 Vote négatif
Merci _Thierry d'avoir ainsi tenté (j'espère avec succès) d'exposer à Marcel32 par d'autres mots que les miens ce que mes phrases exposaient de manière concise et technique. J'ai probablement une manière d'utiliser notre langue qui n'est pas celle de Marcel. L'un de nous deux devrait changer de vocabulaire et ce ne sera pas moi 🙂
 
Vote positif 0 Vote négatif
@_Thierry : merci pour tes explications.

1) : je crois comprendre.
2) : je comprends bien puisqu'il m'est arrivé de procéder ainsi.
3) : je ne comprends toujours pas comment ça empêche la sauvegarde par menu. Mais ce n'est pas grave, je resterai sans avoir compris. 😉
 
Vote positif 0 Vote négatif
Re

•>_Thierry
C'est pas une histoire de compteur
Mais de nostalgie.
Nostalgie de l'XLD d'antan...
L'époque où il y a avait une vraie émulation entre XLDnautes et où on prenait le temps de se saluer mutuellement.
Désolé d'être en mode "slow movement" et d'avoir des accès de nostalgie 😉
 
Vote positif 0 Vote négatif
A marcel32
quand même !
je ne comprends toujours pas comment ça empêche la sauvegarde par menu. Mais ce n'est pas grave, je resterai sans avoir compris.
Cliquez pour agrandir...
tout simplement car est alors déclenché l'évènement BeforeSave dont le paramètre Cancel, passé à True, fait "jeter" l'utilisateur, sans sauvegarder.
Et quand clic sur le bouton : l'évènement BeforeSave n'est tout simplement pas déclenché, puisque inhibé du fait de la propriété EnableEvents passée à false.
Ce qui fait (sans besoin d'un dessin à l'appui) que l'on ne peut sauvegarder qu'en cliquant sur le bouton.
Il n'y a rien de très "sorcier" dans un mécanisme aussi élémentaire.

Ceci étant, Marcel32, ma réaction aurait été très différente si, au lieu de faire comme tu l'as fait ("...je ne vois pas en quoi ... etc..."), tu avais dit avoir des difficultés à comprendre le mécanisme et demandé une aide en vue de le comprendre.
En d'autres termes : c'est comme dans les auberges espagnoles : chacun y trouve ce qu'il apporte (et la moitié de mon sang l'est, espagnole, l'autre moitié étant corse) 😎
 
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

  • Question Question
Microsoft 365 Recherche et enregistrement document
3 4 5
Réponses
62
Affichages
2 K
dysorthographie
C
  • Résolu(e)
XL 2021 besoin d'aide pour excel devis-facture
Réponses
8
Affichages
278
Piment
P
C
  • Question Question
Microsoft 365 Déplacer une ligne sous condition
Réponses
5
Affichages
265
CB7
C
M
  • Question Question
Microsoft 365 Un excel pour de la gestion de maintenance
Réponses
3
Affichages
352
cathodique
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
302
TooFatBoy
  • Résolu(e)
XL 2016 Macros Généralités
Réponses
4
Affichages
146
sylvanu
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
642
AtTheOne
C
  • Question Question
XL 2021 Case a cocher
2
Réponses
15
Affichages
299
clausen
C
M
  • Question Question
Microsoft 365 Aide à une formule sur un calendrier semainier
Réponses
4
Affichages
284
GALOUGALOU
  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
497
jeff1494
A
  • Résolu(e)
XL 2019 bouton pour trier un tableau
Réponses
9
Affichages
196
ANTONY34200
A
C
  • Question Question
XL 2021 Contrôle de la Glycémie pour les diabétiques.
3 4 5
Réponses
62
Affichages
972
clausen
C
P
  • Résolu(e)
Microsoft 365 Affichage d'un InputBox après avoir saisit une valeur
Réponses
4
Affichages
134
pat66
P
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
430
AtTheOne
  • Question Question
Microsoft 365 Classeur xlsm en partage
Réponses
4
Affichages
197
JJ68
  • Résolu(e)
XL 2016 copier la même ligne sur la dernière ligne vierge d'un tableau
Réponses
8
Affichages
194
eastwick
M
  • Question Question
Microsoft 365 Creation de champs de saisi pour l'inscritiption et le paiement de la scolarite
Réponses
8
Affichages
370
Dranreb
M
  • Question Question
Microsoft 365 Lecture vocale USF
Réponses
5
Affichages
208
Marec
M
F
  • Question Question
Microsoft 365 Problème avec VBA ( Résolu)
Réponses
2
Affichages
488
firecarl
F
  • Question Question
XL 2016 Associer cellule ensemble
Réponses
4
Affichages
135
Erdis
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…