Blätter schützen, mit einer Ausnahme!

17/09/2008 - 16:25 von Walter Heying | Report spam
Hallo,

ich möchte gerne mittels VBA, dass alle Blàtter bis auf eines
geschützt werden.
Ich setze bisher bereits folgendes Makro ein:
Sub Blattschutz
Dim Blatt
For Blatt = 1 To Worksheets.Count
With Sheets(Blatt)
.EnableOutlining = True
.EnableAutoFilter = True
.Protect userinterfaceonly:=True, Password:=Kennwort
End With
Next
End Sub

Wie müsste das Makro aussehen, wenn z.B. das Blatt "Basis" ungeschützt
bleiben soll?

Gruß
Walter
 

Lesen sie die antworten

#1 Claus Busch
17/09/2008 - 16:39 | Warnen spam
Hallo Walter,

Am Wed, 17 Sep 2008 07:25:26 -0700 (PDT) schrieb Walter Heying:

Wie müsste das Makro aussehen, wenn z.B. das Blatt "Basis" ungeschützt
bleiben soll?



probiers mal so:

Sub Blattschutz()
Dim Blatt
For Blatt = 1 To Worksheets.Count
If Sheets(Blatt).Name <> "Basis" Then
With Sheets(Blatt)
.EnableOutlining = True
.EnableAutoFilter = True
.Protect userinterfaceonly:=True, Password:="Kennwort"
End With
End If
Next
End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen