Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge

Beim Blattschutz in Excel2000 das Passwort dauerhaft vergeben

Uwe Westhagen / 11 Antworten / Flachansicht Nickles

Kann man innerhalb einer Excel-Mappe ein Blatt mit Passwort schützen, ohne dass dieses nach „Blattschutz aufheben“ verloren geht? Damit meine ich, wenn ich einen Blattschutz aufgehoben habe, muss ich ja bevor ich die Datei nach dem Bearbeiten speichere, das Blatt erneut mit Vergabe eines Passwortes schützen. Es wäre doch schön, wenn das Blatt nach dem Speichern automatisch geschützt bliebe. Immer wieder das Passwort neu eingeben birgt in sich die Gefahr, dass ich bei der Neuvergabe nicht das ursprüngliche wieder vergebe. Viel wichtiger ist auch noch, dass ich sonst vor dem Abspeichern der Datei ganz einfach vergessen kann, das Blatt wieder neu zu schützen.

Es müsste so gehen, wie mit dem Dateischutz selbst, damit sich diese nicht ohne Passwort öffnen lässt. Wenn ich die Datei speichere unter „speichern unter“ – im Fenster im Menü unter „Extras“ – „Allgemeine Optionen“ – klicke, bieten sich hier Eingabefelder für Passwörter an, die ein dauerhaftes Speichern des Passwortes ermöglichen. Selbstverständlich kann man es auch bei Bedarf rausnehmen oder ändern, aber solange es drin ist, bleibt es auch nach dem Öffnen mit dem Passwort beim Abspeichern erhalten.

In dieser Form wäre es doch ideal, wenn dies auch beim Blattschutz so ginge. Hoffentlich habe ich mich verständlich ausdrücken können. Danke für Eure Hilfe
Gruß Uwe

bei Antwort benachrichtigen
hddiesel Uwe Westhagen „Hallo Karl, so ein Erfolgserlebnis macht froh, danke es funktioniert, habe es in...“
Optionen

Hallo Uwe

Zu Makroschutz:

Im VBA-Editor
Extras
Eigenschaften von VBA-Project...
Reiter Schutz
Projekt für die Anzeige sperren > Haken rein
Kennwort eingeben
und Kennwort bestätigen
OK
Speichen
Excel Datei schließen und neu öffnen.

Ansicht der Makros in der Datei nur mit Passwort, aber kein 100%iger Schutz.
(Profis ändern oder entfernen in wenigen Sekunden das Passwort.)

Zu verschiedene Passwörter verwenden:

Sub Blaetter_MitSchutz_M_Pw()
Application.ScreenUpdating = False
Sheets("A").Protect Password:="Test1" 'Passwort ändern
Sheets("B").Protect Password:="Test1" 'Passwort ändern
Sheets("C").Protect Password:="Test1" 'Passwort ändern
Sheets("D").Protect Password:="Test2" 'Passwort ändern
Sheets("E").Protect Password:="Test2" 'Passwort ändern
Sheets("F").Protect Password:="Test2" 'Passwort ändern
Application.ScreenUpdating = True
End Sub

Sub Blaetter_OhneSchutz_M_Pw()
Application.ScreenUpdating = False
Sheets("A").Unprotect Password:="Test1" 'Passwort ändern
Sheets("B").Unprotect Password:="Test1" 'Passwort ändern
Sheets("C").Unprotect Password:="Test1" 'Passwort ändern
Sheets("D").Unprotect Password:="Test2" 'Passwort ändern
Sheets("E").Unprotect Password:="Test2" 'Passwort ändern
Sheets("F").Unprotect Password:="Test2" 'Passwort ändern
Application.ScreenUpdating = True
End Sub

Zu Tipps:

http://www.kmbuss.de/Excel-CD/tipps.htm#0012
http://www.herber.de/samples/inhalt.html

oder Googeln

Gruß Karl

Windows 10 Pro 64-Bit, 22H2: MS Office Pro Plus 2016 32-Bit: Mein Motto: Leben und leben lassen: Gruss Karl
bei Antwort benachrichtigen
Passwort peterson
danke Uwe Uwe Westhagen