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.
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)
Code:
Private Sub CommandButton1_Click()
Application.DisplayAlerts = False
ActiveWorkook.Save
ActiveWorbook.Close
Application.Quit
End Sub
code à mettre dans le code de la feuille
Code:
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
déclaration variable publique ci dessous à mettre dans un module standard :
Code:
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 :
Code:
Private Sub CommandButton1_Click()
monbouton = True
ThisWorkbook.Close
End Sub
événement à placer dans le module de "ThisWorkBook" :
Code:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If monbouton = False Then MsgBox "utiliser bouton": Cancel = True
End Sub