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

Fermé
en2mots Messages postés 166 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 23 octobre 2016 - 3 juil. 2013 à 22:27
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 - 4 juil. 2013 à 13:58
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:

2 réponses

g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 573
4 juil. 2013 à 08:38
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
en2mots Messages postés 166 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 23 octobre 2016
4 juil. 2013 à 09:25
Bonjour,

Mais du coup, c'est une protection pour les feuille ou pour le classeur ?
0
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 573
4 juil. 2013 à 09:30
Pour toutes les feuilles du classeur.
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:43
Quand j'ouvre mon fichier, ca me met Private Sub Workbook_Open() en jaune en m'indiquant une erreur
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:46
"erreur compilation :
sub ou fonction non définie"
0
g Messages postés 1262 Date d'inscription vendredi 23 avril 2004 Statut Membre Dernière intervention 15 mai 2017 573
4 juil. 2013 à 13:45
La macro fonctionne parfaitement sous Excel 2003.
Je ne peux l'affirmer pour les versions plus récentes.
0
en2mots Messages postés 166 Date d'inscription samedi 31 mai 2008 Statut Membre Dernière intervention 23 octobre 2016
4 juil. 2013 à 13:51
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