Ein Makro zum Schutz von Arbeitsblättern auf Arbeitsmappe schließen

Manchmal müssen Sie Ihre Excel-Arbeitsmappe in die Welt hinaus zu senden mit spezifischen Arbeitsblätter geschützt. Wenn Sie feststellen, dass Sie sind ständig den Schutz und die Aufhebung der Sperrung von Blättern vor Ihrer Arbeitsmappe verteilen, hier das Makro kann Ihnen helfen.

Wie die Makro funktioniert

Der Code wird durch das Ereignis Before Arbeitsmappe ausgelöst. Wenn Sie versuchen, die Arbeitsmappe, dieses Ereignis ausgelöst zu schließen, in den Code ausgeführt wird. Das Makro schützt automatisch die angegebene Blatt mit dem angegebenen Kennwort ein, und dann speichert die Arbeitsmappe:

Private Sub Workbook_BeforeClose (Cancel As Boolean) '. Schritt 1: das Blatt mit passwordSheets Protect ( "Sheet1") Passwort schützen: = "RED"' Schritt 2: Speichern Sie die workbookActiveWorkbook.SaveEnd Sub

In Schritt 1 sind die Angabe Sie explizit, welche Blatt zu schützen - Sheet1, in diesem Fall. Sie bieten auch die Passwort-Argument, Passwort: = "RED", die den Passwortschutz zu entfernen benötigt definiert.

Dieses Passwort-Argument ist optional. Wenn Sie es weglassen, wird noch das Blatt sein # 173-geschützt, aber Sie werden kein Passwort müssen es ungeschützt.

Excel-Passwörter sind case-sensitive, so dass Sie die Aufmerksamkeit auf die genaue Passwort bezahlen wollen und Kapitalisierung, die Sie verwenden.

Schritt 2 zeigt Excel die Arbeitsmappe zu speichern. Wenn Sie nicht die Arbeitsmappe speichern, die den Blattschutz Sie gerade angewendet wird nicht das nächste Mal in der Tat sein, die Arbeitsmappe geöffnet wird.

Wie das Makro zu verwenden,

Um dieses Makro zu implementieren, müssen Sie kopieren und fügen Sie ihn in das Workbook_BeforeClose Ereigniscode-Fenster. das Makro hier Platzierung ermöglicht es jedes Mal, wenn Sie versuchen, schließen Sie die Arbeitsmappe auszuführen:

1. Visual Basic-Editor aktivieren, indem Sie Alt + F11 drücken.

2. Im Projektfenster, finden Sie Ihr Projekt / Arbeitsmappe Namen und klicken Sie auf das Pluszeichen neben ihm alle Blätter zu sehen.

3. Klicken Sie auf Thisworkbook.

4. In der Event-Dropdown-Liste, wählen Sie das Ereignis Before.

5. Geben oder den Code in das neu erstellte Modul einfügen, die Blattnamen zu modifizieren (falls erforderlich) und das Kennwort ein.

   
   Geben Sie den Code in der Arbeitsmappe Ereignis Before.

Beachten Sie, dass durch die Zugabe zusätzlich Aussagen vor der Activeworkbook.Save Anweisung zusätzliche Blätter zu schützen.