Discussion :

[Alias_2003]

Bonjour,
J'aurais besoin de bloquer/masquer la croix de fermeture de l'application excel mais aussi des feuilles comprises dans ce fichier. La solution proposée par patricktoulon (https://www.developpez.net/forums/d1...masquer-croix/) est parfaite mais malheureusement il est toujours possible de fermer les feuilles (et donc l'application). Pensez-vous qu'il est possible d'adapter ce code afin d'obtenir ce que je recherche ?
Merci beaucoup de votre aide,
Amicalement

[ARTURO83]

Bonjour,

Protégez le classeur
Pièce jointe 441168

Cdlt

[patricktoulon]

Bonsoir
oublie les apis ya plus simple
on rend simplement les croix innactives avec cancel

un exemple tout simple

dans le thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Public fermeture As Boolean
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If fermeture = False Then Cancel = True
End Sub

et par exemple avec un bouton dans un sheet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
ThisWorkbook.fermeture = True
End Sub

autrement dit tant que tu n'aura pas cliquer sur le bouton tu ne pourra fermer ton fichier ni par la croix application ni par la croix window du classeur
ce qu'il y a dans le commandbutton1_click peut etre dans une sub ou fonction apres un travail par exemple
plus simple que ca je peux pas

[Alias_2003]

Bonsoir ARTURO83, patricktoulon, le Forum,
MERCI beaucoup pour vos réponses ! Je vais opter pour celle de patricktoulon qui correspond exactement à ce que je recherchais !
Problème résolu grâce à vous,
Merci encore,
Très bonne soirée,
Amicalement

[unparia]

Bonjour
La solution d'un bouton de commande ajouté pour fermer n'aurait un intérêt par rapport à la "croix de fermeture" que si ce bouton n'était visible ou utilisable qu'à certaines conditions.
Et même dans ce cas : l'utilisateur risquerait (lorsque conditions non réunies et donc bouton inaccessible) d'être plutôt perplexe, voire déciderait un arrêt brutal par n'importe quel moyen
Clic pou clic, et sans ce bouton, une simple messagebox dans l'évènement BeforeClose aurait par contre au moins l'avantage de l'informer de ce qu'il ne saurait quitter en l'état et de l'inviter à faire en sorte que les conditions nécessaires soient réunies.