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 - 23 févr. 2023 à 20:43
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

Bonjour,

J'ai un fichier Excel partagé pour lequel je souhaite désactiver la commande "enregistrer sous" dans le cas ou si cette cellule dépasse une certaine valeur. J'aimerais que les utilisateurs ne puissent utiliser que la commande "enregistrer sous" dans le cas où la valeur est inferieur a un nombre donné pour sauvegarder leur travail.

Merci de votre aide
Windows / Firefox 110.0

A voir également:

5 réponses

Raymond PENTIER Messages postés 58800 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 7 janvier 2025 17 264
24 févr. 2023 à 02:06

Bonjour.

Cela n'existe pas, à ma connaissance ...


0
via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 2 738
24 févr. 2023 à 16:56

Bonjour

Empêcher d’utiliser la commande est possible avec une macro en VBA, voir

https://forums.commentcamarche.net/forum/affich-18334468-excel-desactiver-la-commande-enregister-sous

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


0
poupics Messages postés 85 Date d'inscription lundi 16 mars 2015 Statut Membre Dernière intervention 29 septembre 2024 2
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"

0
via55 Messages postés 14509 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 2 janvier 2025 2 738
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


0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
poupics Messages postés 85 Date d'inscription lundi 16 mars 2015 Statut Membre Dernière intervention 29 septembre 2024 2
25 févr. 2023 à 16:41

bonjour,

tout fonctionne.

Merci

0