Désactiver la commande enregistrer sous suivant condition
Résolupoupics Messages postés 85 Date d'inscription Statut Membre Dernière intervention -
- Désactiver la commande enregistrer sous suivant condition
- Desactiver rond bleu whatsapp - Guide
- Invite de commande - Guide
- Audacity enregistrer son pc - Guide
- Excel cellule couleur si condition texte - Guide
- Commande terminal mac - Guide
5 réponses
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
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"
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 question