Excel Arbeitsblätter schützen

Question

Hallo an alle,

ich habe in einer Arbeitsmappe 54 Arbeitsblätter angelegt.
Dazu die 1. Frage:
Gibt es eine Möglichkeit für alle Arbeitsblätter gleichzeitig einen Blattschutz einzugeben, da es sehr mühsam ist jedes Blatt einzeln zu schützen?

und Frage 2:
Kann man z. B. Blatt 54 nur mit Passwort anzeigen lassen. Alle anderen Blätter sind sichtbar?

Danke im voraus.

Answer 1

Hallo Unbekannter,

zu 1 mittels VBA

Option Explicit
Dim WsTabelle As Worksheet

Private Sub Aufheben()
For Each WsTabelle In Sheets
WsTabelle.Unprotect ("Passwort")
Next WsTabelle
End Sub

Private Sub Schutz()
For Each WsTabelle In Sheets
WsTabelle.Protect ("Passwort")
Next WsTabelle
End Sub

Gruß Hajo

Answer 2

Hallo,
es gibt auch eine Möglichkeit ohne VBA oder Makro.

Speichern unter
Extras
Allgemeine Optionen
Schreibschutzkennwort
OK

Gruß
fedjo

Answer 3

Hallo Fedjo,

nach dem öffnen können dann aber alle Zellen geändert werden, bei meiner Variante nur die die zugelassen sind.

Gruß Hjao

Answer 4

Hallo Hjao,

perfekt, funktioniert problemlos und wie gewünscht. Besten Dank dafür.
Man lernt wohl nie aus.

Gruß Mario