Blattschutz

Ich habe 45 Tabellen in einer Arbeitsmappe. Diese Tabellen sind einzeln mit einem Blattschutz versehen. Gibt es eine Möglichkeit alle Tabellen, sozusagen in einem Durchgang zu schützen und zu entschützen ? Das Kennwort für alle Tabellen ist natürlich gleich.

Für Eure Hilfe Danke im Voraus

Josef

Hallo Josef,

entweder die komplette Mappe schützen => öffnen der Datei erst nach Eingabe des Passworts möglich

oder

alle Tabellen markieren und in einem Durchgang schützen

Grüsse

Sven

Hallo Sven,
schon seit EXCEL 5.0 suche ich auch nach der Möglichkeit mehrere Tabellenblätte in einem Durchgang zu schützen.
Aber wenn ich, auch jetzt mit EXCEL 2000, mehr als ein Blatt markiere ist die Funktion Extras/schutz/Blatt schützen nicht aktiv.
Gibts da noch was?
Ullrich Sander

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

Hallo Josef,

entweder die komplette Mappe schützen => öffnen der Datei
erst nach Eingabe des Passworts möglich

Ist leider nicht des Rätsels Lösung.

oder

alle Tabellen markieren und in einem Durchgang schützen

Genau das funktioniert leider nicht. Das Menü „Extras“ - „Schutz“ - Blatt schützen" ist nicht aktiv, wenn alle Blätter markiert sind. Doch genau das suche ich.

Grüsse

Sven

Danke trotzdem - Josef

Hallo Ullrich,
hab heute Morgen mein Problem in einer Excel-Newsgroup gepostet und prompt eine Lösung bekommen.
Hab es schon ausprobiert - super !
Vielleicht kann ich Dir damit helfen.

Hallo Josef
nachfolgende 4 Makros befinden sich in meiner
personl.xls und stehen somit per Tastendruck
immer zur Verfügung.

Sub Schutzweg()
'Tastenkombination: Strg+w

ActiveSheet.Unprotect
End Sub

Sub Schutzhin()
'Tastenkombination: Strg+h

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Sub Schutzalleweg()
'Tastenkombination: Strg+e

For Each w In Sheets
w.Activate
ActiveSheet.Unprotect
Next w
End Sub

Sub Schutzallehin()
'Tastenkombination: Strg+i

For Each w In Sheets
w.Activate
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next w
End Sub

mfg
karl-heinz

Hallo Sven,
schon seit EXCEL 5.0 suche ich auch nach der Möglichkeit
mehrere Tabellenblätte in einem Durchgang zu schützen.
Aber wenn ich, auch jetzt mit EXCEL 2000, mehr als ein Blatt
markiere ist die Funktion Extras/schutz/Blatt schützen nicht
aktiv.
Gibts da noch was?
Ullrich Sander

Danke!!
Hallo Josef,
vielen Dank für die Makros!
Werd sie gleich mal ausprobieren.

Ullrich Sander