interdire fermeture

[DAMIEN]

bonjour
est il possible de désactiver la croix de fermeture en haut à droite.
merci
damien

 

[michel]

Bonsoir Damien

tu peux essayer

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If Cancel = False Then MsgBox "La fermeture du classeur n'est pas autorisée par la croix . ": Cancel = True
End Sub

à placer dans ThisWorkbook

bonne soirée
michel

 

[@+Thierry]

Bonsoir Damien, Michel et le Forum


On peut compléter l'info donnée par Michel comme ceci :

Dans le Private Module de ThisWorkBook :

Private Sub Workbook_Open()
CancelSortie = True
End Sub

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


Dans un Module Standard :

Public CancelSortie As Boolean

Sub LaSortie()
CancelSortie = False
ThisWorkbook.Close True
End Sub


On notera ici l'usage d'une variable "CancelSortie" Publique de type Boolean et, bien sûr, on prendra soin de mettre un bouton de sortie qui lancera cette macro "LaSortie". (dans l'exemple on sauve le classeur, sinon mettre à false)

Bonne Soirée
@+Thierry

 

[DAMIEN]

bonsoir
merci à tous
mais je voudrais uniquement désactiver la croix
mais toujour autoriser le fichier quitter
merci
damien

 

[@+Thierry]

Re Bonsoir


Ahh pour celà il faut faire appel à une API mais je ne l'ai pas sous la main et de toute manière je ne te la conseille pas Damien car c'est vraiment inutile et très peu fiable.

Le procédé que nous t'avons proposé Michel et moi, est d'une simplicité efficace si tu veux obliger le User à sortir de ton appli par une procédure pré-définie, si tu laisses Fichier Quitter celà ne sert à rien.

Enfin ce n'est que mon avis.

Bonne Soirée
@+Thierry

 

[michel]

rebonsoir Damien , bonsoir @+Thierry

Thierry , merci pour ton complément d'information .

Je suis très content de ton retour sur le forum XLD

bonne soirée
michel