Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Fermeture interdite

Fermeture interdite

3 réponses
Avatar
STEN
Bonjour,
Dans un classeur sur la feuille du menu principal, j'ai=20
mis un bouton "Quitter".
Comment faire pour obliger les utilisateurs du classeur=20
de quitter celui-ci =E0 l'aide du bouton "Quitter".
J'aimerai qu'un message d'erreur s'affiche lorsqu'ils=20
essaient de fermer le classeur par la croix ou le menu=20
Fichier/Quitter, en leurs indiquant que la seule fa=E7on de=20
fermer le classeur et de passer par le bouton "Quitter"=20
du menu principal.

Merci =E0 tous de votre aide!
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Pascal Engelmajer
Salut,
Dans un module standard
Public flBtn As Boolean

Dans ThisWorKbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If flBtn = False Then Cancel = True
End Sub

Dans le module de code de la feuille du bouton
Private Sub btnQuitter_Click()
flBtn = true
.../...
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"STEN" a écrit dans le message de news:
c23501c3ecf8$93f77ae0$
Bonjour,
Dans un classeur sur la feuille du menu principal, j'ai
mis un bouton "Quitter".
Comment faire pour obliger les utilisateurs du classeur
de quitter celui-ci à l'aide du bouton "Quitter".
J'aimerai qu'un message d'erreur s'affiche lorsqu'ils
essaient de fermer le classeur par la croix ou le menu
Fichier/Quitter, en leurs indiquant que la seule façon de
fermer le classeur et de passer par le bouton "Quitter"
du menu principal.

Merci à tous de votre aide!
Avatar
STEN
-----Message d'origine-----
Salut,
Dans un module standard
Public flBtn As Boolean

Dans ThisWorKbook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If flBtn = False Then Cancel = True
End Sub

Dans le module de code de la feuille du bouton
Private Sub btnQuitter_Click()
flBtn = true
.../...
End Sub

--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait
pas ou il va."

Sénèque.
http://www.ilyapa.net/excel
"STEN" a écrit dans le message de
news:

c23501c3ecf8$93f77ae0$
Bonjour,
Dans un classeur sur la feuille du menu principal, j'ai
mis un bouton "Quitter".
Comment faire pour obliger les utilisateurs du classeur
de quitter celui-ci à l'aide du bouton "Quitter".
J'aimerai qu'un message d'erreur s'affiche lorsqu'ils
essaient de fermer le classeur par la croix ou le menu
Fichier/Quitter, en leurs indiquant que la seule façon de
fermer le classeur et de passer par le bouton "Quitter"
du menu principal.

Merci à tous de votre aide!


.Salut, j'ai essayer ce que tu ma donné mais le problème
est que j'aimerai y mettre un msgbox pour avertir les

utilisateurs que l'on ne peut fermer le classeur
uniquement pas le bouton quitter.
Mais en mettant ce message même avec le bouton quitter il
me l'affiche pourquoi?

Private Sub WorkBook_BeforeClose(Cancel As Boolean)
MsgBox "Servez-vous du bouton Quitter"
If lBtn = False Then cancel = True
End Sub

Private Sub btnQuitter_Click()
flBtn=True
End Sub

Merci de ton aide!



Avatar
Pascal Engelmajer
Salut,
ça devrait aller comme ça...
Private Sub WorkBook_BeforeClose(Cancel As Boolean)
If lBtn = False Then
MsgBox "Servez-vous du bouton Quitter"
cancel = True
end if
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"