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
Office - Word, Excel und Co. 9.744 Themen, 41.408 Beiträge
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