Désactiver la commande enregistrer sous suivant condition

Résolu
poupics Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -  
poupics Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   -

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

5 réponses

  1. Raymond PENTIER Messages postés 58213 Date d'inscription   Statut Contributeur Dernière intervention   17 482
     

    Bonjour.

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


    0
  2. poupics Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   2
     

    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
  3. via55 Messages postés 14391 Date d'inscription   Statut Membre Dernière intervention   2 759
     

    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
  4. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  5. poupics Messages postés 88 Date d'inscription   Statut Membre Dernière intervention   2
     

    bonjour,

    tout fonctionne.

    Merci

    0