Private Sub Workbook_BeforeClose(Cancel As Boolean)

Le 09/11/2023 à 15:45

Bonjour

je voudrais de l'aider

je voudrais une fenetre qui apparait lors de la fermeture du fichier

Private Sub Workbook_BeforeClose(Cancel As Boolean)

 'If the user responds No, the Cancel variable will be set to True (which cancels the closure)

 If MsgBox("attention vous allez Fermer le fichier ", 36, "Confirmation") = vbNo Then Cancel = True

 End If

 End Sub

Masi je n'arrive pas a trouver le code

merci de votre aide

Le 09/11/2023 à 17:36

Bonjour,

Cancel n'est pas fait pour être utilisé dans ce contexte, mais (en général) pour s'assurer que l'opérateur ne quitte pas sauvagement mais utilise bien le bouton prévu à cet effet. S'il à utilisé la croix de fermeture du ruban alors Cancel est True sinon votre macro autorisera la fermeture...

A+

11wbclose.xlsm (19.74 Ko)
Rechercher des sujets similaires à "private sub workbook beforeclose cancel boolean"