Excel : message rappel au moment d'enregistrer.

Fermé
en2mots Messages postés 166 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 23 octobre 2016 - 3 juil. 2013 à 20:58
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 - 4 juil. 2013 à 19:33
Bonjour,

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.




A voir également:

5 réponses

Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
3 juil. 2013 à 22:44
Bonsoir,

Et pourquoi ne pas mettre en place la protection des feuilles et un enregistrement automatique sans alerte à la fermeture du fichier
0
en2mots Messages postés 166 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 23 octobre 2016
3 juil. 2013 à 22:48
Parce que je veux un message qui me rappelle de bien rêve rouiller la feuille ... C surtout ça... En fait
0
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
4 juil. 2013 à 09:05
Re,

C'est toi qui voit, alors dans la Thisworkwook colle ce code

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Select Case MsgBox("Avez vous reverrouillé la feuille", vbYesNo, "Avant de fermer l'application")
Case vbYes
ActiveWorkbook.Close savechanges:=True
Case vbNo
Cancel = True
End Select
End Sub
0
en2mots Messages postés 166 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 23 octobre 2016
4 juil. 2013 à 09:27
Bonjour,

Ce message ne s'affiche qu'en cas de modif ?

Car c'est ce que je voudrais... S'il vous plaît
0
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
4 juil. 2013 à 18:44
Re,

Non je regrette mais ce n'est pas possible, et j'ai cherché sans rien trouver sur les forums
si on trouve on l'éditera
cordialement
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 247
Modifié par eriiic le 4/07/2013 à 19:23
Bonjour à tous,

ThisWorkbook.Saved non ?

Mais en2mots je ne sais pas si tu as bien compris la 1ère proposition de mike : la protection se mettrai d'office sur toutes les feuilles à l'ouverture. Plus besoin de le faire et du coup impossible d'oublier.

eric
0

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

Posez votre question
Mike-31 Messages postés 18351 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 12 décembre 2024 5 110
4 juil. 2013 à 19:31
Salut Eriiic,

En fait 2mots souhaite une msgbox l'invitant à reprotéger les feuilles à la fermeture du fichier, mais uniquement si des changements sont intervenus sur les feuilles.
Mais pas de msgbox à la fermeture si aucun changement n'a été réalisé.

J'ai pas mal bidouillé mais je ne vois pas
0
eriiic Messages postés 24603 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 15 décembre 2024 7 247
Modifié par eriiic le 4/07/2013 à 19:35
Toi tu as mal lu ma réponse.. ;-)
interroger ThisWorkbook.Saved

Et je pense que le faire d'office sans intervention est mieux mais que le demandeur n'avait pas compris ta proposition...

eric
0