Die Excel 2010 -Schutz-Funktion können Sie ein Arbeitsblatt schützen , so dass jeder , der nicht weiß ein Passwort nicht ändern können das Blatt . Es gibt eine Schaltfläche in der Multifunktionsleiste , die das Arbeitsblatt schützen , aber man kann auch zum Schutz der Folie mithilfe von Visual Basic für Applikationen (VBA) , die mit der Excel -Software vorinstalliert. Es ist am häufigsten zu haben, der VBA-Code Entsperren einer geschützten Arbeitsblatt , führen Befehle auf dem ungeschützten Arbeitsblatt , und setzen Sie dann den Schutz wieder auf. Anleitung
1

Öffnen Sie die Excel -Arbeitsmappe , die Sie bearbeiten möchten . Halten Sie die " Alt" und drücken Sie " F11 " zum Starten der VBA -Konsole.
2

Wählen Sie das Modul , wo Sie wollen Ihren Code aus der Liste hinzufügen, auf der linken Seite des VBA -Konsole. Doppelklicken Sie auf das Modul , um Ihren Code auf der rechten Seite des Bildschirms . Wenn kein Modul vorhanden ist, auf einem der Arbeitsblätter auf der linken Seite des Bildschirms aufgelistet rechten Maustaste mit der Maus über "Einfügen" und wählen Sie "Module ". Doppelklicken Sie auf das Modul, das , um ein leeres Blatt auf der rechten Seite des VBA -Konsole erscheint.
3

Klicken Sie die rechte Seite des Bildschirms , um den Cursor in das weiße Feld platzieren . Wenn die Box leer ist, geben "Sub name () ", wobei "name " ist das, was Sie an Ihrem Makro benennen wollen . Drücken Sie die Eingabetaste , um fortzufahren , und Excel VBA automatisch in den "End Sub "-Zeile.
4

Type " Dim ws As Worksheet " direkt unter Ihrem "Sub "-Zeile. Wenn Sie mit Ihrem Code arbeiten , geben Sie diese Zeile , wo Ihre anderen Variablen deklariert werden und sicherstellen, dass es nicht bereits eine andere Variable mit dem Namen " ws ". Wenn ja, ändern Sie alle Instanzen von " ws " in diesem Code zu jedem verfügbaren Kombination aus zwei Buchstaben.
5

Platzieren Sie den Cursor in die nächste Zeile , oder wenn Sie mit Ihrem Code arbeiten , statt wo immer Sie wollen , um das Arbeitsblatt aufzuheben. Geben Sie in dem folgenden Code:

For Each ws In ActiveWorkbook.Worksheets

ws.Unprotect Passwort: = " zzz "

Next ws

Change " zzz " in dem Code, um was auch immer Ihr Arbeitsblatt vergessen ist . Wenn Sie das Arbeitsblatt wieder schützen wollen , geben Sie einfach diese gleichen drei Zeilen Code , außer der Veränderung " unprotect " zu "schützen ".