Vraag : Gebruikend Modules in VBA om het herhalen van codes in bladen te verhinderen

In mijn werkboek probeer ik om uit te voeren open procedure om mensen te proberen en aan te moedigen om problemen te melden zij met thtewerkboeken hebben.

On elke pagina die ik heb willen om een knoop kunnen klikken om de code in bijlage in werking te stellen.

I heeft de knoop, heb ik de code en kan schijnt ik het door deze code aan elk blad met de individuele te zetten werken maken knopen maar dit stom, waarom de code inzake elk herstellen blad wanneer u het kunt eens herstellen en elke bladverbinding aan het hebt?

Thanks voor de hulp,

Haydan
" codeBody " 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Public SubSheetUnlocker ()

Application.DisplayAlerts = Vals

'=================
'Opent het Blad
'=================

ActiveSheet.Unprotect („BlueberryPies“)

'================================
'Cre�ërt e-mail want open
'================================

'Van Ron Bruin
'Werkend in 2000-2007
'Dit voorbeeld verzendt de laatste bewaarde versie van Activeworkbook
    Schemerige OutApp als Voorwerp
    Schemerige OutMail als Voorwerp
    Schemerige PDFUpdate als Koord
    Schemerige strbody als Koord
    Schemerige SigString als Koord
    Schemerige Handtekening als Koord
    
    Vastgestelde OutApp = CreateObject („Outlook.Application“)
    OutApp.Session.Logon
    Vastgestelde OutMail = OutApp.CreateItem (0)

    Op Fout hervat daarna
    Met OutMail
        . Aan = „[email protected]“
        .CC = ""
        .BCC = ""
        . Het onderwerp = „opent Gebeurtenis -“ & ActiveSheet.Name
        .HTMLBody = „te herstellen gelieve een korte beschrijving van waarom nodig was“ openen
        'U kunt andere dossiers als dit ook toevoegen
        '. Attachments.Add („C:\test.txt“)
        . Vertoning 'of gebruik. Verzend of toon
    Eind met
    
    Op Fout GoTo 0
    Vastgestelde OutMail = niets
    Vastgestelde OutApp = niets

'=======================
'Einden die tot e-mail leiden
'=======================

Application.DisplayAlerts = Waar

Sub van het eind

Antwoord : Gebruikend Modules in VBA om het herhalen van codes in bladen te verhinderen

2000/3….
De alternerende actie moet de code verplaatsen naar een Module, en de vraag van bevelknopen hebben het.

Privé SubCommandButton1_Click ()
  SheetUnlocker 'dit leeft in een module
Sub van het eind
Andere oplossingen  
 
programming4us programming4us