Excel : message d'alerte feuille déverrouillée

en2mots Messages postés 170 Statut Membre -  
g Messages postés 1285 Statut Membre -
Bonjour, je voudrai vous demander à nouveau votre aide si vous avez un peu de temps.

J'ai un fichier excel sur lequel je souhaite mettre un type d'alerte sous forme de message uniquement au moment de fermer un fichier . Je m'explique :
C'est un fichier qui répertorie des souhaits de congés : avec un onglet par mois et tous les onglets sont protégés par un mot de pass. Car ce fichier est mis à disposition pour visualisation par une douzaine de personnes et seulement une d'entre elle entre les infos dessus. Et c'est uniquement cette personne qui a le mot de pass pour vérrouiller et déverrouiller les feuilles. Afin d'aider cette personne à ne pas oublier de vérrouiller la feuille, et uniquement pour elle, y at-il un moyen de mettre une alerte ou un message ? mais qui serait proposé à la fin et uniquement quand une modification est apportée ? vue que les 12 autres ne modifient rien, je voudrais que rien ne s'affiche à la fermeture de l'écran pour eux mais que pour elle, quand elle aura fait "enregister" + "quitter", que cela declenche un message du style "avez vous penser à verrouiller les feuilles déverrouillées ?". "Oui" le fichier se ferme. "Non" la personne peut le faire.

Ou tout simplement excel peut-il mettre un message d'alerte uniquement quand des feuilles ne sont pas verroullées ??

Merci pour votre aide

2 réponses

  1.
    g Messages postés 1285 Statut Membre 578
     
    Bonjour,

    Suggestion:

    Pour une protection automatique à la fermeture du classeur, quelque soit l'utilisateur, car difficile de différencier "qui fait quoi".

    Code VBA à copier dans un module standard:

    Sub MetProtec()
    For i = 1 To Worksheets.Count
    Worksheets(i).Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:="toto"
    Worksheets(i).EnableSelection = xlUnlockedCells
    Next
    End Sub

    A la place de toto mettre le mot de passe réel

    Code VBA à copier dans ThisWorkbook:

    Private Sub Workbook_Open()
    MetProtec
    End Sub

    Cordialement.
    0
  2. en2mots Messages postés 170 Statut Membre
     
    Bonjour,

    Mais du coup, c'est une protection pour les feuille ou pour le classeur ?
    0
    1. g Messages postés 1285 Statut Membre 578
       
      Pour toutes les feuilles du classeur.
      0
    2. en2mots Messages postés 170 Statut Membre
       
      Quand j'ouvre mon fichier, ca me met Private Sub Workbook_Open() en jaune en m'indiquant une erreur
      0
    3. en2mots Messages postés 170 Statut Membre
       
      "erreur compilation :
      sub ou fonction non définie"
      0
    4. g Messages postés 1285 Statut Membre 578
       
      La macro fonctionne parfaitement sous Excel 2003.
      Je ne peux l'affirmer pour les versions plus récentes.
      0
    5. en2mots Messages postés 170 Statut Membre
       
      c'est bien la version que j'ai alors peut-être que j'ai mal compris l'emplacement des codes.

      Pour le code à mettre dans thisworkbook. C'est bien dans le workbook de la fenêtre "VBA project" qu'il faut coller ? car c'est la que je l'ai mis...

      Pour le code à mettre dans un module standard, je les mis dans chacune des feuilles qui sont dans microsoft objet project (toujours dans la fenêtre "VBA project". Et c'est fenêtre indique 'général' et pas worksheet".
      Ai-je bien fait ?
      Merci
      0