J'aimerai inclure dans mon programme une petit avis qui apparait lorsque l'on ferme fichier et qui nous amènent a l'onglet LIVRE BLEU (le dernier onglet). Le programme ne peut se fermer avant que cet onglet soit sélectionné ou visionné, a moin d être sur cet onglet en question.
Je ne sait pas si ca se fait, je tente ma chance
Je joint le fichier
Merci a l'avance
P.S. il comporte deja une macro pour déprotéger toutes les pages en même temps
MOT DE PASSE du fichier: georges5
oLi
Pièces jointes
Fichier consigne Olco BLANK 2012 livre bleu test avis.zip
115 KB · Affichages: 25
Fichier consigne Olco BLANK 2012 livre bleu test avis.zip
115 KB · Affichages: 28
Fichier consigne Olco BLANK 2012 livre bleu test avis.zip
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If ActiveSheet.Name = "Livre bleu" Then
Cancel = False
Else
MsgBox "Vous devez renseigner le livre bleu !"
Worksheets("Livre bleu").Activate
Cancel = True
End If
End Sub
Merci pour ta réponse rapide.
J'ai un petit problème....je ne sais pas ou inscrire ce code. De la la raison pourquoi j'ai attaché le fichier.
Aurais tu le temps svp d'inscrire ce code dans mon fichier.
Bonjour
Je modifirai la macro de Criscris11
Private Sub Workbook_BeforeClose(Cancel As Boolean)
if activeSheets.name<>"livret bleu" then
msgbox("Vous n'avez pas consulté le livre bleu...")
Cancel = True
endif
End Sub
Je pense savoir pourquoi ça bug : essayes plutôt ceci après avoir supprimer le premier code qui s'active à la fermeture présent dans ton fichier d'origine
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If activeSheets.name<>"livret bleu" then
msgbox("Vous n'avez pas consulté le livre bleu...")
Cancel = True
End If
Call ProtectionToutesLesFeuillesMDP
End Sub
car tu ne peux pas avoir plusieurs codes sur Workbook_BeforeClose.
Eh bien François, je crois qu'on est sur la même longueur d'ondes...
Salut Crscris11 Oui je penses qu'on a bien travaillé...lol...
Attention! "If activeSheets.name<>"livret bleu" then" c'est Livre Bleu respecte bien les majuscules le nom doit être identique au nom de la feuille concernée sinon tu pourra plus quitter ton programme...lol...