Vraag : Hoe kan verzend ik een teweegbrengen macro wanneer de „naar post“ functie wordt gebruikt?

Hallo Deskundigen,

Is daar een manier kan ik een macro teweegbrengen als de gebruiker de „functie verzendt naar van de Post als bijlage“ in Excel gebruikt?  Ik heb een macro die een controle in werking stelt en ik dit zou willen worden uitgevoerd alvorens de gebruiker het dossier als gehechtheid verzendt.  (Indien mogelijk met annuleer van Boole ik kan gebruiken om indien nodig) te aborteren.

Thanks vooraf

Joe.

(ik gebruik uitblink 2003, maar 2007 zou o.k. zijn als 2003 niet kan steunen.)

Antwoord : Hoe kan verzend ik een teweegbrengen macro wanneer de „naar post“ functie wordt gebruikt?

In de module van ThisWorkbook van het werkboek, gebruik de hieronder code. Pas de gebeurtenis van de Klik aan zoals nodig.


1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
Expliciete optie
Privé BTN WithEvents als CommandBarButton

Privé Subbtn_Click (ByVal CTRL als Office.CommandBarButton, CancelDefault zoals Van Boole)
    'test uw voorwaarde om te annuleren verzenden
    Als MsgBox („wenst u te verzenden? “, vbYesNo) = vbNo toen
        CancelDefault = Waar
    Eind als
Sub van het eind

Privé SubWorkbook_Open ()
    Vastgesteld BTN = Application.CommandBars.FindControl (identiteitskaart: =2188)
Sub van het eind
Andere oplossingen  
 
programming4us programming4us