Désactiver la commande enregistrer sous suivant condition
Résolu/Fermépoupics Messages postés 85 Date d'inscription lundi 16 mars 2015 Statut Membre Dernière intervention 29 septembre 2024 - 25 févr. 2023 à 16:41
- Désactiver la commande enregistrer sous suivant condition
- Invite de commande - Guide
- Audacity enregistrer son pc - Guide
- Excel cellule couleur si condition texte - Guide
- Commande terminal mac - Guide
- Enregistrer en pdf - Guide
5 réponses
24 févr. 2023 à 02:06
Bonjour.
Cela n'existe pas, à ma connaissance ...
24 févr. 2023 à 16:56
Bonjour
Empêcher d’utiliser la commande est possible avec une macro en VBA, voir
Dans ton cas il faudrait compléter cette macro avec une condition de la valeur dans la cellule du style :
If range("B12") > 500 Then ......
Cdlmnt
Via
24 févr. 2023 à 19:37
Bonjour
Merci de me répondre, ni connaissant rien en macro, quel est la procédure pour enregistrer cette macro ?
Je vais dans développeur
Macro
Nom de la Macro "test" / créer
Sub test()
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If Range("H23") > 500 Then
If SaveAsUI Then MsgBox ("Commande 'Enregistrer sous...' désactivée")
Cancel = SaveAsUI
End Sub
Enregistrer
Quand j'exécute la macro j'ai un message "erreur de compilation : End Sub attendu"
24 févr. 2023 à 22:47
Re
Tu cliques droit sur le nom de ton onglet en bas puis Visualiser le code pour ouvrir l'éditeur VBA
Dans l'arborescence tu double-cliques sur This Workbook et dans la page blanche à droite tu colle la macro suivante puis tu refermes l'éditeur
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) If Range("H23") > 500 Then If SaveAsUI Then MsgBox ("Commande 'Enregistrer sous...' désactivée") Cancel = SaveAsUI End if End Sub
Dès que la valeur dans ta cellule H23 dépassera 500 il ne sera plus possible d'enregistrer sous
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question25 févr. 2023 à 16:41
bonjour,
tout fonctionne.
Merci