Abfrage ob Blattschutz eingeschaltet ist oder nicht

18/12/2008 - 09:37 von Walter Heying | Report spam
Hallo,

ich möchte ein kleines Makro schreiben, bei dem der Blattschutz
entweder ein- oder ausgeschaltet wird. Je nachdem, ob das Blatt vorher
ungeschützt oder geschützt war.

Ich habe es mit folgenden Makro versucht:
Sub BlattschutzEinAusschalten()
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect Password:="weihnachten"
End If
If ActiveSheet.Unprotect = True Then
ActiveSheet.Protect Password:="weihnachten"
ActiveSheet.EnableSelection = xlNoRestrictions 'Soll alle Zellen,
trotz Blattschutz zu Ansicht freischalten
End If
End Sub

Leider wir in jedem Fall immer die zweite Bedingung von Excel als WAHR
angenommen.

Was ist an dem Code falsch?

Gruß
Walter
 

Lesen sie die antworten

#1 Ewald
18/12/2008 - 10:33 | Warnen spam
Hallo Walter,
so müßte es gehn:
If ActiveSheet.ProtectContents = True Then
ActiveSheet.Unprotect Password:="weihnachten"
Else
ActiveSheet.Protect Password:="weihnachten"
End If

Gruß
Ewald



"Walter Heying" wrote:

Hallo,

ich möchte ein kleines Makro schreiben, bei dem der Blattschutz
entweder ein- oder ausgeschaltet wird. Je nachdem, ob das Blatt vorher
ungeschützt oder geschützt war.

Ich habe es mit folgenden Makro versucht:
Sub BlattschutzEinAusschalten()
If ActiveSheet.Protect = True Then
ActiveSheet.Unprotect Password:="weihnachten"
End If
If ActiveSheet.Unprotect = True Then
ActiveSheet.Protect Password:="weihnachten"
ActiveSheet.EnableSelection = xlNoRestrictions 'Soll alle Zellen,
trotz Blattschutz zu Ansicht freischalten
End If
End Sub

Leider wir in jedem Fall immer die zweite Bedingung von Excel als WAHR
angenommen.

Was ist an dem Code falsch?

Gruß
Walter



Ähnliche fragen