Désactiver la commande enregistrer sous suivant condition

Résolu

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. Contributeur

    Bonjour.

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


    0
    1. 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
      1. 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
        1. bonjour,

          tout fonctionne.

          Merci

          0