Interdire la fermeture par la croix ds 1 feuille

[Ludovic]

Bonsoir le forum,

Je voudrais interdire la fermeture de mon classeur par la croix de la barre de titre. J'ai récupéré le code suivant de maître Thierry sur le forum.

Dans un Module Standard
Public TheLocker As Boolean

Dans le Private Module de ThisWorkBook
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = TheLocker
End Sub

Mais je ne dois pas mettre ce qu'il faut où il faut malgrès les explications.
Module Standard est ce le code de ma feuille?

Car en fait, la fermeture devrait ce faire par un bouton, qui fait appel a une macro. je teste la variable Cancel dans cette macro après avoir mis TheLocker a 'False'. Au début de ma feuille, ds Private Sub Worksheet_Activate(), cette variable est mise à 'True'.
la croix est tjrs active? pouriez vous m'expliquer ? SVP
@+
Ludovic

 

[Hellboy]

Bonsoir Ludovic et le forum

Je ne connais pas la solution a ta demande tel que formulé. Mais je me permet de te suggérer ceci à la place:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If cells(x,y) = 'Pas OK' Then
   Cancel = True
   MsgBox ('Vous devez passez par le bouton')
End If
End Sub

Ce que je suggère par la, est que tu te donne une valeur de référence si la personne click sur ton bouton de référence, alors tu met cette valeur quelque part ds une feuille et par la suite est détecté à la fermeture comme bonne ou mauvaise.