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
Staple1600 à dit:
Bonjour le fil, chaelie2015

•>chaelie2015
Penche un peu la tête
Non pas vers le bas
Mais vers la droite de ton écran 😉
Oui voila dans les Discussions similaires 😉
Cliquez pour agrandir...

Bonjour le fil, JM
Apres avoir penché un peu ma tête vers la droite 😀😉 de mon LAPTOP, j'ai pu faire un code mais il ne foctionne pas avec le bouton qui est dans la feuille.
VB: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Cancel = True
MsgBox "Vous ne pouvez pas enregistrer, clic sur le bouton dans la feuille"
End Sub
Code: 
Sub Enregistrer_sous()
Dim chemin As String, fichier As String
Application.ScreenUpdating = False

         If Range("I2") = "" Or Range("K2") = "" Then
         Cancel = True
         MsgBox "Veuillez rensigner le N° et/ou la Date du rapport"
         Else

chemin = ThisWorkbook.Path
fichier = chemin & "\" & Range("I4") & ".xlsm"
ActiveWorkbook.SaveAs Filename:=fichier
End If
Application.ScreenUpdating = True

End Sub
A+😉
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir @chaelie2015 @Staple1600

Bien vu de pencher la tête lol !!!

Pour bypasser le Cancel = True du Workbook_BeforeSave(

Je crois qu'il y a un truc avec UserInterface Only ou un truc de ce genre... Mais pas certain !
Moi tout simplement je mettrai un Boolean Public à tout le Classeur que tu initialiserais à True uniquement depuis ton Enregistrer_sous... Et donc le Cancel = True deviendrait Cancel = MonBooleanPublic ...

Il faut le déclarer Public MonBooleanPublic as Boolean dans un module normal au top.


Bonne soirée
@+Thierry
 
Vote positif 0 Vote négatif
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 😉
 
Vote positif 0 Vote négatif
Solution
Re

Mon code est basé sur l'utilisation d'un CommandButton
Si tu veux utiliser une image, c'est simple
Il suffit d'affecter cette macro (dans le module standard)
VB: 
Sub Code_Pour_Image()
Flag = True
ActiveWorkbook.Save
Flag = False
End Sub
Le reste du code du message#8 devant être conservé aux mêmes endroits.
 
Vote positif 0 Vote négatif
Bonjour Staple1600, chaelie2015 et _Thierry
La crise économique qui se prépare m'incite à faire des économies tous azimuts, y compris de la booléenne flag.
Il suffit à cette fin de faire précéder (au clic du commandbutton) l'instruction de sauvegarde par un simple application.enableevents = false et de la rétablir à true tout de suite après.
on shunte ainsi l'évènement beforesave lorsque l'on clique le bouton de commande.

Ouais ... je deviens radin en période de crise.😛
 
Vote positif 0 Vote négatif
Bonjour,
jmfmarques à dit:
Il suffit à cette fin de faire précéder (au clic du commandbutton) l'instruction de sauvegarde par un simple application.enableevents = false et de la rétablir à true tout de suite après.
Cliquez pour agrandir...
En quoi un EnableEvents=False dans sa macro de sauvegarde empêche-t-il de sauvegarder le classeur de façon traditionnelle ?
Je ne vois pas bien le fonctionnement du truc. 🙁
 
Vote positif 0 Vote négatif
Je ne vois pas bien le fonctionnement du truc
Cliquez pour agrandir...
Désolé pour toi, que tu ne le voies pas bien
Tu devrais peut-être tout relire, mais plus attentivement, de sorte à comprendre que :
- le clic sur le bouton court-circuite ainsi l'évènement Beforesave
- un clic sur le menu de sauvegarde, lui, te "jette".
Bref ...
Bon réveil.

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. 🙂
 
Dernière édition:
Vote positif 0 Vote négatif
T'as vraiment besoin d'être agressif de la sorte ?
Tu ne peux pas simplement m'expliquer comment ça fonctionne ton truc ? Comment tu fais pour empêcher l'enregistrement par le menu en mettant un EnableEvents à False dans sa macro ?
 
Vote positif 0 Vote négatif
Tu ne peux pas simplement m'expliquer comment ça fonctionne ton truc ?
Cliquez pour agrandir...
je ne vois pas comment l'expliquer mieux que déjà fait.
Pour mémoire :
et pour compléter ton interrogation, à savoir :
En quoi un EnableEvents=False dans sa macro de sauvegarde empêche-t-il de sauvegarder le classeur de façon traditionnelle ?
Cliquez pour agrandir...
C'est précisément ce que font les instructions mises dans l'évènement BeforESave, non ?

Tu aurais pu éviter ton intervention. il te suffisait de faire comme dit et de constater.
 
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…