Impossible de sortir

6 réponses

Alpha

21/12/2003 à 00:00

Bonjour

J'ai grâce à Nicolas B et FxM cette super proc qui empêche de quitter avec
la croix, mais voilà, j'ai créé un bouton de sortie dans lequel il y a
Application.Quit, de ce fait, à chaque sortie par le bouton macro, le msgbox
se lance et impossible de quitter.
Comment faire ?
Merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not quitter then
MsgBox "C'est pas par là la sortie !"
Cancel = true
end if
End Sub

Sub Pas_la_croix( )
Dim Quitter As Boolean
Quitter = True
ThisWorkbook.Close
End Sub

6 réponses

Nicolas B.

21/12/2003 à 00:07

Nos messages se sont croisés à la minute près ;-)

La réponse est dans le fil initial.

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC

Bonjour

J'ai grâce à Nicolas B et FxM cette super proc qui empêche de quitter
avec la croix, mais voilà, j'ai créé un bouton de sortie dans lequel
il y a Application.Quit, de ce fait, à chaque sortie par le bouton
macro, le msgbox se lance et impossible de quitter.
Comment faire ?
Merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not quitter then
MsgBox "C'est pas par là la sortie !"
Cancel = true
end if
End Sub

Sub Pas_la_croix( )
Dim Quitter As Boolean
Quitter = True
ThisWorkbook.Close
End Sub

Alpha

21/12/2003 à 00:32

Merci et désolé Nicolas, j'essaye de sortir depuis quelques heures déjà.
Encore merci ;-))
Alpha

"Nicolas B." a écrit dans le message de
news: u#

Nos messages se sont croisés à la minute près ;-)

La réponse est dans le fil initial.

A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC

Bonjour

J'ai grâce à Nicolas B et FxM cette super proc qui empêche de quitter
avec la croix, mais voilà, j'ai créé un bouton de sortie dans lequel
il y a Application.Quit, de ce fait, à chaque sortie par le bouton
macro, le msgbox se lance et impossible de quitter.
Comment faire ?
Merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not quitter then
MsgBox "C'est pas par là la sortie !"
Cancel = true
end if
End Sub

Sub Pas_la_croix( )
Dim Quitter As Boolean
Quitter = True
ThisWorkbook.Close
End Sub

michdenis

21/12/2003 à 01:18

Bonsoir Alpha,

Ceci devrait être suffisant :

Impossible de quitter sans cliquer sur le bouton de commande ....

'---------------------
Sub CommandButton1_Click()
Unload Me
End Sub
'---------------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "C'est pas par là la sortie ! Le Bouton !!!"
Cancel = True
Else
Cancel = False
End If

End Sub
'---------------------

Salutations!

"Alpha" a écrit dans le message de news:
Bonjour

J'ai grâce à Nicolas B et FxM cette super proc qui empêche de quitter avec
la croix, mais voilà, j'ai créé un bouton de sortie dans lequel il y a
Application.Quit, de ce fait, à chaque sortie par le bouton macro, le msgbox
se lance et impossible de quitter.
Comment faire ?
Merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not quitter then
MsgBox "C'est pas par là la sortie !"
Cancel = true
end if
End Sub

Sub Pas_la_croix( )
Dim Quitter As Boolean
Quitter = True
ThisWorkbook.Close
End Sub

Clément Marcotte

21/12/2003 à 03:07

ON/OFF

"Alpha" a écrit dans le message de
news:

Bonjour

J'ai grâce à Nicolas B et FxM cette super proc qui empêche de
quitter avec

la croix, mais voilà, j'ai créé un bouton de sortie dans lequel il y
a

Application.Quit, de ce fait, à chaque sortie par le bouton macro,
le msgbox

se lance et impossible de quitter.
Comment faire ?
Merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not quitter then
MsgBox "C'est pas par là la sortie !"
Cancel = true
end if
End Sub

Sub Pas_la_croix( )
Dim Quitter As Boolean
Quitter = True
ThisWorkbook.Close
End Sub

Alpha

21/12/2003 à 10:14

Bonjour Denis, en fait il s'agit d'une feuille de calcul, et non pas d'un
userform.
Alpha

"michdenis" a écrit dans le message de news:

Bonsoir Alpha,

Ceci devrait être suffisant :

Impossible de quitter sans cliquer sur le bouton de commande ....

'---------------------
Sub CommandButton1_Click()
Unload Me
End Sub
'---------------------
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "C'est pas par là la sortie ! Le Bouton !!!"
Cancel = True
Else
Cancel = False
End If

End Sub
'---------------------

Salutations!

"Alpha" a écrit dans le message de
news:

Bonjour

J'ai grâce à Nicolas B et FxM cette super proc qui empêche de quitter avec
la croix, mais voilà, j'ai créé un bouton de sortie dans lequel il y a
Application.Quit, de ce fait, à chaque sortie par le bouton macro, le
msgbox

se lance et impossible de quitter.
Comment faire ?
Merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not quitter then
MsgBox "C'est pas par là la sortie !"
Cancel = true
end if
End Sub

Sub Pas_la_croix( )
Dim Quitter As Boolean
Quitter = True
ThisWorkbook.Close
End Sub

DanC

21/12/2003 à 17:42

Faut balayer la galerie pour pouvoir sortir!
Avec toute cette neige des derniers jours!

;-)

Danielle
"Alpha" a écrit dans le message de
news:

Bonjour

J'ai grâce à Nicolas B et FxM cette super proc qui empêche de quitter avec
la croix, mais voilà, j'ai créé un bouton de sortie dans lequel il y a
Application.Quit, de ce fait, à chaque sortie par le bouton macro, le
msgbox

se lance et impossible de quitter.
Comment faire ?
Merci

Private Sub Workbook_BeforeClose(Cancel As Boolean)
if not quitter then
MsgBox "C'est pas par là la sortie !"
Cancel = true
end if
End Sub

Sub Pas_la_croix( )
Dim Quitter As Boolean
Quitter = True
ThisWorkbook.Close
End Sub

Impossible de sortir

6 réponses

Veuillez sélectionner un problème