Blattschutz-Autofilter, Excel 2000 und 2003
27.09.2006 20:15:21
Kornelia
ich habe eine Arbeitsmappe mit derzeit folgendem Makro:
Private Sub Workbook_Open()
Dim objWs As Worksheet
Dim appVersion
appVersion = Val(Application.Version)
For Each objWs In Me.Worksheets
With objWs
If Not .AutoFilterMode Then .UsedRange.Cells(1, 1).AutoFilter
#If appVersion > 9 Then
.Protect userInterfaceOnly:=True, AllowFiltering:=True
#Else
.EnableAutoFilter = True
.Protect userInterfaceOnly:=True
#End If
End With
Next
End Sub
Mein Problem besteht darin, dass ich noch VBA-Code benötige, der veranlasst, dass beim Ablauf des Makros für die Blätter der Blattschutz mit Kennwort aufgehoben und nach Ablauf wieder gesetzt wird. Bislang wird bei diesem o.a. Makro beim Ablauf das Kennwort abgefragt. Alle Blätter besitzen dasselbe Kennwort.
Desweiteren habe ich das Problem, dass Excel 2000 sich an dem Eintrag "AllowFiltering:=True" aufhängt. Obwohl die IF-Anweisung drin ist, bleibt Excel 2000 an der Zeile hängen und springt nicht weiter.
Wer kann mir bitte hier weiterhelfen?
Danke und Gruss
Kornelia