Frage : Using Module in VBA zum Wiederholen zu verhindern von Codes in den Blättern

In meinem Arbeitsbuch versuche ich, ein entriegelnverfahren einzuführen, um Leute zu versuchen und anzuregen, um über Probleme zu berichten, die sie mit thte Arbeitsbüchern haben.

On jede Seite, die ich in der Lage sein möchte, einen Knopf anzuklicken, um den angebrachten Code laufen zu lassen.

I haben den Knopf, habe ich den Code und ich kann es Arbeit bilden, indem ich diesen Code auf jedes Blatt mit den einzelnen Knöpfen setze, aber dieses scheint, warum berichtigen den Code auf jedem Blatt dumm, wenn Sie ihn einmal berichtigen können und jede Blattverbindung zu ihr haben?

Thanks für die Hilfe,

Haydan


 
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Public VorSheetUnlocker ()

Application.DisplayAlerts = falsch

'=================
'Entriegelt das Blatt
'=================

ActiveSheet.Unprotect („BlueberryPies“)

'================================
'Stellt die eMail für entriegeln her
'================================

'Von Ron Bruin
', arbeitend 2000-2007
'Dieses Beispiel senden die letzte gespeicherte Version des Activeworkbook
    Schwaches OutApp als Gegenstand
    Schwaches OutMail als Gegenstand
    Schwaches PDFUpdate als Schnur
    Schwaches strbody als Schnur
    Schwaches SigString als Schnur
    Schwache Unterzeichnung als Schnur
    
    OutApp = CreateObject („Outlook.Application“) einstellen
    OutApp.Session.Logon
    Stellt OutMail = OutApp.CreateItem ein (0)

    Auf Störungs-Zusammenfassung zunächst
    Mit OutMail
        . Zu = „[email protected]“
        .CC = ""
        .BCC = ""
        . Thema = „entriegeln Ereignis -“ u. ActiveSheet.Name
        .HTMLBody = „berichtigen bitte eine kurze Beschreibung von, warum entriegeln war erforderlich“
        'Sie können andere Akten so auch hinzufügen
        '. Attachments.Add („C:\test.txt ")
        . Anzeige 'oder Gebrauch. Senden oder anzeigen
    Mit beenden
    
    Auf Störung Goto- 0
    OutMail einstellen = nichts
    OutApp einstellen = nichts

'=======================
'Enden, welche die eMail herstellen
'=======================

Application.DisplayAlerts = richten aus

Enden-Unterseeboot

Antwort : Using Module in VBA zum Wiederholen zu verhindern von Codes in den Blättern

2000/3….
Abhilfe ist, den Code auf ein Modul zu verschieben und hat den Befehlsknopfanruf es.

Privates Unterseeboot CommandButton1_Click ()
  SheetUnlocker 'dieses lebt in einem Modul
Enden-Unterseeboot
Weitere Lösungen  
 
programming4us programming4us