Cacher la croix de fermeture de l'aplication en cours (excel)Résolu

Question

Bonjour, 
En VB6 , j'avais résolu ce problème... mais je ne peux plus accéder à ces sources.
Je trouve bien des réponses dans le forum, apparemment  inexploitables (ou plutôt non comprises?).
As-tu une solution précise ? Merci et A+.   Bab

ucfoutu · Answer

Bonjour,
Quelle réponse inexploitable as-tu trouvée ?
De quelle croix de" fermeture s'agit-il ? Celle de Excel ou celle d'un userform (car réponse différente dans un cas et dans l'autre) ?

babu26 · Answer

Bonsoir
Celle d'Excel (X blanc dans un carré rouge).
Ce que j'ai pu voir concernait probablement la fermeture d'un UserForm.
merci.  Bab

cs_MPi · Answer

Je n'ai pas la réponse, mais je pense que ta version d'Excel peut être importante ...

ucfoutu · Answer

J'ai la réponse, mais la tienne, à savoir :
 Celle d'Excel (X blanc dans un carré rouge). 
 me laisse perplexe.
Chez moi : la croix de fermeture de EXCEL n'est pas blanche dans un carré rouge.
C'est celle d'un Userform, qui l'est.
Alors : es-tu certain de ce que tu veux ? La supprimer d'un UserForm ou la supprimer de ta feuille de calcul ???
Re-précise, s'il te plait !

cs_Le Pivert · Answer

Bonjour,

une petite recherche sur Google:

http://www.excel-downloads.com/forum/34155-interdire-reduire-fermer-barre-titre-fenetr.html

ucfoutu · Answer

Le code du lien montré supprime la croix de fermeture du classeur mais ne supprime pas celle de l'application, ni l'accès au menu Fichier ===>> Fermer, ni au menu Fichier ===>> Quitter Excel.
Il devrait alors logiquement être complété par l'utilisation d'un évènement tel que BeforeClose. On comprendrait alors mal (obligé pour obligé) que l'on ne l'invoque pas également lors du clic sur la croix de fermeture du classeur !
On peut s'y prendre autrement (impossibilité totale de fermer tant l'appli que le classeur seul, par des gestes à la portée de l'utilisateur ... par disparition totale des icônes et autres permettant de le faire... ou encore par "confinement" de la souris).
Un tel procédé serait par contre dangereux. Il devrait de surcroît être accompagné d'un mécanisme de "sortie" permettant au développeur de reprendre la main ...(de ne finalement pas s' "enfermer lui-même dehors" !), mécanisme lui-même protégé par un mot de passe.
On s'éloigne là considérablement de la philosophie habituelle d'un tableur

cs_Le Pivert · Answer

Tu n'as pas été a la fin de la page du lien que je t'ai donné. Tu aurais trouvé cela, beaucoup plus court:


Option Explicit
'Comment peut on desactiver les 3 icones (réduire, restaurer,fermer) ainsi
'que l'icone en haut à gauche d'une application excel  afin d'empêcher
'l'utilisateur de fermer Excel autrement que par un bouton prévu à cet effet ?
'(Laurent Longre)

Private Declare Function FindWindowA Lib "User32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLongA Lib "User32" _
  (ByVal hwnd As Long, ByVal nIndex As Long, _
  ByVal dwNewLong As Long) As Long
Private Sub CommandButton1_Click() 'pour désactiver
Dim hwnd As Long
  hwnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) And &HFFF7FFFF
End Sub
Private Sub CommandButton2_Click() 'pour remettre dans l'état initial
Dim hwnd As Long
  hwnd = FindWindowA(vbNullString, Application.Caption)
  SetWindowLongA hwnd, -16, GetWindowLongA(hwnd, -16) Or &H80000
End Sub

ucfoutu · Answer

Salut babu26,
Welcome to the club (tu es le 1er de ceux que j'attendais)
Rien à voir avec ton essai (MDR)
Va lire cette discussion. Tu y as la solution à tes malheurs.
http://codes-sources.commentcamarche.net/forum/affich-10040792-un-cadeau-empoisonne-de-microdaube-bug-maj-office

cs_Le Pivert · Answer

babu26,

J'ai trouvé ceci qui est très intéressant. Cela neutralise toutes les fermetures. Tu as un fichier a télécharger:

 http://www.excel-downloads.com/forum/214683-vba-empecher-la-fermeture-dexcel.html

PS sauf le gestionnaire de tâche!

babu26 · Answer

Salut encore.
Après suppression de la MàJ KB2596927, ça marche pour mes objets. Merci
Quant à la ferture du classeur, j'ai appliqué cette solution :
  ajout de Public ChoixArret as Boolean  dans mon Module principal
  ajout de ChoixArret = True dans Sub Workbook_Open()
  ajout de If ChoixArret = True Then Cancel = True dans Sub Workbook_BeforeClose(Cancel As Boolean)

Pb. résolu, merci encore.   Bab

Cacher la croix de fermeture de l'aplication en cours (excel)

10 réponses

Votre réponse