Fermeture de fichier et msgbox

[pierrof]

Bonjour forum

Pour empecher la fermeture de ce fichier par "l'icône croix" en haut à droite
J'aimerai avoir un message qui s'affiche lorsqu'on veut fermer le fichier, pour m'inciter a fermer le fichier avec le bouton.

exemple:
msgbox("Fermer avec le bouton 3")

 

[Staple1600]

Re : Fermeture de fichier et msgbox

Bonjour


code pour un userform
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
MsgBox "Fermeture impossible"
Cancel = True
End Sub
-------------------------------

code pour le bouton sur une feuille (bouton de Barre d'Outils Controles)

Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveWorkook.Save
ActiveWorbook.Close
Application.Quit
End Sub

code à mettre dans le code de la feuille

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "Veuillez utiliser le bouton de fermeture situé sur la feuille", vbCritical, "Attention : ERREUR"
End Sub

 

[pierrof]

Re : Fermeture de fichier et msgbox

Merci ça marche super

 

[Pierrot93]

Re : Fermeture de fichier et msgbox

Bonjour Pierrof,

si j'ai bien compris,

déclaration variable publique ci dessous à mettre dans un module standard :

Public monbouton As Boolean

code ci dessous à mettre dans lévénement click de ton bouton (bouton de boite à outils controle) a placer dans le module de la feuille surleque il se trouve :

Private Sub CommandButton1_Click()
monbouton = True
ThisWorkbook.Close
End Sub

événement à placer dans le module de "ThisWorkBook" :

Private Sub Workbook_BeforeClose(Cancel As Boolean)
If monbouton = False Then MsgBox "utiliser bouton": Cancel = True
End Sub

bonne journée
@+