Wenn Sie Excel-Arbeitsmappen mit geschützten Blättern verteilt haben, erhalten Sie die Arbeitsmappen wahrscheinlich mit den noch geschützten Blättern zurück. Häufig müssen Sie den Schutz der Arbeitsblätter in einer Arbeitsmappe aufheben, bevor Sie Ihre Arbeit fortsetzen. Wenn Sie feststellen, dass Sie ständig den Schutz von Arbeitsblättern aufheben, ist dieses Makro möglicherweise genau das Richtige.
So funktioniert das Makro
Der Code wird durch das Open-Ereignis der Arbeitsmappe ausgelöst. Wenn Sie eine Arbeitsmappe öffnen, wird dieses Ereignis ausgelöst und der darin enthaltene Code ausgeführt. Dieses Makro hebt beim Öffnen der Arbeitsmappe automatisch den Schutz des angegebenen Blatts mit dem angegebenen Kennwort auf:
Private Unterarbeitsmappe_Open()
'Schritt 1: Schützen Sie das Blatt mit einem Passwort
Sheets("Sheet1").Passwort aufheben:="ROT"
End Sub
Das Makro benennt explizit das Blatt, dessen Schutz Sie aufheben möchten – in diesem Fall Sheet1. Dann übergibt es das Kennwort, das zum Aufheben des Schutzes des Blatts erforderlich ist.
Bei Excel-Passwörtern muss die Groß-/Kleinschreibung beachtet werden. Achten Sie daher auf das genaue Passwort und die verwendete Groß-/Kleinschreibung.
So verwenden Sie das Makro
Um dieses Makro zu implementieren, müssen Sie es kopieren und in das Ereigniscodefenster Workbook_Open einfügen. Wenn Sie das Makro hier platzieren, kann es jedes Mal ausgeführt werden, wenn die Arbeitsmappe geöffnet wird:
Aktivieren Sie den Visual Basic-Editor, indem Sie Alt+F11 drücken.
Suchen Sie im Projektfenster Ihren Projekt-/Arbeitsmappennamen und klicken Sie auf das Pluszeichen daneben, um alle Blätter anzuzeigen.
Klicken Sie auf Diese Arbeitsmappe.
Wählen Sie in der Dropdown-Liste Ereignis das Ereignis Öffnen aus.
Geben oder fügen Sie den Code in das neu erstellte Modul ein und ändern Sie den Blattnamen (falls erforderlich) und das Kennwort.

Geben Sie Ihren Code in das Ereignis Arbeitsmappe öffnen ein.