Office: Blattschutz für alle Tabellenblätter außer ein bestimmtes Blatt

Liebes Forum,

um in meiner Exceltabelle alle Arbeitsblätter zu schützen, verwende ich folgende VBA-Code (funktioniert einwandfrei*Smilie ). Wie muss der Code abgeändert werden, damit weiterhin alle Blätter geschützt werden, außer das Arbeitsblatt "Auswertung"???

Hier der Code:

Sub Schutz()
Dim i As Long
Dim p1 As String
Dim p2 As String
p1 = InputBox("Bitte Passwort eingeben!", "Passworteingabe")
p2 = InputBox("Bitte Passwort wiederholen!", "Passworteingabe")

If p1 = "" Or p2 = "" Then
MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
Exit Sub
End If

If p1 p2 Then
MsgBox "Eingaben waren nicht korrekt!" & vbLf & vbLf & "Kein Blattschutz!"
Exit Sub
End If


For i = 1 To Sheets.Count
Sheets(i).Protect p1
Next i
MsgBox "alle Blätter wurden geschützt"
End Sub

Wer kann mir helfen?

Vielen Dank im Voraus,

Maggus

:)

 

Hi,

prüfe in der Schleife, welchen Namen das laufende Tabellenblatt hat:

Code:

 

Hallo Karin,

herzlichen Dank für die Ergänzung des Codes.

Es funktioniert*Smilie

Liebe Grüße,

Maggus

 

For i = 1 To Sheets.Count: Sheets(i).Protect p1: Next
Sheets("Auswertung").Unprotect

wäre eine Alternative. So mache ich das immer mit Bereichen auf einem geschützten Blatt, die wechselnd änderbar (oder sichtbar) sein sollen. Allerdings ist es dort sinnvoller, da man alle Zellen auf einen Schlag schützen kann, was bei Blättern nicht geht.

 

Hi,

was soll das für einen Sunn machen, ein Tabellenblatt erst zu schützen, wenn man dann doch wieder den Schutz aufhebt? Vor allem, weil mach doch problemlos das relevante Blatt ausschließen kann.

 

Deine Frage ist berechtigt, Beverly.

Die normale Programmierpraxis, dass man beim Durchlauf einer Schleife nicht jedesmal auf die einzige Ausnahme testet, spielt hier keine Rolle, da es in einer sinnvollen Anwendung nur wenige Blätter gibt und somit dieser eigentlich unsinnige Test zumindest nicht mehr "kostet".

Trotzdem: Ich mag kein If innerhalb von Schleifen, wenn der Bedingungseintritt bekannt ist. Dann sollte man ihn draußen lösen.

 

Hi,

Was machst du, wenn von 100 Tabellen 80 namentlich definierte (Bedingungnseintritt ist also bekannt) nicht geschützt werden sollen? Schützt du dann auch erst alle 100 und hebst dann in einer weiteren Schleife den Blattschutz für die 80 wieder auf *wink.gif* ? Deshalb gibt es doch die Möglichkeit der Bedingungsprüfung innerhalb der Schleife.