BLOQUER LA FERMETURE D'EXCEL

[LAURENT]

BONJOUR LE FORUM

COMMENT PUIS-JE EN VBA EMPECHER LA FERMETURE D'EXCEL PAR LA CROIX OU LE MENU QUITTER?

SVP

LAURENT

 

[Creepy]

Bonjour le Forum, Laurent,

Pas la peine de crier nous t'entendons !

Dans thisworkbook met ce code :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
End Sub

et voila le tour est joué.

@+

Creepy

 

[Jacky]

Bonjour Creepy, bonjour Laurent

Dis donc Creepy, ne risques-tu pas ainsi de tout bloquer, c'est à dire il est absolument impossible de fermer Excel même par la voie clasique : Fichier --> Quitter ?
me gourge-je ? (lol)

 

[Creepy]

Re all,

Non Jacky tu te gourges pas !

Mais je crois que c'est bien ce que souhaitait Laurent. Pour recuperer la main deux solutions :

CTRL+ALT+SUP ou effacer la macro.

Si tu souhaites autoriser ou non la fermeture d'excel, il faut par macro effacer cette routine.

Après tu récupère la main !

@+

Creepy

 

[Jacky]

C'est bien ce qui me semblait, c'est pourquoi j'utilise plutôt les bouts de code suivants :

Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFFdans ThisWorkbook_Open

et dans ThisWorkbook_beforeClose
Dim hwnd As Long
hwnd = FindWindowA(vbNullString, Application.Caption)
SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000

C'est à dire que je biaise la question de Laurent en supprimant tout bonnement la croix

Cordialement

 

[PascalXLD]

Bonjour

Il serait peut-être bien que Laurent précise sans crier comment il compte fermer excel

Bonne soirée